<% 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: LA/Six flags tomarrow

Thursday, June 7, 2007

LA/Six flags tomarrow

Just sitting here watching the vendor stumble through their crapy software... again... my mind wondering to tomarrow, I will be driving out to LA to hang out with Kristina and to take E to SIx-flags, I am pretty excited about it. I think that I may drive my the rental car place on the wya home, see if there is anything interesitng to rent, might be fun to drive a new altima or sentra out there, see if they are worth to replace my altima... if not I have reserved myself to just drive my altima. I did a little research on six-flags and it looks as thought they have put up some pretty mean coasters since the last time I was out there. and since E likes to go upside down, it looks like I am in for a day of it.. LOL

It has been far to long since I went to LA and even longer since I have seen Kristina. This is something that I am really looking forward to, and something I am missing my Datsun meet in canby Oregon for... Oh that reminds me.. I got a message today saying that my old friend kevin Palmer was going to be there at the canby car show this year, apparently he is gonna drive up his Z... that really made me want to go, but it just wasn't meant to be...

I had a couple friends over for BBQ last night tried out the grill that is natural gas powered that came with the house... worked pretty well.. cooked fillet mijnion (spelling sorry) and burgers, they turned out pretty good... was a really good evening, started up the 510 for them after putting in some injector cleaner that L had suggested a couple weeks back... that seemed to clear up alot of the cars issues... it was also late and cool, that might have had something to do with it who knows. I am definatly looking forward to having it back on the road again thats for sure. hopefully soon.

I guess thats it for tonight, I had some extra time to kill so figured I would put some stuff in here.. nothing to important I guess...

Labels: , , , ,

posted by Dave at 8:53 PM

0 Comments:

Post a Comment

<< Home