<% 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: The Past, through someone elses eyes

Tuesday, April 22, 2008

The Past, through someone elses eyes

So once again it’s been a while since I have written in these pages. Life has taken on new meaning for me, I smile, I have energy, and I am enjoying it every day. How’s that for a change, long way from where I have been.

The reason for this post today is because I use an RSS reader here on my computer, and today it blew up. I was forced to configure it from scratch, and in so doing I got a lot of old posts from some of the blogs I read on a regular basis.

I picked a couple entries that I didn't recognize, and as I started to read, a flood of emotion came over me, remember the things that happened that caused these posts to be written, and taking a broader and more encompassing view of the events, I was able to look from a perspective that I could not have then. It’s amazing how time can change everything. How you can see things that you just could not see then.

For a while now I have been working on me, and I realize that in a lot of ways, I am two very different people. One that is friendly, sensitive, caring, and gentle. Someone who loves deepy, thinks about everything, and tries to help everyone in my life, wanting nothing more than to have people treat me like I treat them. This is who I was first and who I associate as me. The second, cold, strong, raw, strong who I had to develop because I needed to be protected both growing up and in life. For a long time I felt like this second part locked away the first, under the guise of “being protective” causing a very different person to be displayed to the world. I would also often hide behind that second part when I didn’t want to face something. When I was afraid, or just feel that I cannot deal with life.

Lately I have gotten more control over the two parts. There seems to be a more unified presence that I show to the world, blending the two parts of me. I never used to think that this was even a possibility, I do still slip and have moments as one or the other, I realize that there will always be work to do in this area, it took me a long time to develop this second part so I expect that it will also take a while to find a common ground.

Labels: , ,

0 Comments:

Post a Comment

<< Home