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

Wednesday, October 29, 2008

WOW daghtry "what about now"

wasn't really ready for this this morning...

Shadows fill an empty heart
As love is fading,
From all the things that we are
But are not saying.
Can we see beyond the scars
And make it to the dawn?

Change the colors of the sky.
And open up to
The ways you made me feel alive,
The ways I loved you.
For all the things that never died,
To make it through the night,
Love will find you.

What about now?
What about today?
What if you're making me all that I was meant to be?
What if our love never went away?
What if it's lost behind words we could never find?
Baby, before it's too late,
What about now?

The sun is breaking in your eyes
To start a new day.
This broken heart can still survive
With a touch of your grace.
Shadows fade into the light.
I am by your side,
Where love will find you.

What about now?
What about today?
What if you're making me all that I was meant to be?
What if our love, it never went away?
What if it's lost behind words we could never find?
Baby, before it's too late,
What about now?

Now that we're here,
Now that we've come this far,
Just hold on.
There is nothing to fear,
For I am right beside you.
For all my life,
I am yours.

What about now?
What about today?
What if you're making me all that I was meant to be?
What if our love never went away?
What if it's lost behind words we could never find?

What about now?
What about today?
What if you're making me all that I was meant to be?
What if our love never went away?
What if it's lost behind words we could never find?
Baby, before it's too late,
Baby, before it's too late,
Baby, before it's too late,

Labels: , ,

posted by Dave at 7:57 AM 0 Comments

Tuesday, February 19, 2008

Chills...

Its not often that somthing happens that stops me in my tracks. enough to say. WOW, that was intense. I heard a song today, one I had heard before and never really heard... a friend sent me a link to a tiesto song, was a really good song after I listened, I was browsing through other videos and I ran across this song.

"DJ Tiesto - just be" http://www.youtube.com/watch?v=BvKbGQRrWCM

I was lost and I'm still lost, but I feel so much better...

You travel the world but you can't run away from the person you are in your heart.
be who you want to be, make us believe in you, keep all your light in the dark. Your searching for truth, you must look in the mirror and make sence of what you can see... just be.... just be....

They say learning to love yourself is the first step that you take when you want to be real...
flying on planes to exotic locations won't teach you how you really feel. face up to the fact that you are who you are, nothing will change but belief.. just be... just be..

cause now I know its not so far to where I to where I go the light is there, its inside me... in need to... just be..... to just be...

I need to put this into my music rotation. WOW...

Labels: , , ,

posted by Dave at 3:44 PM 0 Comments