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

Thursday, April 3, 2008

Prince Puppy

So I have not written much about my new puppy, who is quickly becoming not so puppy-ish. I have not written about him much due to the frustration and really the anger, I have had with him. It seemed that no matter what I tried I was met with things that aggravated and frustrated me. Last night I played with him for at least and hour or so and realized that there was no drama. This is due to in part him growing up, but also due to me finding patients, and also several talks I have had with Brian my new roommate. Ya I give Brian crap about not being real bright from time to time (just being mean of course) and we mess with each other from time to time, but when it came to pets, he really has a connection that I don’t understand. After just a few minutes with Sprocket, he was able to make him behave and was quite present. I am sure that a lot of my anger and frustration comes out in my actions and I don’t even realize it. (ya ya I know I can already hear people saying “TOLD YOU SO”) lol

I think that I will start posting more pictures of Sprocket. He is a cute dog and attracts attention wherever we go. I hope to have him leash trained by pride, I think that would be a lot of fun, guess time will tell.

Labels: , ,

Monday, February 11, 2008

Time to update

Its been a while since I have written in these pages. I took a break for several reasons, the biggest being that I was in a transitional point in my life. had alot of stuff going on and needed to just take care of everything, and this took a back-seat to that.



Since then, thigns have calmed down considerably and I am starting to feel normal again. I left my traveling job, I have sence found work that is local, to both PHX and my house. This has been a huge help, as traveling so much with everything else that was going on was REALLY stressfull. I also have continued to make mistakes, and make things worse that they prolly needed to be with some of the stuff in my life. I think now that I have reach a point where its just going to be time that tells me what direction that I go next.



On the lighter side there is an addition to the family, somthing I have been thinking about for a long time, and now I think I can actually accomplish.



For the first day and a half he went by nameless pup. But I think that his offical name is going to be sprocket. As you can see he spends lots of time sleeping, I think that this is a very temporary thing. He is a Boston Terrior, and they are known for being crazy hyper. we will see how it goes, but I look forward to not having such an empty house. Because the new job is close to work, I can come home for lunch and play for an hour or so. and then go back and finish up.

I have a pretty good feeling that there will be several posts about him in the near future. Somthing to move me away from some of the other issues I have been having.

more later

Labels: , , , , ,