<% 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, August 16, 2007

OMG destruction derby OMG Lawn mower races...

ok so... dad mentioned there being a destruction derby in a town about 50 miles over I had never been to one... so I figured "what the heck lets go" and now... I don't even know where to start... lol..

Dad and I went to glasco (the town 50 miles over) we got there at like 5:00 the derby was not supposed to start until 7 so we figured we would wander around the fair for a while.... first of all the fairgrounds... if you can call them that were TINEY!!!!! like 3 rides and it was FULL, there was a barn for sheep, one for cows, one for pigs and all of them were less than 40 ft long... I thought I grew up in a small town..LOL.... Second point... I FOUND where they were put all the corn-fed farm boys that I hear so much about... I had to fight from letting my head spin around on its axis several different times.. WOW... what a difference 50 miles would make... if only I could bag one and bring him home for erich... LOL... ANYHOO...

we decided to get a soda and head into the derby.. it was prolly almost 6 or 6:30 by then (not having a watch made it rough.. LOL) they were auctioning off the cars in the derby, winner would split the pot (which ended up being like 3k). This seemed to take FOREVER... FInally when they done.. I was talking to dads neibor (lilly) about the program.. it looked like we had missed the lawn mower races. (somthing I have really wanted to see) as it turns out, inbetween the "heats" they were gonna do the lawnmower races.. This got me pretty excited cause like I said, I have wanted to see this for a while...

The derby got started and the track was SUPER wet, (kept the cars slower cause they were all spinning) the first heat seemed to take a really long time... they go till there are only 2 cars left, those 2 advance to the finals... as the night progressed the track got more and more dry and the speed and the carnage got much higher.. when the first heat was over, there was a small break and the mowers came out... the first class was the up to 8.5 hp. these zipped around the track with some pretty good speed. one mower was CLEARLY faster than the rest..

The announcer then came on and said.. "and now it is time for the super-stock class... these are like the nascar's of the mower racing world" Yes I am serious.. he actually said that... it is TRULLY a different world up there.. This class is up to 25 hp and reach speeds of 75 MPH.... that is NOT a misprint.... 75 on a riding mower... HOW COOL IS THAT?? in fact the announcer said that they are 1 second off the pace of the mini-sprint race cars on the oval track.. These things WERE AMAZING.... they would pitch them totally sideways, through the turn (this track was an oval) and as they straightened out, you would hear the motor come to life and in several cases the mower would pull the front wheels off the ground.... ON DIRT!!!! after already going a a good clip!!! it made me really want to build one.... but then... I thought better of it..

once the race was over, this one also had a very clear winner, there was another heat of demolition. followed by the finals of the mower races, and then the finals of the demolition derby.. What I did not know is that it is disqualification if you hit the drivers door of one of the cars. this is aperently for safty. Then it happened... To ME... it looked like car a was backing up to smash the back of car B, Car B then backed up and car Hit his door.... the crowd was IMMEADETLY on its feet booing and calling for the judges to throw that guy out (I personally think there was more than this event behind this reaction) the judges aperently saw what I saw... they let the match go on, and the offender won the derby... I seriously thought the croud was going to jump the fence and start a brawl... it was DEFinatly a..... Experence.. LOL

Dad and I snuch out and headed home.
Thought I better put this all down so I would remember

Labels: , , ,