<% 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, March 17, 2008

change

Sometimes somthing that hits you all at once, sometimes so constant that you don't even know it has changed until you look back and see just how far you have come.

Today has been a long day, alot of emotions. I laughed, I cried.. I reminised. Away from all of that, I take away 2 things. Change and Perspective. Change is constant, no matter what it is, even if only seems to be time. Perspective on the other hand, can be constant but also can chane the feeling and meaning of almost anything.

Its easy for me to forget these two things. Seems like I need to be reminded over and over again. and each time I learn them, I take a little somthing extra away. I want so much to live the life that I think about in my head. I want to believe that I am a good person, I want to be so much more than I am.

It just seems like real change is just out of my grasp, I will keep trying though, and eventually will get to where I want to be. I think I will have an even more lofty goal by then though, guess we will see.

Labels: , ,

Thursday, January 17, 2008

UG what a night.

I almost posted this last night, but I thought that I should think about it a little while first. lately it seems like any thing that I do is riddeld with things that either hurt someone I care about, of are mising somthing that should be glaringly obvious. Or are just not thought through, or in some cases are just plain stupid. Its like the thinking part of my brain has gone on vacation and left me here to fend for myself.

My thought last night was to just take time away from everything and try and figure it out. Its seems though that I do that alot, and often times end up more lost than I started. gonna try a different approach this time. I think I am going to approach these things head on, each one of them. accept the responsibility for the actions I have taken and then change them. If it causes more issues then maybe it is the wrong choice.

The theme the last couple of weeks for me has been change I think this is a good place to inact that.

Labels: , , ,

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