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

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

Thursday, January 10, 2008

Time alone

so I have had time to spend alone lately. So far I think its been good for me. I look forward to the changes coming in the next month or so. getting a chance to start over with alot of things. a chance to make changes for me. I have actually started mapping out steps, and I think I will post them here once a few more things fall into place. I want this year 2008 to be the year that I fix the last of what has been broken with me for so long. I would love to see 200 lbs again. I would really like to start trying new foods that I in the past have not liked. I would like to have 2 cars in the garage that I can actually drive. To have a yard that I don't have to be embarrased about (no comments from anyone who says "Your yard is just fine"). I would also like to take the time to decorate the inside of my house and make it more than just plain walls.

These are the highlights. details will come in the following weeks.

I think I can smile again, and if not now, then soon. for no reason. I remember those days, that I was just happy. it bugs me how I can slip into places where I have to think about smiling.

soon I think. soon I will be back there. I really look forward to being home again.

*smiling* now, and not having to think about it. just need to make that a more often thing now

Labels: , , , , , , ,

posted by Dave at 8:09 AM 0 Comments

Tuesday, May 29, 2007

blog side note

I have noticed that my blog has taken a darker turn. This has not been intentional, and I plan for that to change here in the upcoming weeks, I think that this is also part of the goals things I will be working on. Smile its a 4-day work week....

Labels: , ,

posted by Dave at 8:08 AM 0 Comments