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

Sunday, August 12, 2007

here at last....

ok... well I am here... finally... so tired I just want to sleep, took some back roads to get here... what am I saying?? all the roads here are backroads. and it cut an easy hour of the drive here.. we unloaded the car, had some food.. I hopped on here to let some friends know I made it, and now I am headed off to bed...

more later I am sure..

Labels: ,

Saturday, August 11, 2007

OMG.... what a trip

ok... so we left... drove through the night to salt lake city.. pulled in at like 2am... just to findout the WHOLE CITY was sold out for hotel rooms... from the utah boarder to Idaho Falls Idaho..... thats like 400 miles of sold out...aperently bacause of a "Reail COnvention" there were 40,000 people in for salt lake city utah. needless to say, we decided to keep going..... once the sun came up, I figured we might as well drive the rest of the way, long story short, (to late) we stopped in pokatilla Utah had some breakfast, and pulled into billings MT, at about 10:30am.

A full 24hours pluse earlier than I had planned... once here I was gonna get a motel and just hang out for a day..... but guess what? thats right no hotel rooms in all of billings... at this point I was ready to just drive to my parents place and come back to billings the next day... I called my mom and between her an I we found a room in north dakota.... luckely that was only about 50 miles away...

Once there, the owner of the establishment gave be the third degree about my jetta and how much he wanted one, blah blah blah. now that we are here in the room, I plan to pass out and put this whole trip behind me... lol... at least it wasn't on my own... I am so glad erich could come with me.. I think I would have lost it on my own.. LOL

Labels: , , ,

Friday, August 10, 2007

loaded and ready..

all packed up... had breakfast with L after I dropped off the plants, got all packed... took a LONG RELAXING shower.. that was SUPER nice... locked up the house turned everything off. Now I am just sitting here waiting to hear back from Erich, and then we should be off.. hope to make it to saltlake city... stay the night there and then make the second half of the drive tomarrow, staying the night, and sending erich off back to here, and picking up sarah.. so far so good.

now its just a waiting game...

Labels: , ,

friday morning, sleeping in

AH, sleeping in... I slep till like 9 today, that was so nice... I still have to pack and get some stuff done, but this is the best way to start the day..

lets see, I have to pack, get the plants over to loren so he can take care of them while I am gone, secure the house, and run to the shop to pick up erich by 2, I think I can do that....

hehe
getting kinda excited now..

Labels:

Thursday, August 9, 2007

Trip across the country

*wrote this earlier and post dated it*

Tomarrow I leave for Montana... I have decided to drive my VW... I think my mom is going to actually buy it from me. As much as I love that car, it would really help for me getting this business I have been thinking about off the ground... humm... thinking, have been doing alot of that lately... life, history, the future, what I want... people in my life both past and present... I think that this trip will e good for me.. it will let me get away... unplug... I don't really do that enough I think...

I recieved a pleselt surprise when my friend erich said he would make the drive to montana with me if I wanted... as much as I used to love it... I really don't like driving long distances alone anymore... even if someone is there sleeping in the seat next to me, I like it better than traveling alone... I find this most odd, because driving alone used to be when I got the most thinking done..

Erich has an apointment tomarrow at 1:30 and will leave some time after that, I believe that salt Lake City is half way between here and montana, so I think that we will stay there....

more later.

Labels: , ,