<% 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: May 2009

Tuesday, May 19, 2009

Poetetic thoughts

I lay in bed,
Siclence; It fills my head,
Takes my mind,
To a simpler time,
A time when Things made sence
A time before This fence
Built to keep me safe,
Built to keep me Alone.

I think about life now
Ponder it's meaning
How I will live from here
When my last day will be
Wonder what will happen on that day.
What I might see.

Will I touch the sky,
CoUld I fly that high?
Or will I fall?
Into the depths below


I can't know
Not until I go.
I can't guess
Even when pressed
To konw what is on the otherside
To unhide before I go,
Would be more than I could ever show

posted by Dave at 1:11 AM 0 Comments

Tuesday, May 12, 2009

Evening thoughts

I have a roomate to whom I can bare my soul and have him not
remember in the morning. At the moment it seems like a good thing...
Then the next day, it as though none of it ever happened, and it hurts.

So many things I am feeling tonight. I want to be able to express them
All in words, but unfortunatly, the words just arnt coming tonight.

What do I need? What do I want? How much time do I actually have to
achieve either. Tonight I feel alone, I know I am not, but it feels
that way.

The need to get away now fueled by the reasons that I didn't. I wish
there was an easy answer, I wish I could cry tonight. The tears also
will not come.

I wish the answer was eaiser.

posted by Dave at 11:10 PM 0 Comments

Tuesday, May 5, 2009

picture that caught me off gaurd in a good way

As I was sitting here piddeling with my iPhone (yes I found it) I ran across a picture, I had not seen in about a year... it gave me chills, followed by the biggest goofy smile, as I thought.. There.. in that picture... in that moment... I was happy...

The fact of the matter is not when or where that picture was taken, just that it was and that was how I felt at that moment. would love to have more times like that...

smile as i go to bed... heres to hoping

Labels: , ,

posted by Dave at 12:53 AM 0 Comments

Saturday, May 2, 2009

it has happened again

I looked up a music video of a song that I like, and am left in total awe,

David Archuleta - crush

WOW

http://www.youtube.com/watch?v=yff9nCctMkg

just somthing that I can relate to, and not at all what I expected.

-D

Labels: , ,

posted by Dave at 5:35 AM 0 Comments

Friday, May 1, 2009

Vitamins

so, I have started taking a multi-vitamin, and honestly after just about a week, I feel much more stable. I was feeling like I was all over the place that for a while, as can be seen in my blog. Well I suppose that we will see how things go from here, but heres to keepign my fingers crossed

Labels:

posted by Dave at 10:01 PM 0 Comments