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

Wednesday, August 19, 2009

Life lessons seem to have a twist of irony

for so long I was what I would call shy. Never directly speKing out
with what I needed or wanted. Instead I took more of an aproach of, if
it is meant to be it will.

over the years, and through some instrumental people In my life,
slowly, I have learned to collect my thoughts and then how to express
those thoughts to the people with whom they involve..

it seems as thought life lessons, or at least this one is not
without some irony. The more courage and practice I got at it, the
less those thoughts and feelings seemed to matter to the people that i
shared them with.

So now, I move back to where I started, this time, I find myself no
longer sharing by choice, having the ability, but no longer the desire.

It's sad, but at the same time, it is ok. I know now that I am strong,
and that I will make it through anything. I just wish that it could
again be more than "making it through" I cannot trully complain, I
have experienced this, and I know many have not, but I still miss it

And with that, I think it is time for bed..

Labels: , ,

Sunday, August 2, 2009

Thoughts

Back from my trip to California for my cousin randy's wedding. It was
actually really neat, I did my best to keep upbeat about the whole
thing, again it was nice to be able to take grandma, seems like it
helped everyone. That made me feel good that I could help

Some random thoughts tonight.

Thangs said, cannot be un-said. Things done, cannot be undone. But if
we learn from the things both said And done, we have an oppertunity to
make tomarrow and thus the future better.

Feeling lonely tonight, wondering what things will come from this new
direction. I think it was eaiser in some ways to not knowing some
things.... Sometimes ignorance is bliss.

-D