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

Sunday, March 23, 2008

day of accomplishments.

So today, I finally spent some time and got a bunch of the stuff I have been trying to get done... actually done. Cleaned the garage, fixed the 510, fixed the irrigation, poisoned the weeds (again) and sealed all the leaks in the irrigation... Even Squeezed in some time for shopping (more on that later) and some WOW.

thought that I would put that all down here so that I could remind myself that I could actually get things accomplished from time to time. Now I just need to do something with the motors in the garage, get rid of them or put them in something. I think that gives me something to do in the future.

I have actually thought about this, and I think that I leave things in my life that I know that I can fix solely for the purpose of being able to go and fix them and feel that since of accomplishment when I am struggling the most with things that I know I cannot change. Things that I know I have no control over, or that I have utterly failed on. One more way of staying out of the darkest places of my conscious and subconscious.

Odd thoughts to have. Humm oh well.

Labels: , , ,

posted by Dave at 7:26 PM 0 Comments

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