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

Monday, August 13, 2007

first day here in the big sky country.

so today, I spent the whole day with my dad, catchin up and moving moving 1500 lbs round bails of hay 7 bails at a time... 10500 lbs a shot... and heres the kicker, the trailer is ballanced so that as soon as you release the handel it dumps itself.... I found that pretty impressive... we moved them to several different places. Once we were done, we decided to go and find dad's neibor who was cutting wheat.. I was going to ride around inthe cab of the harvester to see how it all worked...

Once we found him, I rod with him for about 30 minutes or so, his machine was a $300K john dear, that has more gadgets and gizmos... from gauges that tell him how fast to go to be at the optimal speed for the machine, to presets for the cutter head height, and paddles.. in fact the whoel cutter head runs on 2 wheels supported by air bag suspension to keep the header level with the ground and to keep it from hitting the dirt. Larry, (the gentalman running the harvester) was also quite skilled. I imagine it comes from doing it for so many years.. we ran from the truck up to the end of the field and back and it was perfect for one full load of grain... like as we passed the end of the wheat row, the buzzer for "full bin" went off. he then unloaded the 500 bushals or 14000 lbs of weight into the truck, which was also cool... his new truck was powered by a 8.1 cummins turbo diesel, and an allison automatic... he bought the truck as a trailer truck, had the frame streched to put a grain box and dump bead on the truck... it was actually pretty cool...

Well after that, dad drove home the tractor we were using to load the truck, I drove the truck home. once we were there we unloaded some loose bails we had collected, into the horse corral feeder. we all came in for lunch and watched movies for the rest of the day... I also spend some time thinking today.. I will have to post my thoughts tomarrow.

Labels: , ,