<% 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: July 2006

Tuesday, July 18, 2006

the Neptune Socity

As it turns out grandpa is a member of the neptune socicity. http://www.neptunesociety.com/ his last wishes were to have his ashes scattered under the golden gate bridge. so services have been set for August 26th, the family will be there and I believe there will be a some kind of reception afterwards.

Perhaps in a month I will not be suck a wreck and will be able to speak at the services.

posted by Dave at 1:00 PM 0 Comments

Friday, July 7, 2006

Circle of life

My dad called me today, he started the call with, "Dave I have some bad news for you... you grandfather passed away last night." we talked, I tried not to loose it on the phone, and failed at the end. I am just to emotional not to. I read mom's e-mail and have included it here.

"Dear Family & Friends,

Last night with all his chilldren and thier spouses around him, my dad, Charles Gebhardt, left his earthly body for a 'better' pleace. All we did was call the hospise nurse and she came and took care of 'everything else'.... We'll all miss him greatlly, but, of course, my mom is most effected by his passing!! Thank you all for your thoughts, prayers, and hugs !!!!

Much love, Ginger and family"

I know its the process I know this is how things go, that he is not suffering anymore, that he is in a better place.. that doesn't keep it from hurting..

I called loren and left him v-mail and tried not to turn into a blubbering iddiot. I almost made it. when he called me back I couldn't even get small sentances out.. I felt so out of control, so not myself, and there was nothing that I could do to stop it.. I finally told him I would rather talk about it more on IM where I could actually formulate sentances..

we talked for a while, I sat at my cube tears running down my face. I just stopped trying to stop them after a while. it was better to just let the emotion come, break down and just let it happen.

I got a chance to talk to mom a little about services, sounds like grandma may push them out a while.

posted by Dave at 10:00 AM 0 Comments

The next day.

I read mom's e-mail and saw that grandpa took a turn for the worse, she is afriad he may not make it through the weekend. I went outside listened to v-mail and cried... its gonna be a rough day...

posted by Dave at 10:00 AM 0 Comments

Thursday, July 6, 2006

A turn for the worse

My phone rang tonight.. it was mom, I know what it was about, so I didn't answer. I let it go to v-mail... I am not sure if I am ready to deal with this, so I am going to wait till I get to work tomarrow.

posted by Dave at 10:00 PM 0 Comments