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

Wednesday, October 14, 2009

waves of emotion

Sitting at my desk listening to a collection of carol of the bells of all things. Waves of emotion crashing over me, making me feel as though I could lose it at any moment. I believe this is a good sign that it may be time for me to go to bed.

flipping through music form the past, and the feelings attached to each song, each note. So many good memories, so many horrible hurtful memories. all part of what makes me... me..

Now crying... time for bed....

Labels: , , , ,

Wednesday, June 4, 2008

Ripples across the pond

This has been said to death I know. Life goes by so fast, I look back and wonder where the last 10 years went, seems like just a blink of an eye. Along the way, we make choices, ones that seem small at the time. but even the smallest stone into a pond makes ripples that echo across the water. Makes me wonder what the next 10 will bring, how many years are left.

I think back on my past, and it seems I spent a lot of time in my life helping people be happy, being there for the ones I hold the closest, sometimes to just be an ear, sometimes to be that goofy fuy that you can't help but laugh at. makes me wonder if when I need someone there will be someone there for me.

I used to wonder if people thought about life and how to make this a better place to live like I did. I understand now that a lot of people don't get much outside of themselves. I think that is sad, So much wonder can be found in people, their thoughts, and human nature. I feel like when I talk to someone, I feel their pain, their happinesses, like I lived the experience. I am coming to the understanding that this is a rare thing, that most people hear, but don't listen.

I think about all the people that have touched my life just by being there, I think that this is a big part of the meaning of life. the connections we make with people in our lifes, The smiles, the tears, the fights, the laughs. When they go, these are all the things that make that one person special, how they touched the people in their lives, and in rare cases bring together people who might not have ever otherwise met. I look back on my life and I think that is one thing I am truly lucky for, being able to have as many special people in my life as I have. The memories I have created that I hope I can hold onto for the remainder of my lifetime. I hope that when my time is up those special people will say that I made some sort of impact on their life like I know they have mine.

Labels: , , ,

Friday, December 14, 2007

friday morning fear

So, last night I posted about how I was feeling. at least I started the process, since if got hung up I had to re-post this morning. I re-read what I wrote last night, and I realize that I don't really feel better today. This is not a good sign for me, usually I can step back from a situation and calm down and think about it rationally. This time that did not happen. I think it might have to do with the fact that when I attempted to step away from the conversation I was pulled back in and felt forced to continue after I knew it was no longer productive. I know better than that, wish I would have listened to myself.

So now I have to wonder, will I carry this through the day? or will I be able to shake it. I am hoping I can shake it, but also not going to count on that. I just wanted to post a short message to myself so that I could come back and notice later that this is how I feel.

Labels: , , ,