<% 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: ok what day is it?

Friday, July 16, 2004

ok what day is it?

Well it’s Friday... I think… no wait… got to Portland at 10PM Tim and Chris were there to pick me up just as planned... wearing floresent colored shirts.. So they stood out a little… LOL... They took me up to Dougs, I went into the house and colleen thought I was Doug and said “hi honey” I thought that was funny. I went in and talked to here and gave her the chili pepper pen that I had gotten for her. She said that Doug was over ant Steve’s new place, I called and got directions over there.

Once I finally got to Steve’s place, I found Doug washing the car, and we all decided to head over to Dougs and put on Dougs spoiler on his wagon. Once that was done and I had loaded the Spec with all my crap (didn’t get the bike though cause the carrier wouldn’t fit) Doug went and got showered, and Steve went home to shower, we went over to meet Steve and we all went to Sherri’s for some breakfast. From there we went back to Steve's he packed and Doug and I went back to his place he said by to Colleen and we were off and running. We left Portland at about 3am and headed south... pretty un-eventful trip and we got to Shasta at 9am.

The lady at the hotel said we couldn’t check in till 3pm, but that we could leave our stuff in the room. Doug and Steve unpacked and we headed up the hill to where the events were happening.

There were actually quite a few cars there already. And they were setting up for the Jim Canna, (it was base ball this year) by about 11am or so Doug had his little tint set up down by the course and we were relaxing under the tent watching people get ready to run the Jim canna. I watched for a while they figured out scoreing and such, the rules got simplified several times over the course of the day. Once it was all set up the cars started to line up...

It was kind of set up like a baseball diamond and you had to round the bases (kind of a figure 8 kind of thing, and every other position had a ball on a piece of hose that you had to hit with a bat. Just before they started they asked for volunteers to “corner marshal” meaning you put up a flag if someone missed a ball or hit a cone. Well I stood out there for about 2 hours and forgot to put on sun block. Well needless to say I got rather burned... A LOT…

Well once we came back down off the mountain I decided that I was gonna go find somthing to help sooth my sunburn. Needless to say, after an hour I was more than a little irritated so I did what I normally do when I don't know what to do.. I called the monsta.. and in usuall form, he came through with telling me that he understood, when I told him I just wanted to leave right then, to come home... he asked how far weed was from where I was, and when I told him that it was about 10 miles, he sudgested that I go and eat there since he knew how much I liked the resturant that was there. this started to calme me down almost imeadetly.. just knowing that he knows me so well is still kinda baffeling to me... I hung up the phone and he told me to eat soimthing yummy for him... to make a long story short( to late) it is exacly what I needed and I had a chocolate malt for him... hehe...

I feel alot better going to bed now, I am glad that I called him..

Tomorrow should be interesting

0 Comments:

Post a Comment

<< Home