<% 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....

Saturday, July 14, 2007

thoughts....

laying here in the dark not knowing what to do, I find myself taking some of my own advice and putting the eletronic pen to paper. As a people we have alot of different kinds of relationships in a life time. Friends, lovers, realitives, co-workers, just common aquantances. Each of these relationships has their own set of rules that they tend to follow, nothing that may be set as formal rules, but rules none the less. you would not sleep with a realitive, and you would not invite a common aquantiance to a family gathering for example... I have said for a long time now that a relationship is defined by the people who participate in it.

Tonight I find myself thinking about what happens when a relationship moves outside the definition that they people who are participatants have given to it. Are there given consiquences? should there be? or like the relationship should it be worked out by those same people who are the participatants. This is an angle that I have not thought about until recently. I never even considered what would happen if the definition that was agreed upon by the people in it was violated. I can't even say why I never thought about it, I guess at the time it was a theory, somthing I had not tested, so I didn't have the experience to think about that angle. This is a different perspective for me. Thoughts like "for every action there is an equal and oppisite reaction" and "an eye for an eye" have crossed my mine when thinking about it. I think that the worst part is, once there is an agreement on what a relationship is and that is violated, can there still be trust? whats to say no matter how the rules for the relationship are changed, that they will be adhered to the second, third, or 37th time??

Today has been.... well it has just been.. I think that I will no longer have to work on B's Grand national, and furthermore if tonight is any indication, I will never have to speak to him again..... I really don't understand people. As much as I thought I might have, it is constently pointed out to me how clueless I really am. yet... no matter how many times I get kicked, or knocked down in life, I seem to keep standing up as if to almost say "AGAIN!".... leaves me wondering why sometimes... why do I keep trying?? I think that the best answer is in some of the things that I have written. That I truly believe that I never know what the next great thing is that might be just around the corner, that I try so very hard to remain positive about as many things as I can... no matter how hard it might be some time. Even through the times where I just want to crawl under a rock and hide... I don't... I try to stay out there, to smile, to be readdy for the next swing someone is going to take at me... To lead by example...

The more I think about it today was really backwards day, all the things I have been stressing about ended up really kinda nice today, and the things that I didn't or wasn't stressed out about all jumped up and attempted to taked a big bite out of me.

There is alot more that I have to say, this post it already to long and I need more time to sit and think anyway... I may post again about this.

Labels: , , , ,

0 Comments:

Post a Comment

<< Home