<% 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: WOW. what a good way to end a long weekend.

Sunday, July 18, 2004

WOW. what a good way to end a long weekend.

Well I worke up at like 9ish, unloaded the car into my room (with the exception of the rims I brought back which I put in the wagon. I layed down for a while, talked to joe at about 11 asked if he wanted to go get some food, he said he would like to at around noon, so I thought that I would go wash my car and take out the trash I had collected from the move.

I got back to the house at around 11:45 we decided to go to the good egg at park central mall. food was awsome, and I am really enjoying being able to spend time with joe. I would like to think that he is enjoying having someone to talk to as well. I hope that I am not invading to much on his brivacy though. I have attepmpted to let him know that I will talk aout anything and have tried to make things as good as I can while I am there... anyway... after breakfast the monsta called can said him and jim were going to long john silvers for food, and he would call me when they were done. Joen and I went to target so I could buy a couple things, had to get some coat hangers, and a power strip and some socks. we headed home after that, and I got all cleaned up and got my room cleaned up.

the monsta called and said he was on the way, I had to call america west and dispute the double charges that hit my account. as I was getting off the phone he pulled up in the driveway and we went desk shopping for me... I found the one that I think that I want at Staples for 129$. we decided that we wanted to go to scottsdale fashion square and that he wanted to drive my car so we went and got it and headed up there. once there we wandered around a little, decided we wanted jamba juice so went over to starbucks so that we could use their hot spot, found a jamba down the street.

on the way back to my house I realized that I had forgotten to have the monsta bring my laptop with him so I decided to follow him back to chandler and pick it up. I went in the pool while I was down there, and played with croozer, and it was a REALLY nice end to a LONG weekend.

looking forward to tomarrow.

posted by Dave at 11:00 PM

0 Comments:

Post a Comment

<< Home