<% 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: I have been to the top of the mountain.... and it is good

Wednesday, September 15, 2004

I have been to the top of the mountain.... and it is good

What a friggen day so far... I really wanted to write here this morning when things were fresh in my mind... as you can see that didn’t happen… well I got up this morning, and I went on my hike determined to make it further than I had in the past couple days. Its amazing to me how just doing this little routine the last couple of days has already made me start feeling better.. Well as I said I started my hike with this determination that I was gonna do better than before. So far I had been pushing a little better each day... well yesterday I made it ¾ of the way. And today when I got to the 5/8 marker I just wanted to keep going I needed the accomplishment. Looking back on the day it really makes me wonder if I just know when a day is gonna go bad… anyway.. As I got closer and closer to the top of the mountain my resolve to make it got stronger, I took a wrong turn near the top and had to double back but eventually I made it... and all I could think was…. “I have been to the top of the mountain and I can tell you that it is good… What a feeling… looking down on everything feeling as free as a bird without even leaving the ground. It was truly amazing. I sat there thinking about things, life, me, my friends… just everything, and how it is so easy to get wrapped up in the things in life… we as individuals are such a small of the entire world, and sometimes we actually tell ourselves things like “if I don’t finish…. *insert something here* then the world as I know it will come to an end. The truth is... it won’t you will still be here if you don’t get something done. I have started to develop the attitude that, I need to slow down... relax, enjoy the time that I have here. Take care of me first… and here I sit... still at work... working well after I should be home... what else is new thought right?

Well I think I need to head home I will prolly write more from there though... talking to a very interesting guy about sex at the moment... LOL

posted by Dave at 8:29 PM

0 Comments:

Post a Comment

<< Home