<% 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, November 23, 2009

Just happy

Tonight I write, and I am happy. Just happy. I have had so many wonderful things that have happened recently both in my personal life and in my work life. Simple choices, choosing a direction and just pressing forward. Each step is a step closer to a better tomorrow. I am happy with where I am going, and almost happy with who I am as a person. Few more things that I need to work on, but I see a future, and better yet a very happy future, where I smile and enjoy the little things.

it takes such a small change to make a difference, a choice, some kind words, lending a helping hand, even a smile. yesterday, the smell of freshly washed bedding made me smile. Today, I changed my voice mail message so it didn't sound... well so it didn't sound so depressing. LOL

I had a long talk with a friend, that also gave me hope for the future. I am letting the emotion come, and dealing with it when it comes, but for the most part, letting the bad go and holding on to every good moment. It feels good to smile, and I want to keep it up.

I feel the warmth and the happiness again. That means more to me, than anything else.

Labels: ,

posted by Dave at 8:11 PM 0 Comments

Tuesday, October 27, 2009

So many Downer posts.

I was just brousing through my posts, and realized.. I have to many painful hurt posts. I think I need to really work on posting more when I am happy. Like today... Today, I cried, but I am happy. Sometimes I work so hard to help the people I care about be happy, and now, I am happy to hear that someone I care about is happy and again enjoying their life.

In Life it is SO hard to keep in mind all the good things that have happened to us, it seems so easy to be hurt and remember only that. To feel the horrible feeling over and over agian. I have never really understood it, but it seem it happens to many people. I don't want to be one of those people. By nature I am... or at least I used to be optimistic about everything, finding happieness in the stupitest little thing.

I have found myself in a place where I have changed the basic parts of who I am, for reasons that I do not think are good ones. After making so many mistakes it seems so easy to stand at this place in my journey through life and think. "I am no good at this at all."

This week I have made a commitment to myself. I am going to do my very best to move forward from here, Concentrate on those parts of my life that need work, and one step at a time I am going to focus on making each day of my life a little better than the last.

Eventually I think that I could actually get to a point where I can look myself in the mirror and say, "I have done a good job fixing the broken pieces, and am happy with the direction I am now going." Putting so many things off, relying on to many people for things that I should be dealing with myself. It has been time to set a stake in the ground and say.. HERE... This is as far as I go, I am ready to start climbing out of this hole that I have put myself in.

I know, that I have started this before, and I have repaired some of the really broken stuff. Its time to figure out a way to keep on this track. To make it out of the hole and start back on the journey of life.

Labels: , , ,

posted by Dave at 9:14 AM 0 Comments

Sunday, August 31, 2008

More writing

I have decided I really need to write more, and more about the good things in life, ya there is always bad stuff to talk about, but why not write about the good stuff, the things that make me smile.. Sprocket looking at me from outside licking the window, as if to say. "Come out and play with me daddy." He sure has been a trooper lately, I think that pets know. That they sense when you need them the most and just turn it up in just the right ways.

Spent a lot of time with friends today, something that I don't write about enough. I have to say that I am pretty blessed to have the group of friends that I do, always a good time, always willing to do something... whatever that might be.

My roommate had a little crisis today, and I was able to help him out, that kinda made me smile, its seems like so long since I felt like I could do something really positive for someone else. Today, I think I was able to do that a couple times, so it made me smile.

Tomorrow I hope to have another post, hopefully with pictures, but we will see how that goes.

Labels: , , ,

posted by Dave at 8:35 PM 0 Comments