<% 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

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: , , , ,

Friday, May 11, 2007

First week in the new house

Well today marks my first week in the house... through the trials and tribulations, I find myself now questioning if this was the right choice, wondering is there was another way. I keep telling myself that this was the only way. When I see the beautiful home that I now live in, I think that this will be the place that I call home in the future, and for a while. currently it doesn't quite feel like home... there is just something missing for it to be home. I know what it is, but I also know that this the way things need to be. That this is how It needs to be for me to move forward and to be a participant of life instead of just along for the ride.

I even miss that little evil doggy that used to chew up my stuff... How odd is that? I have thought several times about getting a furry little mongrel of my own, but I think that it would not be fair since I am gone so much, maybe I need to get a roommate... someone to rent the extra room. Lots of random thoughts as I end the week.

On the lighter side, there are alot of positive things that have happened in the last week. I have been able to spend some quality time with my thoughts, as i have fixed little things wrong with my new house.... that still sounds weird to say; My House... ya still doesn't sound quite right, I just still feel like I should be saying "our house". I have fixed 80-90% of the irrigation leaks that I have had with the irrigation system, which makes me happy. I have 2 places that I need to run new lines, one because there is not one run already, and the other because the line is all cracked and needs to be replaced. I think I will try and get that accomplished this weekend. That should keep me busy, I think I will try and get the 510 up and going as well, I need to replace a couple lifters and then get it emissions tested so that I can drive it.

Labels: , ,