<% 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: thoughts in the dark

Tuesday, July 27, 2004

thoughts in the dark

Sitting here in the Dark, listning to music, doing a lot of thinking again... What’s new right? This time a lot about the past. Things I have experienced, people I have met. Wondering how things could have been different with different decisions... its not that I want to change anything, but I wonder how life would have been different...

I have taken a break from chatting over the past week or two... and in the last couple days I have tried logging in again... and I don't know why i do... I just get more frustrated when I do... people all seem to be the same for the most part... all looking for a quick fix of sex... and that’s about it... I would like to meet more normal people... I meet one or two here and there, and it just get frustrating. I think I could write a whole book on the subject of gay men and on-line chatting...

It’s hard to imagine meeting someone new and starting a life with them... I feel so much like I have tried that and after the energy that I put into it, I feel like I no longer have anything to offer someone. Why would someone want to be with me? I kind of feel like I am an empty shell... someone who used to be so full of love and life... now I feel like no matter what I do I just can't muster enough enthusiasm to date someone... maybe its normal.. Maybe not... I feel this emptiness in the pit of my soul where there used to be something... The funny thing is I met someone that totally changed my thoughts about this... but I have to wonder if it was only because he was totally unavailable...

I have decided to make some changes in my life, see if I can get some new perspective and I think that if I put them down on paper maybe it will be easier to stick to them... I want to try and lose some weight by Christmas, the amount has not been totally determined, because I want to still be healthy, and the last time I lost weight I kind of went over board when a friend’s mom said... "So is Dave sick?" that was kind of my wake up call. I have also decided to "fix" some of the issues that someone told they had with me at some point. I am going to try to have more "good habits" and less procrastinating, washing cloths once a week, keeping my room picked up, keeping my cars clean as possible... stuff like that... see what happens if I try... I have tried both of these in the recent past, but it was for someone else... this time I want to do these things for ME, I think that they will help me be a more happy, healthy, well rounded person..

Well those are the thoughts for tonight I think... maybe I will write more later... we will see...

posted by Dave at 11:28 PM

0 Comments:

Post a Comment

<< Home