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

Sunday, December 23, 2007

Pontiac G6 (from hell)

Ok so I have written some reviews of car in my recent travels. This time I waited several days to write this review to make sure that I could fully express how I felt about about this automobile. To start off with, I made a point of renting a car and upgrading two levels with points. Once I arrived and saw that the car was a Pontiac G6 (sized as the same class as before the upgrades), I started becoming upset. I went back in to talk to person at the rental counter, and find out what the deal was with my upgrade.

They told me they didn't have any other cars other than a Toyota solara, and a convertible sebring, neither of these seemed worth it to me. Did I mention that I was in settle at the time? I did get them to remove my points upgrade from the rental; thats right they were going to leave it as an upgrade even though they did not upgrade me. What a system.

The Car... well lets see where to start, it was powered, by a v-6.. I found out later they claim that it is a 3.5 liter v-6 attached to the same 4-speed automatic from the late 70's if you want the fancy 3.6 and the 6-speed auto, you have to buy the GXP. that is a GM thing that I have yet to understand, to get technology from this decade, and get a acceptable driving experience you have to buy the top of the line version.

the version I rented could almost get out of its own way, only because it was powered by a v-6, it was less than seamless though. It shifted as thought it was programed by a someone who had no clue how a transmission was supposed to work, and the ratios would let the car rev to red-line and then fall on its face in the next gear... if only there were more ratios to choose from. That of course was just the beggning, in the rain the car was rather sketchy to drive, it drifted over expansion joints and rough pavement, making you feel like the car was going to leave the road at any moment. The next issue was the traction control, when it came on it accessed the ABS motor which I could hear over the raido. it then cut all the throttle further putting the car out of control. In the hills of Seattle, it made it almost impossible to leave a stop period.

Over all I would put this second to bottom of the list, I think I would only put the mustang below this car. The mustang had no options and felt like parts were going to fall off. the G6 at least seemed fully put together.

Labels: , ,