<% 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