<% 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: So many Downer posts.

Tuesday, October 27, 2009

So many Downer posts.

I was just brousing through my posts, and realized.. I have to many painful hurt posts. I think I need to really work on posting more when I am happy. Like today... Today, I cried, but I am happy. Sometimes I work so hard to help the people I care about be happy, and now, I am happy to hear that someone I care about is happy and again enjoying their life.

In Life it is SO hard to keep in mind all the good things that have happened to us, it seems so easy to be hurt and remember only that. To feel the horrible feeling over and over agian. I have never really understood it, but it seem it happens to many people. I don't want to be one of those people. By nature I am... or at least I used to be optimistic about everything, finding happieness in the stupitest little thing.

I have found myself in a place where I have changed the basic parts of who I am, for reasons that I do not think are good ones. After making so many mistakes it seems so easy to stand at this place in my journey through life and think. "I am no good at this at all."

This week I have made a commitment to myself. I am going to do my very best to move forward from here, Concentrate on those parts of my life that need work, and one step at a time I am going to focus on making each day of my life a little better than the last.

Eventually I think that I could actually get to a point where I can look myself in the mirror and say, "I have done a good job fixing the broken pieces, and am happy with the direction I am now going." Putting so many things off, relying on to many people for things that I should be dealing with myself. It has been time to set a stake in the ground and say.. HERE... This is as far as I go, I am ready to start climbing out of this hole that I have put myself in.

I know, that I have started this before, and I have repaired some of the really broken stuff. Its time to figure out a way to keep on this track. To make it out of the hole and start back on the journey of life.

Labels: , , ,

posted by Dave at 9:14 AM

0 Comments:

Post a Comment

<< Home