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

Friday, December 14, 2007

friday morning fear

So, last night I posted about how I was feeling. at least I started the process, since if got hung up I had to re-post this morning. I re-read what I wrote last night, and I realize that I don't really feel better today. This is not a good sign for me, usually I can step back from a situation and calm down and think about it rationally. This time that did not happen. I think it might have to do with the fact that when I attempted to step away from the conversation I was pulled back in and felt forced to continue after I knew it was no longer productive. I know better than that, wish I would have listened to myself.

So now I have to wonder, will I carry this through the day? or will I be able to shake it. I am hoping I can shake it, but also not going to count on that. I just wanted to post a short message to myself so that I could come back and notice later that this is how I feel.

Labels: , , ,

Thursday, December 13, 2007

Pain

Websters Dictionary defines pain as A symptom of some physical hurt or disorder, Emotional distress; a fundamental feeling that people try to avoid.

I think that this is a good start to the definition, but I would also like to add, that physical pain I and most people can deal with. It is something that happens and you just have to endure it until it is gone. Mental pain on the other hand is something far more difficult. there is not rules for when or how it starts, or for how long it will last. many times it will sneak up on someone and leave them totally disabled and unable to function.

This is how I feel tonight. Not ready to hurt like this, unprepared to "deal with it" I am left staring at the ceiling, only able to ask "why?". Today after work I fly to visit grandma, and see the family. I am hoping that this will be an escape and not a reminder of the past. So much of the past. So much tied together. even thought I know its is the worst thing I could do, I really just want to go hide somewhere till it all passes me by. I know that I have to face this, that I have to deal with the issues that are in front of me, that doesn't change the fact that I don't want to....

Labels: