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

Monday, October 22, 2007

first day of the rest of my life

Today I gave notice, two weeks from today I will be a free man. I will start my new job and the rest of my life. I feel like a weigh has been lifted, like the light has been turned on the end tunnel.

its one of those things that until I did somthing to change it i didn't know how bad it has gotten. I have to say that now I understant that it has been time to somthing about this for a long time. I look forward to the new job and the adventure that it brings.

Labels: ,

posted by Dave at 4:58 PM 0 Comments

Thursday, October 11, 2007

Giving Notice...

Today, I got an offer for the new company. I decided to give my current company the oppertunity to see if they wanted me to stay on. after the amount of time I have been here, I am not sure that I could have lived with myself if I didn't. My manager told me he would get back with me tomarrow. My feeling at this point is that they will not be able to do what it would take for me to stay. I think that it is just time.

I ended up having a talk with the, director of our IT department. It confuses me why upper management even in situations like this, feels that they need to throw out things that serve no purpose other than to take a jab at people, in this case me. Over all it was a open honest conversation, but he also made me feel like he has no reason to try and keep me. Which I can understand as I have been really fustrated the last year or so.

so tomarrow will tell what the future holds for me..

Labels: , ,

posted by Dave at 2:43 PM 0 Comments

Wednesday, October 10, 2007

New oppertunities...

So the time has come for me to finish making some changes for me that have been a long time coming. 2 weeks ago I was aproached by a company about a oppertunity that they had, which I seemed a good fit for. Over the past 2 weeks I have had several phone interviews, and even a face to face where I flew to San Jose and met with the gentelman who would be my boss. If they make an offer and its worth is, I think that I will have to seriously consider it.

I have been at my current position for a long time, and if for no other reason it is time for me to do somthing else. This is the frist time in a long time that I can see progress, I can see that I am make progress towards all the goals that I have set forth for myself..

Labels: , , ,

posted by Dave at 10:17 PM 0 Comments

Wednesday, June 30, 2004

New Job, New Journal

Well today I started my new job here in AZ, so far I have been really excited. the first day went really well ending in a teambuilding event. (spiderman 2 with the new co-workers) Have to go in early to work tomarrow, have to be at the datacenter by 7, so I will have to make this short.

lets see, 2 hours of paperwork 30 minutes to drive to the drug testing place an hour there 30 minutes to drive back, lunch (paid for by the new company) with my mentor (who surprisingly is at least 2 inches taller than me) met with morgan (new boss), got passwords and laptop made sure I could get in. rode with him back to the datacenter got the grand tour, watched a cloning of a box, checked e-mail by this time it was like 5:30 rode with morgan to the movie theater where we were nearly involved in a horrable accident... morgan missed it by about 6 inches thank goodness. he called 911 and reported it and we went on our way.

lets see more brief overview, 12 people from work were at the movie and we all got to sit together so that was cool. after the movie morgan too 4 of us (mike briand, myself and him) back to the office where I picked up loren's truck and drove the other two guys back to their cars that were on my way home. Dropped them off, drove home, now I need to be up in... OMG less then 6 hours.. UG.. I will put details in this tomarrow...

-D

Labels:

posted by Dave at 7:07 PM 0 Comments