<% 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: How does this happen?

Friday, July 6, 2007

How does this happen?

continued from the fourth things got really really bad with L and I... the only difference is this time I held nothing back... I spoke my mind (via txt message) in as truthful honest, way as I could, trying very hard not say anything spiteful. When it was done, and I realized, that it didn't make a difference. that I would probably have been better off not saying anything at all. Let him vent at me, and get it out of his system. at least that way he would not have had anything else to be upset about.

It makes me so angry that I never felt I could be totally honest with him, that if I did, it would only cause a fight and for him to be angry. for so long I wanted things to work.... no matter what the cost, no matter how much I felt I needed to sacrafice, it didn't matter. I was willing to do what it took to make it work. Then it happened... he got so angry that he said things that could never be taken back, I should have left that day. I should have left when he told me to, and never looked back. That way he could have started fresh and it would have been over...

At times like this I find myself thinking about what I have heard a friend of mine say a couple times. "A relationship tends to go the way it starts." meaning that a relationship tends to follow the path it starts with... I will not kid myself, the relationship between L and I started with me pushing for it and him not being real interested... that is really how it progressed. I think that I will always regret that. regret pushing him into somthing he so obviously didn't want. I may have even kept him in the relationship with guilt, that to is somthing I regret.

I look back at the good and the bad, they are times I will always remember. I wish that things could be different. I guess that life just does not work that way sometimes.... maybe more when I am not so upset...

posted by Dave at 11:31 PM

0 Comments:

Post a Comment

<< Home