<% 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: The Day OF

Saturday, August 26, 2006

The Day OF

Well, not even sure where to start today... I might have to write this in two parts... woke up today at 6 and took a shower, and got ready... I drove mom, dad, sarah, grandma and myself to the boat on peir 39. Glen, Donna and their kids met us here at grandma's house. we drove down to SF with little, issue, dropped off the family parked the truck, and met the family where there were a couple members of the honnor garud... This is where I started to breakdown, this was not gonna be good... the boat was really nice, and all the immidate family showed up, it was good to see everyone.

the boat headed out, it was cool, flat calm, the alkatraz swim was going on and the jaramia johnson (a WW2 ship) was making its anual trip up the bay, yes thats right it only goes places once a year.... and the alkatraz swim is only once a year. we made it out to the golden gat bridge, where the ashes were going to be spread. Dad said he had never seen weather so calm. the honnor gaurd played taps, unfolded and folded the flag, presented it to grandma. The neptune socity guide said a small prayer, we all joined hands while Russ lead us in a prayer, each of the kids scattered some of the ashes. we thrwed a carnation overboard, I took lots and lots of pictures. Like I said it was cold, but the weather was perfectly calm. as we headed back to the dock the captain said he only makes it out to the golden gate about 20% of the time, and cannot remember when it was that calm under the golden gate bridge....

But wait theres more... we all came home, after finding our way out of the city. we all had a little lunch, and got changed for the memorial service...

once at the memorial service is where It really started to get hard. The service was heald at the the chruches with the 3 huge crosses, its call neibors. once I got into the meeting place there was a DVD playing that had a picture of grandpa driving his boat in Canada, which I know was one of his happy places... I ended up having to go back out to the truck and happened to also have ears in my eyes. it was so hard.

i didn't truly loose it till chuck was up in front everyone, and lost it looked up and said Give me just a minute dad... at that moment the wind blew in through the only open window, and resteled the blinds which made a bunch of noise... it made me feel like he was there with us, took a LONG time after that for me to regain my composure.

all the people that talked had many nice things to say about grandpa, the san Leandro fire department was there, so far out of their area, just to pay their respects.

it was unbelievable... I will have to write more later in this post.

0 Comments:

Post a Comment

<< Home