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

Tuesday, December 25, 2007

A Quiet Christmas

So I have had a tough time "Getting in the spirit" this year. I didn't buy my tree, I didn't decorate my new house. I blamed it on my new job that has me traveling, but another big part of it is that this time of year has many things that had become tradition, and it just didn't feel right this year, so I had just decided not to do them. Things are just different, and it hits me every now and then just how different

I think spending a good portion of today on my own is exactly what I needed to do. To reflect, to just sit and be quiet. I did quiet a bit of cleaning, but now I am just here thinking, wondering what the future holds. what the new year will be like. I am not going to say that this is something that is a happy experience, but not sad either, just necessary. At least for now.

Labels: , , , ,

posted by Dave at 7:35 PM 0 Comments

Christmas Visiters

Just a quick update, Tim and Ryan get here tonight at 9PM, I look forward to the week. They will be the first visiters I have had, and am pretty excited about it

Labels: ,

posted by Dave at 8:12 AM 0 Comments

Friday, December 21, 2007

Phoenix Airport christmas weekend

So I flew in to PHX on Christmas weekend, the Friday of Christmas weekend actually. the people were unreal, and then waited an hour and a half for luggage. was not an experience that was something that I would ever like to repeat. I ended up having to fly home on on southwest, and the more I think about it the more I think I will have to start flying them more often. This is the third time I have flown them, each time seems to be a little better, and now that I know I can guy the business class for a few dollars more, I think it might be worth it. Some of the ways that they do things seem to be much better at least in theory.

Random thoughts i guess.

Labels: , , ,

posted by Dave at 11:41 PM 0 Comments