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

Saturday, October 27, 2007

Manchester Airport.

So here I am at the manchester New Hampshire Airport. 2 hours early.. luckely I found a power outlet and could sign onto my sirius account and listen to some music. well I got up this morning, took a nice long shower (after my bath last night that I forgot to write about WOW jaccusi tub LOL) got the rest of my stupp put together and headed downstairs. The hotel has a breakfast they serve every day, today it was french toast and suasage. Along with some cereals and juices. I sat down and had some food thinking about what they day might have in store for me. in my 11 hours of travel time I have today. lol

Looking out the lobby window it looked like it had been raining, so that should lengthen my trip to the airport a little. It was about an hour drive down. I figured it woul de at least that for the trip up. I ended up leaving the hotel about 7:45 in the mighty POS tarus. I didn't even write about it because it was such a POS I didn't want to even take the time. LOL the drive to the airport was slow, it rained pretty hard the whole way and the tarus was not the most surefooted thing on the road espically with its half flat tires.

I made it to the airport a bout 9:10 after stopping to fill up the car with gas. I checked in and made it through security, found a spot to sit with power and here I am. 2 hours early for the flight still. Oh well better than being late I suppose. I fly from here to pensilvania, there I have a 3 hours layover. I am really hoping to be able to get a decent seat from there to phx since its 5 hours on the plane. I am also hoping that the battery on this laptop will last long enough to get through a movie, but I don't have alot of hope for that.

As an interesting side note, I noticed on the way up that the airbus 321 that I was on had those nifty air-power things. I think I will have to invest in one of those adapters for my laptop so that I can watch movies on long flights. of course with any luck I should stay on the west coast and hopefully will not have to many long flights.

Well I am just rambeling now, so I think I will call it quits for this post. I am sure there will be another one in philly... another airport I have never been to

Labels: , , ,