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

Wednesday, May 23, 2007

thinking...

so.... I don't even know how to start this... I believe that everything happens for a reason... that there are no accidents... but lately I feel so disconnected to from the things that I heald so dear for so long... I feel like I am being torn away from the things that have meant the most to me for years... I have to wonder if this is how it is supposed to be, I have to wonder what is next for me... if I made the right choices? if I made the right choices for the right reasons... i try very hard not to regret any of the decisions that I make, but at the same time I have to stop and think about some of the choices I have made recently. I think about the past, about the future, and ocasional think about the present. People that I are in my life, people that are no longer in my life...

I think that it is time that I sit down and make some goals, short term and long term, things that I need to change in my life, things that I want to make me truly happy... I had a dream about M the other night, I drempt that I was sleeping next to him, just cuddeling... I woke up crying... so much emotion..

I took the past monday off sick, I just could not seem to get out of bed.. I felt like I had the world's weight pushing down on me. Its not like I was depressed, just that I didn't have the mental strength to get up out of bed to come to work... I ended up going over to Eric's and we went for breakfast and bummed around a little, that was really nice. it made me think that I should really get a way for a little while, I am supposed to go to Oregon in june and I don't think I will have the 510 together by then... that makes me sad, but I just have not been in a good mental state to work on it. I don't want to push it, if I can't enjoy working on it then I don't want to.

so many things on my mind... so may things that I should really put down somewhere, that I can look at later... I am just not sure how to put them into words.

I think I will stop there. maybe add some more later when I get home and relax a little...

Labels: , , , ,

posted by Dave at 1:56 PM

0 Comments:

Post a Comment

<< Home