<% 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: sitting at work watching the storm role in

Tuesday, August 22, 2006

sitting at work watching the storm role in

as I sit here looking out the window watching the storm role in, I think about today, and all the... Stuff I guess is the best word, that has happened today. It seems like there is not a "normal" day here ar work, or that normal has become that haphazzardness (if that is even a word) that I call work. there is no structure, prioritied change on a moment by moment basis.

Yet I am still here, I have explained it by saying that I am a glutton for punishment, or that I just can't be bothered to go and fine another job. that it is to much work, but on at least some level I think that it is maybe I like the turmoile, the "excitement" never knowing what f-ed up thing will happen next here...

I spet part of the day going back and updating my journal.. I realized that I had not updated it in almost exactly a year...a year that just slipped by and I didn't even notice.

I am trying to prepare for my trip to San Fransisco this weekend for my granfathers funeral services... I have cried ad I read the e-mail remember the conversation I had with my dad. He has always been a Rock, seeming to be able to go through anything, hardened by seeing death and tragity every day as a fireman/parametic. It is times like this that I realize the things that are really important to him. how strong he was until he heard me break down. That was to much. we both got off the phone at that point.

I realize how lucky I am to have the family that I do. The love that I experienced both growing up and now, it hard to explain to people now, so used to having mother and father devorced or at very least separated. it sad, then I think about my life, the fact that I have no chance of having what anyone would call a "normal" life... I love Loren very much, but I still wonder if life would have been any eaiser with a girlfriend/wife, kids... I know that is what my dad would have prefered.. Is it a choice? is it a genetic thing? I personally believe that it is a genetic thing.

here I am at 6:45 and still at work... what is wrong with me?? since I am just rembeling. I think that I will end this entrie and do some more back entries..

posted by Dave at 6:34 PM

0 Comments:

Post a Comment

<< Home