<% 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: thoughts at work

Tuesday, August 5, 2008

thoughts at work

Ya I know I should not still be here, but was listing to some music, ya I know its not a good idea in my state of mind... but this song came on, and I wanted to just put it in here.... Song makes me cry EVERY TIME.....




Every Other Friday
It's toys and clothes and backpacks
Is everybody in?
Ok lets go see dad
Same time in the same spot
Corner of the same old parking lot
Half the hugs and kisses
There are always sad
We trade a couple words and looks and kids again
Every Other Weekend

Every Other Weekend
Very few exceptions
I pick up the love we made in both my arms
It's movies on the sofa
Grilled cheese and cut the crust off
"But that's not the way mom makes it daddy" breaks my heart
I miss everything I use to have with her again
Every Other Weekend

But I can't tell her I love her

I can't tell him I love him

Cause there's too many questions and

Ears in the car

So I don't tell him I miss him

I don't tell her I need her

He's over me, that's where we are

So we're as close as we might ever be again

Every Other Weekend

Every Other Saturday
First thing in the mornin'
I turn the TV on to make the quiet go away
I know why, but I don't know why
We ever let this happen
Fallin' for forever was a big mistake
There's so much not to do, and all day not to do it in
Every Other Weekend

Every Other Sunday
I empty out my backseat
While my children hug their mother in the parking lot
We don't touch
We don't talk much
Maybe goodbye to each other
Then she drives away with every piece of heart I've got
I reconvince myself we did the right thing
Every Other Weekend

So I can't tell her I love her

I can't tell him I love him

Cause there's too many questions and

Ears in the car

So I don't tell him I miss him

I don't tell her I need her

He's over me, that's where we are

So we're as close as we might ever be again

Every Other Weekend

Yeah for fifteen minutes we're a family again

God I wish that he was still with me again

Every Other Weekend

Labels: ,

0 Comments:

Post a Comment

<< Home