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

Philly, not off to a good start

So I am here.... the flight from manchester to here was.... interesting. I think someone finally told the piolet he needed to drop below 7000 feet in order to land. The plane was tiney an RJ. then when we got here the terminal was on the other side of the world from where I needed to be... at least I had 3 hours to get to the other side of the airport. But I am here now.

I checked in with a random agent I saw and she told me there was only one seat left on the plane and it was the middle... I think that I will not use this travel agency again even though it is the one my new company says to use I have a meeting with my manager next week in orange county, I will address it then... not only was it 250$ more expensive than the flight I booked.. but the seats sucked, and changing the ticket was 400$ pluse they charged me 25$ to issue the ticket.. I mean what is the point of using a company like this. well thats enough of that rant. just thought I would post since I was here and has nothing better to do..

Labels: , , , ,

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: , , ,