<% 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: a sign to come back to my journal....

Sunday, October 24, 2004

a sign to come back to my journal....

Ok so I have not writen in my journal for a while.. and tonight, somthing happened to me that kinda broke me out of the glazed eye view that I have had recently......

Loren and I were at boarders tonight and as we were leaving a young man was helping his mom get in the door she had a walker and I would guess that she had MS, and as she got in, her walker got cought on the carpet and she fell. and could not get up. I was totally horrified, and switched into automatic mode, I asked how I could help and her son said to help her to her knees cause it would be eiser that way. All she could say, is "I am so sorry" I heard loren say over my shoulder "don't worry about it we all fall." and I repeaded his comment. that was the point where I almost broke down crying. I helped her get to her knees and asked if she was ready to stand up. she said to go on the count of three. and on three I lifted and just could not make it all the way to a standing position, I had to get my arms further under her to get her all the way up, again she said "I am sorry" I had to fight back the tears and say no its really ok. after that she seemed to be able to get going again.

As the night went on I started to think about this more and more. I just could not get this image out of my head. as we were walking away, loren said somthing that I think about all the time. when you experence somthing like that it kinda makes your pidly problemes seem so much less important. the more I think about it the more I think how little it would take to be in that persons shoes. to be almost a invilid, and need people th help me do everything.

I believe you have to take time every day to see what you have and be thankfull for every moment because you never know when it will all be over. One small event could change your life forever.......

-T

1 Comments:

Anonymous Anonymous said...

thanks !! very helpful post!

rH3uYcBX

January 2, 2010 11:09 AM  

Post a Comment

<< Home