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

Monday, May 7, 2007

Monday after moving.

Well, here I am... sitting at work, a home owner. Wow that really sounds weird to say...

I got a call late on Friday afternoon saying the house had funded and was officially recorded. being neurotic about the whole thing, and having loaded up Erich's borrowed truck and trailer the night before at midnight, I was more than ready to go. Went and met the listing agant at the house, (who also lives 3 doors down) to pickup keys. The Previous owners grandauter was there, tieing down the king size bed that her father/grandfather had given to her (instead of me as he had promised oh well) so I got to meet her, which was more than a little weird.

Since I am at work, I need to condence this a little bit. I got that load of stuff into the garage and made one more that day, then it was time to go see cammeron's play. Erich came up and met me at my new place and we both took the woody wagon out to the play which was in goodyear.... I can't belive how far out that is... LOL The play was really good and after it was over we all went to in and out, Cam decided he wanted to come up and see the new place...

The first night spent in my new place was a little odd, little sounds that I was not used to, the shadows cast on the wall and of course all my stuff not put away yet. Saturday I spent most of the day moving stuff, Loren and I went to breakfast and he helped me out quite a bit. We moved the two non-drivable cars to the new house, and got the rest of the stuff from his place and what I had purchased from the neighbor so by the end of the day, most everything was moved. Loren and Erich came over, we had pizza and moved some stuff around, they both went home and I got in the hot-tub and relaxed, that is SOOO wonderful LOL...

Sunday I spent most of the the day running around returning the trailer and going to the home depot, then hanging out with Erich N and his roommate jon. we came back to my place and they helped me pull some cable from one room to the other, I need to call cox today and look into cable service and internet. the house has never had cable, so I will have to see if they are goint to charge me or not..

I think that is all the update I have so far, wanted to get something written down since I don't have internet at the house yet, figured now is as good of a time as any to get all this stuff in writing.

Labels: , , , ,