<% 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: Parking and hiking… maybe I am just dumb.

Friday, September 17, 2004

Parking and hiking… maybe I am just dumb.

Ok so the last couple of days I have noticed this odd thing that happens. The parking lot for Camelback Mountain is really small but there is parking all the way down the hill to the street which is where I normally park. So I have noticed that when people get to the parking lot and it is full, instead of coming back down the mountain to park where I normally do and walk up to the parking lot (I mean you are there to hike anyway) it really doesn't make any logical if you think about it… I have just chalked it up to “one of the funny things people do.

Half way up the hill I looked up and noticed something shiny in the sky it looked kinda like an eclipse or something reflecting in the sky I watched it for a few minutes and couldn’t quite figure out what it might be… I continued up the mountain and when I ran into the guys that I have been pacing myself by (an additional ¼ mile up the mountain I might add) one of them said “did ya see the space ship?” I thought he meant like the shuttle. I said sound really dumb. “Is that what it is?” everyone around us laughed… oh well so I felt dumb at least I got a laugh.

I hit the ¾ mile mark after that and decided I was going all the way... I saw a guy coming down with a camera and a tri-pod I figured that he was taking pictures of whatever that thing was. A lot of people passed me on my way up, but I still shaved 20 minutes of the total time which I think is really good for me and only doing this a week.

Lets see what else... got gas on my way to work and got stiffed a quarter… lost a customer over a friggen quarter... oh well…

Um... there is more but my brain is not working today...

posted by Dave at 11:35 AM

0 Comments:

Post a Comment

<< Home