<% 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: rought night

Friday, October 29, 2004

rought night

Last night was tough… I was in a pretty good mood all day… when I got home I went and bought a digital camcorder for Saturdays event, we will see how that goes... in the evening something happened that kinda reminded me how I still have several places in my life that are very fragile. After this happened I went to bed, (8pm) and slept till my alarm went off at 6am, fully clothed. Wanting more than anything to just hide from the world till I felt better. I had some messed up dreams which is not to surprising. Dreams about other parts of my life that are also very fragile, I woke up to my alarm all of them fresh in my mind. I think that we need to remember the parts of our lives that are easily damaged. And know that when they do get hurt; which they will; that it is part of the growing process, and something that needs to happen, this doesn’t make it any easier when it does happen, but it is something that I just try to remember when I get hurt, mostly for perspective and to help keep me from becoming jaded.

I woke up this morning and took a long hot shower, walked outside and all the cars were covered with dew (something that is REALLY RARE in PHX) and I thought... you know... I have the cam that takes digital video I should start the car and let it steam and take video of that (I know I am weird but it makes me happy) so I started the car and went in got the cam and took some video. It actually turned out pretty good. I have to remember to tell Joe that I took video and ask if he can pull it off for me... So after that I got in my car, turned the heat way up and drove to work listening to some music. I can say that I am happy now, and that I really enjoyed the drive to work, it was very relaxing. I think that when I do finally get my own place I will look in central PHX for a older home because I really enjoy that drive... and the central area is so easy to get around in. so that’s all I wanted to write in here, and the reason I wrote it is because this is not something I can talk to anyone about because it involves the people closeted to me right now who I would normally talk to. I think that I just need to be scarce this weekend (other than the party of course) and just let things go a little... guess I will see how I feel...

Today is employee application day, so they are setting up the parking lot for food and what not... should be fun... I think I am going to leave my phone off for the day and just try to concentrate on work from here on. I think that might help me a lot today...

We Will See

posted by Dave at 8:00 AM

0 Comments:

Post a Comment

<< Home