<% 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

Sunday, July 19, 2009

Poem that really got to me

I found this poem, and it just really got to me. (thank you Mitch for posting it)

Does It Matter?

My parents asked me if I am gay
I said, "Does it matter?"
They said, "No, not really."
I told them, "Yes."
They said, "Get out of our lives."
I guess it mattered.

My boss asked me if I am gay.
I said, "Does it matter?"
He said, "No, not really."
I told him, "Yes."
He said, "You're fired, faggot."
I guess it mattered.

My friend asked me if I am gay.
I said, "Does it matter?"
He said, "No, not really."
I told him, "Yes."
He said, "Don't call me your friend."
I guess it mattered.

My partner asked, "Do you love me?"
I said, "Does it matter?"
He said, "Yes."
I told him, "I love you."
He said, "Let me hold you in my arms."
For the first time in my life something matters.

My God asked, "Do you love yourself?"
I said, "Does it matter?"
He said, "Yes."
I asked, "How can I love myself? I am gay."
He said, "That's the way I made you."
Nothing again will ever matter.

--Author Unknown

Labels: , ,

Wednesday, April 22, 2009

tears

tears from my heart
tears from my soul
longing to again feel a part
tears caused by the hole
the tears I cry because I am a fool

i wonder why
i've said goodbye
wonder how I will live
I wonder when I'll die

why it seems a simple question
yet so many long answers
Everything for a reason
I must go on, one day at a time

it hurts so bad
I want to make it stop
thinking of what I had
thinking of what I need
it hurts so bad



a life not lived to its fullest is a life wasted.
i will do my best to now live the life I have left to the fulliest.

-Dave

Labels: , , ,

Friday, November 21, 2008

lost

Lost in a world, that scares me to death,
Lost in a crowd, I'm losing my breath.
Lost as a boy, lost as a man,
I need to grow up, don't think I can.

Lost as a person, can't find my way.
Lost in life, every day.
Lost in worry, who am I?
All my life, I've lived a lie.

Lost to kindness, lost to love,
Lost in a sky, like a new-born dove.
Lost in thought, which I shouldn't do,
It winds me up, I can’t get through.

Lost to comfort, all kind words,
Lost to advice, it isn't heard.
Lost to those who really care,
All these people, always there.

Lost in me, I need a break,
Lost in wonder, which road to take?
Lost in a place I don't know well,
Where are you now? There's no one to tell.

Lost here, all alone,
Lost apart from the mobile phone.
Lost still, there are no calls.
I'm struggling alone, to break these walls.

Lost in mind, lost in soul,
Lost memories, they'res just a hole.
Lost family, lost mate,
Gone now, yet I'm full of hate.

Lost in a straight world, and I am gay,
Lost now, for what to say,
Lost in boredom, think I'll leave.
There's a lot in life I need to achieve.

Labels: ,