<% 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: a day.... that I will not soon forget...

Wednesday, July 21, 2004

a day.... that I will not soon forget...

I don't know how today ended up the way that it did, but it ended up being a day that I will remember for some time to come... It started off fairly normal, I left early so that I could stop for Ice tea on the way to work. I got to work a little late after realizing I forgot my licence so I had to come back to the house and get it.

I spent the day rapped up in work, the guys I worked with went and got lunch and brought me some which was nice. I stayed busy most of the day, and near the end of the day I started talking to some friends about a corporate mixer put on by the gay and lesbian chamber of comers, here in PHX. I had planned to go for about a week or so. It sounded like somthing interesting to go to.....

Just about then, my phone rang, it was my friend ryan asking if I could still pick him up from the airport... I had totally forgotten.. I told him that of course I could... I had also told another friend Justin that I would pick him up and take him to the mixer thing, so I figured I would just get ryan on the way, drop off justin at the mixer and take ryan home.

so NEWAYZ... picked up justin, picked up Ryan, and his luggage, and aksed him if he wanted to go to this little mixer thing and he said yes. we went to this little thing, and I ahd a really good time, got to know someone people, it was a really good thing. after that, I went and dropped ryan off, we talked alot about live and death, and the little life's lessons that we all learn... I was beggning to feel emotional, and very mellow by the time we got to his place, we sat in the car and just talked for a while. it was a really nice time. he made some off the cuff remarks as he was leaving, that gave me a pretty good idea of how he was thinking... to be honest, that made me smile... its been a long time since I have trully felt wanted... I smiled and said that we should do somthing later that night. he agreed, and we parted company.

I was driving home and realized that I had not gotten a chance to to go visit with someone that I felt I really needed to visit. Someone that helps bring clarity to some of my thinking, and helps give me direction, someone who I always feel like listens to me.... And yes... someone who can always make me cry... This time was no exception, but I left feeling like I should persue a different direction...

I got home, and got kinda setteled in. I called Ryan, and asked if he still wanted to come over. he said he did, so I showered and put my landry in and about that time, ryan caled he was just down the street. I gave him directions to the house and he came in. we sat on the couch and watched romeo and juliet, (the one with lenardo de caprio) and it was very.... Interesting..... it was a really nice time.. and the first time I have had someone come to where I lived for anything even remotly like that other than the monsta in like... 5 years...
WOW how pethetic is that.. LOL

So long story short, a really good night, and somthing I can look back on and smile.. nothing earth moving.. but a very good night none the less..

big smiles.

0 Comments:

Post a Comment

<< Home