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

Friday, April 24, 2009

am ok

today... I am ok, was nothing special about today, but I am ok. I think that I will focus on being ok for a little while, before trying other things. its been a really trying couple of weeks, and its time to just concentrate on being ok, one day at a time... heck one minute at a time. the rest will come after that, with a little Patience

Labels: ,

posted by Dave at 5:08 PM 0 Comments

Saturday, September 8, 2007

The Drive to Dubfest

so I took off from work early enought to get a hair cut, get back to the house make sure I got everything and head out. (as it turns out I fort my charger for my phone, more on that later) I made it to the meeting spot about 30 minutes before everyone left, got myself a oreo frosty from wendys and a gatoraid from the mobil. By this time people started showing up. As per my pervious experience, I met the VW guys and they were all really cool. serveral really nice cars too, a couple R32's couple 20th of anaversery golf's some passats, a couple audi's I guess by the time we left, there were 15-20 cars.

once were were on the road and out of traffic it became very apperent to me that we were gonna make it out there in a very small ammount of time. we stopped in blyth to fuel up, (my car got about 25 even at that speed which kinda surprised me) then everyone wanted food. we ended up being there for about an hour. once back on the road it was more of the same.

We pulled into where the hotel was at about 10:30, I ended up being able to get a hotel room there at the host hotel, we all went and got some food and then sat around and just talked till prolly almost 1am. everyone has now gone to bed, and I smileing. its been a really good trip so far. looks like I am gonna go see kristina tomarrow catch some lunch, pick up some sprinkles (cupcakes) for people back in AZ that yelled at me for not bringing them back the last time..

well I think I am gonna head off to bed, as it is VERY late now

Labels: , , , , ,

posted by Dave at 1:53 AM 0 Comments