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

Sunday, June 21, 2009

Mistakes

I have made so many mistakes in my life.. It's hard to continue making choices knowing my track record. Wish that it was eaiser to "move on" that I didn't get so "attached" so easly.

I am so lost, I need to figure out who I am. I know what I want, and what I need. But none of that seems to matter, as I do not have control.

I am me, one day at a time, I will survive, just wish I knew how it was all gonna work out.

Labels: , ,

Thursday, August 14, 2008

lot on my mind tonight, up late

So I am awake, not really tired, not really interested in going to sleep. seem to have alot of thoughts on my mind tonight. I wish that they were new thoughts. I wish that I didn't have to keep reliving some mistakes. Maybe if I learned the first time, I could not make them again.

Thought alot about being told "You always have to be right." The more I think about it the more I see that he is right, I guess I always have had to be. have to think about what that means, how it could change, or if it should change.

Not really looking forward to getting up and going to work tomarrow, but I guess thats part of the process. will game for a little while long, then will go to bed.

Labels: , ,

Thursday, July 31, 2008

The winner takes it all

I don't wanna talk
about things we've gone through
though its hurting me,
now its history,

i've played all my cards
and thats what you've done too
nothing more to say
no more ace to play

the winner takes it all
the looser standing small
beside the victory
thats her destiny

i was in your arms
thinking I belonged there
i figured it made sense

building me a fence
building me a home
thinking I'd be strong there

but I was a fool
playing by the rules

the gods may throw the dice
their minds as cold as ice
and someone way down here
looses someone dear

the winner takes it all
the looser has to fall
its simple and its plain
why should I complain

tell me does she kiss
like I used to kiss you
does it feel the same
when she calls your name

somewhere deep inside
you must know I miss you
but what can I say
rules must be obeyed

the judges will decide
the likes of me abide
spectators at the show
always staying low

the game is on again
lover or a friend
admitting I was small
the winner takes it all

i don't want to talk
cause it makes me feel sad
and I understand
you've come to shake my hand

i apologize
if it makes you feel bad
seeing me so tense
no self confidence

but you see
the winner takes it all
the winner takes it all
the game is on again
a lover or a friend
admitting I am small
the winner takes it all

the winner.... takes it all.....

Labels: , ,

Monday, July 14, 2008

in late

So I came into work tonight, it was just easier, had some issues with some software that I was working with at home, and was not able to fix it there. I also have a head full of junk rumbling around and just needed to get away from the house.

I feel like I have been pretty productive tonight, at least as far as work goes. I think its time to spend some energy picking up some stuff I have neglected though, I think I may try and do that after work tomorrow... well today technically I guess.

At least I got done what I had planned to get done for work. I may do this more often, its really quiet here and I enjoy the time alone.. the house seems to be kinda full lately.. well more later I suppose

Labels: , , ,