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

Thursday, December 6, 2007

The rental mustang

So I got to the airport, I had expected to get a chevy malibu since that is what I reserved. I was a little shocked to find a mustang in its place. It was that light blue color that I love so much (not). I loaded my stuff into the trunk and was on my way.

I first noticed that it seemed pretty peppy (shocker I noticed that first I know) the second thing I noticed was that with 16K on the ODO it needed to be re-assembeled. The front suspension felt like it was not fully connected, the beauty rings for the shifter were falling off and ir ratteled REALLY bad.

One on the freeway it still had pleanty of pep as long as you were not afraid to use the gas pedal.

It seemed as though the first 3 or 4 gears were spaced pretty close which made city driving actually pretty nice, always power on tap and was fairly smooth. (I am still biased for the DSG of course.)

On the freeway in american fasion O/D was WAY out there. Like 70 was 2K in O/D and almost 4K out of O/D which was 4th gear in this car. I also think it has a decent stall in the torque converter which unlocked with any shift and had no operation of its own. Since I only drove the car about 30 miles I am willing to chalk that up to transmission adaption.

Overall this is my score of rental cars overall:
1. Ford focus (this car is good all over and can get really good miledge)
2. Toyota preius (its just neat needs better seats though)
3. Ford mustang V-6 (this may change if I get more time in one)
4. NEW Caddy CTS (needs tranny programing BAD!!!)
5. Ford fusion 4-cyl (looking forward to driving the v-6 of this car)
99. For tarus (the old one) all around crappy car with less power than the focus and 19 MPG to boot.. ICK I do want to drive the new one though.
Sent via BlackBerry by AT&T

posted by Dave at 9:29 PM

0 Comments:

Post a Comment

<< Home