<% Function showtwitter() On Error Resume next howmannyposts = 7 url = "http://twitter.com/statuses/user_timeline/15436552.rss" set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, False xmlhttp.send "" myvar = xmlhttp.responseText myvar2 = split(myvar, "") myvar3 = split(myvar2(1), "", -1, 1) myjoin = Join(myvar3, VbCrLf) myvar3 = Split(myjoin, "tazicus:") myubound = ubound(myvar3) myuboundreal = myubound If myubound > howmannyposts Then myubound = howmannyposts counter = 1 loopcounter = 1 Do Until loopcounter = myubound myloopvar = Split(myvar3(counter), "<description>") mydatevar = Split(myvar3(counter), "<pubDate>") mydatevar1 = Split(mydatevar(1), "</pubDate>") mydate = mydatevar1(0) myloopvar1 = Split(myloopvar(1), "</description>") mymessage = Split(myloopvar1(0), "tazicus:") mymessagetemp = mymessage(1) mysplitdate = Split(mydate, " ") workingtime = mysplitdate(4) myyear=mysplitdate(3) mymonth=mysplitdate(2) myday=mysplitdate(1) If mymonth = "Jan" Then mymonth = 1 End If If mymonth = "Feb" Then mymonth = 2 End If If mymonth = "Mar" Then mymonth = 3 End If If mymonth = "Apr" Then mymonth = 4 end if If mymonth = "May" Then mymonth = 5 end if If mymonth = "Jun" Then mymonth = 6 end if If mymonth = "Jul" Then mymonth = 7 end if If mymonth = "Aug" Then mymonth = 8 end if If mymonth = "Sep" Then mymonth = 9 end if If mymonth = "Oct" Then mymonth = 10 end if If mymonth = "Nov" Then mymonth = 11 end if If mymonth = "Dec" Then mymonth = 12 end if mydate = mymonth & "/" & myday & "/" & myyear & " " & workingtime mydate = CDate(mydate) mydate = mydate - .29166666 mydiff = DateDiff("d", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " days ago" Else mydiff = DateDiff("h", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Hours ago" Else mydiff = DateDiff("n", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Minutes ago" Else mydiff = DateDiff("s", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Seconds ago" End If End If End If End If mytestmessage = split(mymessage(1), "http") myubound1 = ubound(mytestmessage) if left(mytestmessage(0), 2) <> " @" then if myubound1 > 0 then myvariable = myvariable & mytestmessage(0) & " <a href=" &Chr(34) & "http"& mytestmessage(1) & Chr(34) & ">http"&mytestmessage(1) & "</a>"& "<br>" & mydiff & "<br><br>" else myvariable = myvariable & mytestmessage(0) & "<br>" & mydiff & "<br><br>" end if loopcounter = loopcounter + 1 else End if counter = counter + 1 Loop Response.Write myvariable End Function %> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" dir="ltr"> <head> <title>Dave, a self portrait in words

Wednesday, September 26, 2007

thinking at work

so its been a few days since i have posted. Truth is I have not really had much to talk about. today I am at work, I spent some time talking to a friend of mine and I realized that I have not written here in a while. We shared some memories about high school.. I thought back and remembered who I was then, compared that to who I am now. thought about all the things that have changed. How Closed off I felt from the world then. how much I felt like an outcast. That I was totally alone in this world... I never would have thought then that It was possible to experience a life and perspective changing love like I did, somthing I don't think many people in the world have experienced. If you had asked me where I thought I would be when I turned 30 then... The answer would be nothing like it is now..

Things change, they are always changing. You can't stop them. I never would have thought that once I found this life altering feeling that it would ever slip away. It doesn't happen over night. I guess most change doesn't. Its a process, happening constantly all around us. I think that I have been trying to recapture some of my youth lately. Maybe it could even be considered a mid-life crisis. The fact of the matter is my life has been turned upside down. trying to put it together again with one of the biggest pieces missing has been more than difficult.. there is just nothing that seems to fit quite right. Like that was a distinct piece and it will always be missing now.

The more I think about this the more I think I need to stop trying to fill this empty place.. I need to understand that you can't accept someone into your life so completely, and not have them leave an impression forever... there comes a point when they become a part of you forever.

I still do not claim to know what the future holds. but I know that I don't want to fill that place in my life. there are times that I need to remember. The Good, the bad... The laughter, the tears... the gentle conversation, the Fights.... we had a some good ones... I need to remember... I need to not let go....

Labels: , ,

posted by Dave at 10:40 AM 0 Comments

Monday, May 28, 2007

Late night random thoughts

ramdom thoughts... I sent loren a text message this weekend, after I pushed send I reliezed how several small words could hold so much meaning. I still have times when I feel like there is a key piece of my life that is missing. Like that missing puzzle piece that you can't find no matter how hard you look... no matter what pieces that you find, none seem to fit the way that you feel they should. I think that tomorrow I will think some about some goals, things that are able to be accomplished, things that will help me become a better person.... listening to some sappy music tonight... prolly not the best idea, but sometimes its good to just cry...

Labels: , , , , ,

posted by Dave at 1:00 AM 0 Comments