<% 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: February 2009

Friday, February 27, 2009

goodish day

Today is not too bad, it’s been a rough week, but today is not bad. I wish I didn't have so much to do after work, but at least it’s not a bad day. I signed up for some internal management classes. I attempted to help the team resolve some internal conflicts. been generally productive so far.
 
I have hope for the future again, for the first time in a couple weeks. thinking about things differently, letting go of the things I cannot change, accepting the things I cannot change.
 
I send this out to the universe. "I am ready to see what the future holds, I am ready to let go and let it be."
 
-D
 

Friday, February 13, 2009

my arms

heard an original version of this, a slow version of this. Heard the words.... I cried... i smiled... I felt sad, and I felt happy... Safe in my arms... one the few things that I really feel like I can offer someone... to quote a movie that seems to fit...

" They look like big, good, strong hands. Don't they? I always thought that's what they were, but I couldn't hold on to them. they were pulled right out of my hands. I failed. "

Plumb In my arms

your baby blues
so full of wonder
your curley cues
your contageous smile
and as i watch
you start to grow up
all I can do is hold you tight

knowing clouds will raise up
storms will race in
but you will be safe in my arms
rains will pour down
waves will crash all around
but you will be safe in my arms

story books full of fairy tales
kings and queens and the bluest skies
My heart is torn just in knowing
you'll someday see the truth from lies

knowing clouds will raise up
storms will race in
but you will be safe in my arms
rains will pour down
waves will crash all around
but you will be safe in my arms

Castles they might crumble
dreams may not come true
but you are never all alone
because I will always
always love you

clouds will raise up
storms will race in
but you will be safe in my arms
rains will pour down
waves will crash all around
but you will be safe in my arms

Labels: , , , ,

Wednesday, February 4, 2009

life, hate, and the world

Lately, I have been doing alot of thinking about the the world, and how much hate there is in it. I wonder how it got this way, how people will honk at someone who pulls over to help someone who has gotten in a accident, how someone can hate someone for reasons that have no baring on them at all.

I have started having very vivid disturbing dreams, about hate, and death, and all the uglieness in the world. I remember a time when it used to be so much eiser to just be upbeat, to ignore all the bad in the world.

I think alot of how I feel comes from being beat up by life the last couple of months. I keep telling myself that things will turn around. they will calm down, And maybe now... maybe thats the direction things are heading.

I am trying very hard to let the things I don't have control of go, and embrace the things in my life that are good, and that I should be thankful for. I have to hope that now is that time, the time that things will stabilize, and I can work on finding even more good things.

here is to keeping my fingers crossed once again.
-T

Labels: ,