<% 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, November 3, 2007

Driving from the OC to PHX

The Drive From Santa Anna to PHX. I think the best words I can use to describe this experience are OMG. No joke it took 3 hours to get from the customer site to the I-10. a drive that normally takes like 40 minutes like at the very most, even with traffic. I went 5 MPH for what seemed like 50 miles. luckiley, once out on the open freeway everyone decided it was the cal-az 500 and were adveraging north of 90 mph... I of course was in the slow lane with the cruise control set at 70 because I would NEVER speed....... No....... Really...... Stop laughing..... lol anyway, I got home at like 10:30 and am now exhausted. I am glad that trip is over with. Time for bed.

Labels: , , , ,

Thursday, November 1, 2007

Santa Anna scoping and a Caddy..

I have not updated my blog for a little while now, even though there has been a sugnificant amount of stuff going on. Today I am in Orange county in what is being called a "scoping session" which basically means. how are are you doing things now? What process are you using? How can we fit that into the product, and what expectations do you have. I believe that we will also be comvering priorities as to what they would like to accomplish first and in what order.

I was able to rent a car, and drive out from Phoenix.. I reserved a toyota avalon. I figured it was only 40 $ more than the basic car. but it was larger so I could drive out and not fight the airport. when I got to Hertz, They ended up giving me a caddy CTS one of the new ones. For the mostpart it is a pretty cool car, but like all GM products has its issues.

The hotel here in Santa Anna is really nice. I am on the 9th out of a 10th storie tower. the hotel room has a door between the "sitting" area and the bedrrom area. its an interesting design. There is also an atrium around the sitting/breakfast area on the first floor that goes all the way to the top of the building. I will have to post some pictures at some point, it pretty neat.

As far as the customer, I need to remember to talk to terry about if this is how it normally starts out.. I would guess that it is. seems like the first day with new people is always a little slow having to call and make sure that people actually show up to use his term "its like herding squirls" That kinda makes me laugh a little.

This time there was catered food for the meeting.. I guess when i was in new hampshire there was supposed to be to but never was.. I have never worked for a place that catered food for meetings.... ok class is starting more later.

Labels: , ,