<% 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: on time to work... no wait maybe not

Tuesday, July 13, 2004

on time to work... no wait maybe not

Started my new shift today, 10am to 7pm, so I thought I would be on-time today instead of way early as seems to be the norm with me when I have a late shift. I got up at 9 and got showered, and dressed, left at like 9:30ish and kinda cruised to work. got here at 9:55 not to bad normally a 15 minute drive but I took my time. I got to the garud post and realized that I had forgotten my ID. So I had to go home and get it actually got into the building at 10:30 so that wasn't to bad.

my emotional state kinda carried over to today. had some pretty vivid dreams last night, the kind I used to have, about how things "COULD" be. I like having dreams like that because they seem to leave a lasting impression on me. so far today has not been to bad, got the server I have been working on up and going. have a couple more to test. shouldn't be to bad.

I am able to listen to my music at work today which is a really good thing. I am off by myself in one of the work room testing servers.

Over all I am pretty content right now. I think that I am going to start looking for houses next week, might ask the monster to come along as he seems to have an eye for test kinds of things.. I am seriously considering having a house built new. I think that the appriation on it would be much better, perhaps get somthing near where the new freeway will be going in.. guess we will see.

Gonna go get my sentra this weekend, flying too portland on thursday night and leaving friday about 3am so that I can stop shasta and see everyone. I am really looking forward to this, but it looks like I might not get to go to Canada, which will be pretty upsetting, we will see how things go.. maybe I can fly up and ride up with doug and colleen, since I will only have a weekend or so.

well more later time to do some more work.

posted by Dave at 12:19 PM

0 Comments:

Post a Comment

<< Home