<% 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: What is Love

Tuesday, July 3, 2007

What is Love

it seems to me that there are many things that are attached to the word love, espically when it comes to a relationship. I thought about this word when contenplating my last relationship and how it didn't seem to be "enough" like one word or feeling was the reason why things did not end up working out...

Now I find myself thinking with a new relationship when is the apropiate time to start using that word to describe it, or even what "love" signifies. At several points being afraid of saying it or the word itself.... SERIOUSLY.... its just a friggen word... I think that there is so much more to a relationsiop... any relationship than one word.

I wonder if sometimes that I think about stuff to much try to put meaning to things that may not be ment to have meaning.

Its odd for me to push so hard for so long, for somthing I just knew in my soul was right. Always seeming like I was just out of reach of my goal, and feeling like I could almost touch it. Reaching a point where I started to doubt that I was striving for the right goal. FInally reaching a point where I was pretty sure that it was not the right goal, then stopping the chase, I stopped pushing, and watched what had I been chasing move further and further away.... Then looking to my right only to see the things I thought I had been chasing, standing next to me. not moving away, but just there, smileing...

That of course, scared me to death, so I took several steps the oppisite direction. Each time being followed. After a short time, I decided to see if what I was experiencing was real. Since then I have been convinced every step of the way how real it really is. I make no promises or guesses as to where this will lead, but I do know that I am willing to at least see what direction it goes, no longer pushing or chaseing but walking step for step into the future.

I know none of the above made a whole lot of sence, but it is really how I see things when I close my eyes and think about them. I thought I would just write a little excerpt from the randomness of my mind.

Labels: , , ,

0 Comments:

Post a Comment

<< Home