<% 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, May 11, 2007

First week in the new house

Well today marks my first week in the house... through the trials and tribulations, I find myself now questioning if this was the right choice, wondering is there was another way. I keep telling myself that this was the only way. When I see the beautiful home that I now live in, I think that this will be the place that I call home in the future, and for a while. currently it doesn't quite feel like home... there is just something missing for it to be home. I know what it is, but I also know that this the way things need to be. That this is how It needs to be for me to move forward and to be a participant of life instead of just along for the ride.

I even miss that little evil doggy that used to chew up my stuff... How odd is that? I have thought several times about getting a furry little mongrel of my own, but I think that it would not be fair since I am gone so much, maybe I need to get a roommate... someone to rent the extra room. Lots of random thoughts as I end the week.

On the lighter side, there are alot of positive things that have happened in the last week. I have been able to spend some quality time with my thoughts, as i have fixed little things wrong with my new house.... that still sounds weird to say; My House... ya still doesn't sound quite right, I just still feel like I should be saying "our house". I have fixed 80-90% of the irrigation leaks that I have had with the irrigation system, which makes me happy. I have 2 places that I need to run new lines, one because there is not one run already, and the other because the line is all cracked and needs to be replaced. I think I will try and get that accomplished this weekend. That should keep me busy, I think I will try and get the 510 up and going as well, I need to replace a couple lifters and then get it emissions tested so that I can drive it.

Labels: , ,

Monday, May 7, 2007

Monday after moving.

Well, here I am... sitting at work, a home owner. Wow that really sounds weird to say...

I got a call late on Friday afternoon saying the house had funded and was officially recorded. being neurotic about the whole thing, and having loaded up Erich's borrowed truck and trailer the night before at midnight, I was more than ready to go. Went and met the listing agant at the house, (who also lives 3 doors down) to pickup keys. The Previous owners grandauter was there, tieing down the king size bed that her father/grandfather had given to her (instead of me as he had promised oh well) so I got to meet her, which was more than a little weird.

Since I am at work, I need to condence this a little bit. I got that load of stuff into the garage and made one more that day, then it was time to go see cammeron's play. Erich came up and met me at my new place and we both took the woody wagon out to the play which was in goodyear.... I can't belive how far out that is... LOL The play was really good and after it was over we all went to in and out, Cam decided he wanted to come up and see the new place...

The first night spent in my new place was a little odd, little sounds that I was not used to, the shadows cast on the wall and of course all my stuff not put away yet. Saturday I spent most of the day moving stuff, Loren and I went to breakfast and he helped me out quite a bit. We moved the two non-drivable cars to the new house, and got the rest of the stuff from his place and what I had purchased from the neighbor so by the end of the day, most everything was moved. Loren and Erich came over, we had pizza and moved some stuff around, they both went home and I got in the hot-tub and relaxed, that is SOOO wonderful LOL...

Sunday I spent most of the the day running around returning the trailer and going to the home depot, then hanging out with Erich N and his roommate jon. we came back to my place and they helped me pull some cable from one room to the other, I need to call cox today and look into cable service and internet. the house has never had cable, so I will have to see if they are goint to charge me or not..

I think that is all the update I have so far, wanted to get something written down since I don't have internet at the house yet, figured now is as good of a time as any to get all this stuff in writing.

Labels: , , , ,