<% 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, March 21, 2008

Music

I do a lot of thinking and talking about music... I am not sure why but the part that I seem to always forget is how also therapeutic it can be. Last night was rough for me emotion wise, and this morning was full of anger. From the dog not coming out of his cage when I opened it and when I turned around to open the door having him come out and pee right on the floor.... to my new roommate having his ex whom he just broke up with stay the night. I drove to work thinking that today would be a long one. Once I was here, (about 6:10 or so) I put turned on the I-pod and looked through my play lists. The event by Tony Moran caught my eye (thank you rich) I had forgotten I had put it on my I-pod, after buying the CD several months ago. I am not into track 3 and a quiet calm is settling back over me. I wish that I could remember this more often. Music doesn't have to be sad, it doesn't have to hurt or be stuck in the past. I have plenty that is just good.

On the lighter side, I am actually looking forward to going and working with Rob tomorrow, he sent me a message saying he has had some relationship crap going on (seems to be going around) and that he has been working long hours. I have always enjoyed hanging out with him; although it has been a while it’s a quiet good time. Usually filled with laughter about all kinds of geeky stuff, something that I usually don't find outside of work. Makes me sad too, because he deserves to be happy. One of those genuinely good people.

Labels: , ,

posted by Dave at 6:34 AM 0 Comments

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: , , , , ,

posted by Dave at 7:48 AM 0 Comments