<% 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, July 30, 2007

thoughts mind dump

its been a little while since I was able to post... I have been doing quite a bit of thinking lately... about life, family, friends... the people I miss, the ones I don't... people that touched my life, made me smile, and then were gone... People that came into my life, and caused hurt and pain... Those that randomly entered my life if even for a few moments, made an impact and then moved on as if it was almost planned as a message...

mostly I think about my feelings, why I feel them, what spured them. I wonder if they will change in the future, or if this is just how it will be for me and my future...

I have wondered about what is the next decision I will make... the next decision that will define my life going forward... I still listen to music when I think, I cry, I smile, I sit quietly... There are so many things that I want, I just feel like I need to find myself before I can even try to work on the things that I want... like I should make a list of thing things that I need, before I look at the list of things that I want... my problem is that its difficult for me to difference between want and need, maybe on some level they are the same thing. a want, that becomes so strong it moves into a need category. or a need that is subconscious and comes across as a want.

I read a note from my mom the other day, that relayed a story of dad's tractor catching fire while he was using it, how he was covered in soot from head to toe when she found him, and he was not feeling well... Once again this kinda pointed out to me far away they are.

I have thought about getting out of the tech field, moving into something different. I feel so tired all of the time. I think most of it comes from work. I know that there are other sources in my life right now too, but for the most part, I know that I need to get away from this place at the very least. I literally feel like it is killing me, one moment at a time. Quite a different feeling from when I started working here. how I thought this place was my home, how I had found a place that I could retire from... Not sure I have ever been so wrong about anything... it reminds me of someone looking at a cow and saying "your a frog!!" and repeating it over and over again, thinking that eventually the cow will be a frog "with enough work and process, we can make that cow a frog..." and it just does not work that way... just admit its a cow and move on....

odd analogy I know... I bet a few people I know will get it though...

I think thats about it for now.

Labels: , , , , ,