<% 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, January 11, 2008

More detail on the future plan

Detail on the plan for the future. I was talking to cam today, the subject of pets came up. I have bee thinking I would get a puppy after I get resettled away from travel n stuff. Would help serve the purpose of keeping me active and help keep me from jumping into a relationship just for the companionship. On that theme of being ok with me before trying to be ok with someone else in my life.. I have done it before and I feel confident I can do it again.

These thoughts make me really miss cruiser and to a lesser extent gizmo (mostly cause he ate my stuff lol oddly only the leather stuff. Dam S&M dog lol)

I have also been thinking that I would prolly reduce how much I have been driving. I plan to go on A very strict budget starting February 1. Get out of debt like totally other than the house.

Pay down the tangerine and roll it into into the house, sell the jetta to mom and dad finally. Ramp up the 401K maybe even start an IRA. I would like very much to stay at this new job 10 years or more..

On that note I think its time I work on my degree again, and go into management. Its really the way I feel myself being pulled. And the next logical step.

There you have it some more detail for my future.. I am still working on steps. I have to get done traveling before I van make to many more detailed plans.

Labels: , ,

Sunday, August 19, 2007

In the Salt Lake City Airport

so here I am... sitting in the salt lake city airport, waiting for my flight to phoenix... I find myself really excited to be coming home... I even feel ready to come back to work.. I am going to try to have a positive attitude for the remainder of my time there... I have to get a hold of this and stop letting it run my life. I think that if I could do that, it will be better for me and everyone around me. I might even be able to get more done at work.. I feel that lately I have been slipping, as my motivation declined, I got less done, and really didn't care if I got anything done... That is not who I am, so this break and time to reflect was good for me..

I do have to say that this is the most relaxing time I have had in montana, of all the times I have visited. I really think that alot of it has to do with the fact that I didn't "try" to do anything while I was here.. hung out with the family.. did a few fun things, but for the most part, just relaxed, played on the computer and didn't stress about things. In Fact since my last post, I went with dad out to water the trees with the firehose in the back of the truck... I adjusted the headlights on the jetta... and other than that I think I watched tv and played some computer games... Looking back, these are the vacations that I remember the most.. the ones that I just sit around doing nothing... relax and just be as my mom would say, "A bump on a log" not really sure what that means, but it seems to fit.. LOL..

I look forward, now smileing... at where I am going, where I have been, looking forward to the challenges ahead of me... I think that the rest of this year will bring alot of groath and smiles for me..

Labels: , , , , ,