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

Thursday, August 14, 2008

lot on my mind tonight, up late

So I am awake, not really tired, not really interested in going to sleep. seem to have alot of thoughts on my mind tonight. I wish that they were new thoughts. I wish that I didn't have to keep reliving some mistakes. Maybe if I learned the first time, I could not make them again.

Thought alot about being told "You always have to be right." The more I think about it the more I see that he is right, I guess I always have had to be. have to think about what that means, how it could change, or if it should change.

Not really looking forward to getting up and going to work tomarrow, but I guess thats part of the process. will game for a little while long, then will go to bed.

Labels: , ,

posted by Dave at 11:10 PM 0 Comments

Friday, January 11, 2008

Home home on the plane..

So I am tired of flying.. I am fairly used to it now, and can make this trip pretty easy. It just does not seem right to spend so much time on one. I guess I have taken care of that now, just a random thought that crossed my mind.

I am not looking forward to coming back to seattle on sunday night. But I think it will be all right. Hope to do the upgrade on monday and spend tuesday workin out the bugs. At least that's what I am hoping for. I want to leave them happy. Its been a rough upgrade for them. Would be nice to leave on a positive note.

Labels: , , ,

posted by Dave at 7:26 PM 0 Comments

Wednesday, September 5, 2007

more thoughts

so I have been thinking alot about what I wrote last night... re-read it, thought some more... With some stuff that happened this afternoon as well, it has spurred even more thinking, what does it all mean? Am I seeing the signs that I think I am seeing. Should I act on those signs, should I stand back and just let things happen? I think I will remain an observer for a while. see what ends up happening, at least for a while. *deep clensing breaths*

I spent some time today talking to my friend chris in the PAC NW. He is aperently having some drama in his life. I don't find this to shocking, where he has had less recently, he still has some pretty odd situations that he gets himself into.

today I am feeling pretty wore out. I am not sure weather it is mental, phisical or a combination of the two. I do know that I am sick and tired of being sick and tired, as cliche as that sounds, its true.

I think I am gonna have to head off to bed. I am pretty emotional and tired now.

Labels: , , ,

posted by Dave at 8:33 PM 0 Comments

Friday, August 10, 2007

Unexpected late night

*written earlier and post-dated*

ok so.. ended up being at work till like 1am... was not real excited about that, had a failure with one of the servers here. so My coworker "chris" and I were here late... the good news is that its all up and going now... I am NOT going to go into work tomarrow though, with all the stuff I still need to do in order to be ready...

ug... sleep...

Labels: , ,

posted by Dave at 1:45 AM 0 Comments