<% 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: Adventures at the supermarket.

Sunday, March 23, 2008

Adventures at the supermarket.

I have re-written this post like 3 times now, and each time there ends up being so much anger, that I think this time I am going to only write about the stuff that REALLY REALLY made me angry, and none of the frustrating stuff. Maybe later I will go back and write about the frustrations while actually at the store or at the checkout stand or at customer service.

For now I will just focus what happened AFTER the customer service counter... the trip from the customer service counter TO THE CAR....

You know until today, I thought the only real place that things could really go wrong are in the store, or at the check stand or even at the customer service counter... never did I ever think that there could be such issues with actually getting to the car.

Against my better judgment we went to Safeway that was a little distance from my house. When I say we I mean me and my new roommate Brian. I believe this was my first mistake. After getting through the store and the check out and the customer service desk, we headed for the door. He got close enough to the door for the doors to actually open... then his cart just stopped... immediately after that my cart stopped... like would not roll... looking at his cart I could see one of the front wheels had locked. At first I thought this was kind of funny, mine was locked too. Then as I started to realize what was going on, I started to become irritated... apparently there is some kind of time limit between when you check out and when you go through the door before the cart become immobile. All I knew was that I had 200$ with of groceries that I had just paid for and now I could not get them out of the store. They called for the cart wheel unlocker lady, and she came over and unlocked Brian’s cart, and unlocked mine... which promptly re-locked......

This is the next think I heard... "Well just tip it up on its back wheels..." I really think this is what did it for me... 200$ in food that I could not get out of the building and she tells me... oh just tip it back on its back wheels and roll it out to your car. This spun me into a new level of rage, which prompted me to want to tell them... NO... you just refund all of my money and I will go somewhere else. I think one of the only things that stopped me, was knowing I would have to go through this whole process somewhere else, and I was not sure I could handle that... it was a really ugly end to an otherwise wonderful day... think its time to have a couple hundred drinks...

Labels: , , , ,

0 Comments:

Post a Comment

<< Home