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

Monday, March 24, 2008

tired but not sleepy.

So the last 2 days I have been pretty productive. and now I find myself tired but not sleepy. thinking about what I have gotten done recently, its like I found the motivation that has been missing so long... at least the motivation to do some stuff for me. I look forward to having the 510 going again. just need to get it emissioned and registered. Then I can drive it again.

direction and motivation for me are so wonderful when I have both. Garage is claen, cars are in all neatly, things are organized. house is even clean.. I have a few things to put away, and thats it. it may not be much but its visable and it means alot to me.

More later, listening to some music and time to try and sleep again

Labels: , ,

posted by Dave at 10:19 PM 0 Comments

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