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

Saturday, August 28, 2004

chating

Well time to write in my journal again. Seems like it is getting the trendy thing to do. I have been given some pretty sharp signs recently that I need to think about some stuff. It’s been almost a month since I wrote here. And some pretty profound things have happened that I have neglected to putt down into words like I told myself that I would… I started this because I wanted to be able to look back on my life and see what has happened in my own words, and again I have not seemed to be able to keep up with that… My friend Dennis came into to town to visit me. if there was anyone in the world that I think I could at very least know that I could always have a good time around, it would be him… never a bad thing to say, always happy and in a good mood, and its infectious. We had a really good time while he was here, he left today at 1, back to OR I think to pack for NY or some other such wild adventure. I wonder where Dennis is now?

Spent some time chattin on-line today people truly amaze me. they chat with you for a little while and once they see something they don’t like they just disappear. Everyone is so concerned with type and clicking right away, and it seems everyone is looking for a quick screw. Well that’s not me, never really has been. I think about the gay community. And wonder how people get to where they are in their lives. I talked to a friend of mine the other day. Rich, talk about luck. How lucky was I to have him drop into my life, and let me see into the core of the gay community. No lies, no frilly dressing. Just the way it was. I think it let me develop real ideas of how things are and helped me develop the idea of what I wanted. It was a long road for me from there to get to where I am now. But I know I would not have made some of the decisions good or bad without his influence. I count myself lucky to consider him a close friend.

Rich and I also talked about old times, and people we both knew. Whenever this happens to me and I realize how much time has passed. I am always shocked. People I met 5 and 6 years ago. That seems like ages. I still feel like we are all connected, like there is a link that links everyone together.

I think I again made an ass out of my self the other day with the monsta. LOL... he caught me in just the right mood, and asked me what I was thinking… so I just kind blurted out what was on my mind… and again got the standard WOW response… I have learned to appreciate that response instead of despise… I have the power to make him not know how to respond… I think that’s a pretty big thing.

posted by Dave at 4:10 PM

0 Comments:

Post a Comment

<< Home