<% 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, September 6, 2007

moving.... AGAIN....

Well I knew it was coming and here it is. I have once again moved my office across the building, this time giving up my window seat. I am not 100% sure how I feel about that second part just yet but as it was my choice, I really don't think its going to be a big deal, only time will tell.

This move comes on the heels of another management re-structure here, and yet another manager. this to is a mixed emotions thing for me. The new manager I am under is a good guy, I have interacted with him before. but at the same time is more change. I have pretty much determined that no matter what happens here I will continue to have a positions, and be able to cope what whatever happens, I work well in the enviornment, and I get along with 99% of the people. It also helps that I have been here so long that I know how most stuff works. This allows me to speak at least some what intelegently about most all subjects and enviornments here. I think this also helps me continue to be a voice here at work, and one that more people than I originally thought, listen to.

Yes, I get stressed out, yes I work WAY more than I should. To be fair though, I can't just list the negatives. I have to also list the positives. We work with technology that is at the absoult breaking edge of the industry, nothing is ever the repetitive. there is always somthing exciting going on. I often ask myself if it is time to look for work that would allow me more time to plan and execute projects. A job that will allow the oppertunity to take vactions (what a novel concept) Not that I can't now, but I know when I do, the stuff I need to do will just pile up till I get back and will have to work just much harder to get caught up.

Many of my friend make comments like "this job is killing you" and "I wish you didn't work so much" Where I can understand both of these comments, and agree with them both fairly reguraly... I also enjoy the challenge, it leaves me drained for other challengs in my life, but I do enjoy being challenged to do somthing that requires I come up with a technical solution that might seem impossiable at first.

Labels: , , ,