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

Tuesday, June 9, 2009

lost

feeling a little lost tonight, trying to sleep. Wishing that sometimes life was a little eaiser, that direction was eaiser to find.

My new goal that seems to be working is to just laugh at everything that I can, to let go of everything I can't laugh at, and just let it be what it will be.

tomarrow is a new day, full of new adventure, and could change my life forever...

Got to have hope.

Labels: , ,

posted by Dave at 12:38 AM 0 Comments

Monday, March 16, 2009

numb

when I started thinking about his post, I wanted to say that I just didn't care, thats not really true though. Its more than I am just numb. I have seen things recently that I never thought I would see, I have experienced things that I never thought I would or could experiece, I have come through the other side, and here I am. At some point I am sure I will think that I am better for it, that the experience has made me better in some way, but for now... I am just numb, right now

Going to SF tomarrow, wish I could say that I was looking forward to it. At lease it will be nice to get away for a while, my co-worker is a really good time to hang out with, and she said that we HAVE to go ut at least one night we are there. so I guess we will see.

I still hope that the next wonderful chapter in my life is just around the corner, I just wish that I could skip this particular part. My thoughts are on my family, I hope and prey that my dad comes around, my friends I hope they are all finding happieness, the world, I hope that things turn around, and hope returns to a world that has become mired in negativity and unhappieness.

Labels: , , ,

posted by Dave at 7:58 AM 0 Comments

Tuesday, October 28, 2008

Why do I write in these pages?

I have done quite a bit of thinking about why I right in these pages. My standard answer is I write here for me. Lately, I have lost much of my interest in writing, feeling that it caused more harm than good. Thinking that the words that I had to say meant very little, to anyone other than the other voices in my head.

I often have a very low opinion of my self. I know this. It is something that I have tried to work on lately. I feel that this is one of the things I have been failing at. Along with being a good partner, friend, and lover. I have had some pretty low points lately. In the end there are 2 choices, live with the way that things are, or make changes to make them better.

At this point, I want to continue to make changes that I think will make things better. It is taking so much more strength... more will power, it hurts, I cry, I feel like a fool, I feel like a failure. but I move on... forward... always forward... looking back when I have to, crying when I have to, picking up my foot for that next step no matter how hard it might seem, no matter how much I know that next step might change everything for the worse.

I know.... I know that in a moment, everything could change for the better, just as it could change for the worse. I hold tight to my hope, that the future holds happiness, smiles, love, and companionship.... I hope.... I will be ready

Labels: , , ,

posted by Dave at 8:49 PM 0 Comments