<% 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: if you were a color...

Friday, March 21, 2008

if you were a color...

Ocassional you will hear jokes about this, touchy feel questions like, if you were a color what color would you be and why? if you could be any inanimate objeect what would it be. Describe your world in smells. I like to listen to really classic music and think about these questions. or like "why are we here? what is the meaning of life?" Usually I come up with answers to these types of questions for myself, the issue is that I can't ever tell anyone about the answers for fear of ridicule. That almost makes me want to cry writing that down.

Full if so much thought and opinion, how the world works, what makes people tick. So much fear to share any of these things. I already have issues with people understanding me, this is only somthing that would complicate the issue. I like to think that I am a really simple person, but any time I stop to think about it, I realize just how complex I really am. how "DIFRNT", labeled the freak for so many years and letting myself believe that, and even bo ok with it. Making the same mean comments about myself that others would make, in an effort to "laugh at myself before others could" at least that is how I justified it. Makes me want to hide from people, to just be on my own and not interact, but I force myself to be out there, to interact to communicate, No matter how much I may not want to, I know that it is nessaray for my servival, and my sanity.

When I pull away from people for long periods of time, I become very dark, and extreamly hard on my self about everything. I can look back now and see how it happens, and how it happened. even now its so easy for me to justify all these things, and even give myself reasons why that is better than being an active part of the world. I know that this is somthing that I will always battle, somthing that will always be one of my demons, one that I must be aware of all the time, no matter how tired I get. I wish I was stonger, I wish I was the person I would like to think I was. I wish I could not hurt the people that mean the most to be because of my fear......

I wish...

Labels: , ,

posted by Dave at 12:02 PM

0 Comments:

Post a Comment

<< Home