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

Thursday, July 31, 2008

Things happen for a reason

Yesterday was bad, in fact, I put wrote the lyrics of a song that played as I laid down last night in a blog message. ya... yesterday was bad. I have had so many random thoughts lately. To me it often seems like when I am at my most lost, when I am at my most confused. Something happens to pull me out of it. I would like to think it has much to do with the promise I made oh so many years ago now, in that tiny room, on that twin bed. (as Sash stay comes on the ipod.... Dam Ipod) The promise that I would never again make it to that point that I did that night, the darkest most evil place I have ever been. When there was only one person on the planet that could have saved me, who did save me. Through all the BS, all the tears, all the happiness. This one truth will always remain. I would not be standing here as I am now, if I had not had that hand to reach out to in my absolute darkest hour.

Yesterday I made it through the day, and was able to pass out and wake up with the attitude of "Today has to be better, it cannot even be the same, it MUST be better" I have had many fears about the thoughts and feelings that I have been having, that I am slipping back into a "we will see what happenes mentality" I had been thinking I could not let this happen, but felt guilty about everything that was wrapped up in that. About 20 minutes ago, I got the sign that I had been looking for. That my decisions to move forward, that I needed to pick myself up and make things better on my own was the correct decision, it was the way back to the "right path"

I am still very much broken, I have made considerable progress in the last few months, but in all reality there are still goals I need to reach. Things that I need to accomplish. I need to finish finding me. Being happy with who I am, before I can think about anything else.

Labels: , , , , ,