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

Wednesday, September 19, 2007

mental unhealth day

I woke up this morning prolly about 4, I decided that I was going to relax and be mellow for work today. I went and got into the spa and watched the sun come up. after this, I went for my morning jog, listening to the ipod... Once home, my plan was to shower, change and prolly take the rest of the day to relax. I picked up my phone to se 15 missed calls. *sigh* I called back work to find there was some issue with somthing that was pushed last night, and everyone was running around with their hair on fire.

Long story short (to late) I rand some stuff from home, piled in the car, came to work and I have been here ever since. Lately I am feeling so mentally unhealty, like I go through the motions but don't go beyond that for fear that today will be the day that I snap and will have to be commited. Ok that might be an exerageration. But I just don't feel like things here are going to change for the better here.

I think that I am going to give it till firday to let myself calm down and see how things play out. see if there is any more fallout from todays issues. then I will make my decision from there. I have to keep my eye on the things that make me smile and let me forget about work. one more day at a time I suppose

Labels: , , ,

posted by Dave at 2:27 PM 0 Comments

Thursday, June 14, 2007

adventures in Volkswagen land....

so, as planned I left here to go take care of some stuff. got the cable and the check fed ex'd to mom.... and on the way to the coffee shop, my glow plug light started flashing, this kinda freaked me out. I remembered that it usually had somthing to do with the break light switch. Once I was to the shop I had hans step on the breaks and sure enough there weren't any... so I called VW and told them what had happened, they said to bring it in because it was a recall. dropped it off and asked them for an oil change too, should be all happy when it comes back to me.. kinda a weird experience all the way around though... I mean the glow-plug light flashing... how weird is that?

Labels: , , ,

posted by Dave at 12:27 PM 0 Comments