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

Saturday, March 21, 2009

Woke up to patch adams on the TV, just in time to hear these quotes... prolly the perfect way to start a morning.

You're focusing on the problem. If you focus on the problem, you can't see the solution. Never focus on the problem!

See what no one else sees. See what everyone chooses not to see... out of fear, conformity or laziness. See the whole world anew each day!

Labels: , ,

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: , , ,

Tuesday, September 4, 2007

Tuesday... Shiney car day...

So today was the day that I was supposed to take the car to VW to be detailed. I knew that they opened at 6am for service so I got out of bed and headed down there, only to find out that they would not start on it until gwen got there (my salesperson) which was 8am. OOPS, guess I should have been more spacific when I said, "when should I bring it down?" I signed up for the shuttle, waited for like 45 minutes (thinking if I make it to 8am I will just talk to her myself lol) finally the shuttle driver arrived at about 7:55 am and gave myself and two other people rides to their destinations. My plan was to just hang out at my friends coffee shopp and work remotly with my laptop until it was time to come get the car (shuttle was supposed to come get me)

Several hours passed, I responded to a bunch or e-mail's and some IM's. sounded like things were pretty quiet at work. my friend Erich showed up after his morning apointments, he sat down and we chatted a little. I noticed it was 11:45, so I thought I would call and see what the status was. it sounded like my car was done, and someone (not sure who) was going to come get me. There aperently were mixed signals. I heard "I will come get you in your car." from gwen. and a gentelman by the name of Carlos, ended up picking me up in a subaru forester.... I guess thats close to what I heard.. LOL

nothing to exciting, I picked up my car and meandered to work, was quite relaxing. and now I am here writing this post. well guess thats it for now...

Labels: , , ,