<% 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, March 5, 2008

to a friend that I have lost...

For a long time I hoped that I would find a way to be a part of your life again, hoped that the time we shared back then was more than just a passing moment. They say that people come into your life for a reason, a season, or a lifetime, I am now very convinced that you came into my life so many years ago now for a reason. I look at my life and the biggest parts that are not family related, and I am not sure I would have any of it if it wern't for you.

I am laying here in bed listening to a song that has reminded me of you. I hope that your life is bringing you everything you could hope for I send virtual hugs to you wherever you are.

"like a priceless jewel burried in dark layers of soil and stone, earth radiates her brilliant beauty to the caverns of space and time. Perhaps you are aware of those who watch over your home and experience is as a place to visit and play with reality. You are becomig aware of yourself as a game master...

Embracing the goddes energy within yourselves will bring all of you to a new understanding and valuing of life, a vision that inspires you to live and love on planet earth.

like a priceless jewel burried in dark layers of soil and stone, earth radiates her brilliant beauty to the caverns of space and time. Perhaps you are aware of those who watch over your home and experience is as a place to visit and play with reality. You are becomig aware of yourself as a game master..."

Labels: , , ,

posted by Dave at 11:04 PM 0 Comments

Monday, May 28, 2007

Late night random thoughts

ramdom thoughts... I sent loren a text message this weekend, after I pushed send I reliezed how several small words could hold so much meaning. I still have times when I feel like there is a key piece of my life that is missing. Like that missing puzzle piece that you can't find no matter how hard you look... no matter what pieces that you find, none seem to fit the way that you feel they should. I think that tomorrow I will think some about some goals, things that are able to be accomplished, things that will help me become a better person.... listening to some sappy music tonight... prolly not the best idea, but sometimes its good to just cry...

Labels: , , , , ,

posted by Dave at 1:00 AM 0 Comments