<% 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: morning thoughts

Thursday, October 9, 2008

morning thoughts

I woke up this morning with a really upset stomach, I spent some time trying to get back to sleep, then I decided to turn on some music which I had done in the last several days. I think it was because I didn't want any chance of being reminded of all the stuff I didn't want to think about anymore. I normally would turn on music and then go to sleep, and the last couple days I have just felt that I couldn't.

Well I turned it on, and the following song was the first to play, I have written about it in these pages before, but right now. I had to post it again. Its rare that I find a song that has a positive message, and one that seems to apply to the feelings that I have right now.


I've heard it said
That people come into our lives for a reason
Bringing something we must learn
And we are led
To those who help us most to grow
If we let them
And we help them in return
Well, I don't know if I believe that's true
But I know I'm who I am today
Because I knew you...

Like a comet pulled from orbit
As it passes a sun
Like a stream that meets a boulder
Halfway through the wood
Who can say if I've been changed for the better?
But because I knew you
I have been changed for good


It well may be
That we will never meet again
In this lifetime
So let me say before we part
So much of me
Is made of what I learned from you
You'll be with me
Like a handprint on my heart
And now whatever way our stories end
I know you have re-written mine
By being my friend...

Like a ship blown from its mooring
By a wind off the sea
Like a seed dropped by a skybird
In a distant wood
Who can say if I've been changed for the better?
But because I knew you

Because I knew you

I have been changed for good

And just to clear the air
I ask forgiveness
For the things I've done you blame me for

But then, I guess we know
There's blame to share

And none of it seems to matter anymore

Like a comet pulled from orbit
As it passes a sun
Like a stream that meets a boulder
Halfway through the wood

Like a ship blown from its mooring
By a wind off the sea
Like a seed dropped by a bird in the wood

Who can say if I've been
Changed for the better?
I do believe I have been
Changed for the better

And because I knew you...

Because I knew you...

Because I knew you...
I have been changed for good...

Labels: , , ,

posted by Dave at 2:49 AM

0 Comments:

Post a Comment

<< Home