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

Tuesday, July 7, 2009

How Lucky am I.

Quote from a movie:

"do I love him? I adore him, hes my comfortable afgan, hes all I can think about, everything he is. everythign he says. everythign he does, to me, for me, with me, sweet kisses, he makes up for all the greif and pain I have ever had. in the dark of the night he is there."

How lucky am I to have gotten the chance to experience this. With so much pain and hate in the world. To know that it is possible, to find somthing so good, so wonderfull. Somthing that totally overpowers all the crap, and makes it not matter. I have also learned, that I can continue to love those people that mean the most to me, even if things have changed, and they may not feel the same.

This is enough to find the motivation to now move on, on my own, stronger, and ready for the next wonderful thing to come into my life.

Everything happens for a reason

Labels: , ,

Saturday, March 21, 2009

Woke up to patch adams on the TV, just in time to hear these quotes... prolly the perfect way to start a morning.

You're focusing on the problem. If you focus on the problem, you can't see the solution. Never focus on the problem!

See what no one else sees. See what everyone chooses not to see... out of fear, conformity or laziness. See the whole world anew each day!

Labels: , ,

Friday, July 18, 2008

Colection of famous quotes

I am here getting ready to go to San Fransisco, been cleaning and packing. came my collection of quotes that mean something to me, and thought I would post a couple here.





I've arrived at this outermost edge of my life by my own actions. Where "I am" is thoroughly unacceptable. Therefore, I must stop doing what I've been doing.
Alice Koller, An Unknown Woman, 1982

halfway through the journey of my life, I found myself in a dark wood, for I had lost the right path.
Poet Dante

Don't be too timid and squeamish about your actions. All life is an experiment. The more experiments you make the better.
Ralph Waldo Emerson (1803 - 1882)

They always say time changes things, but you actually have to change them yourself.
Andy Warhol (1928 - 1987), The Philosophy of Andy Warhol


It's not that some people have willpower and some don't. It's that some people are ready to change and others are not.
James Gordon, M.D.

Change has a considerable psychological impact on the human mind. To the fearful it is threatening because it means that things may get worse. To the hopeful it is encouraging because things may get better. To the confident it is inspiring because the challenge exists to make things better.
King Whitney Jr.

We did not change as we grew older; we just became more clearly ourselves.
Lynn Hall, Where Have All the Tigers Gone?, 1989

Any transition serious enough to alter your definition of self will require not just small adjustments in your way of living and thinking but a full-on metamorphosis.
Martha Beck, O Magazine, Growing Wings, January 2004

Love is not enough. It must be the foundation, the cornerstone - but not the complete structure. It is much too pliable, too yielding.
Bette Davis (1908 - 1989)


The meeting of two personalities is like the contact of two chemical substances: if there is any reaction, both are transformed.
Carl Jung (1875 - 1961)


To love and be loved is to feel the sun from both sides.
David Viscott, How to Live with Another Person, 1974


All love that has not friendship for its base, is like a mansion built upon sand.
Ella Wheeler Wilcox, O Magazine, February 2004


Love is the triumph of imagination over intelligence.
H. L. Mencken (1880 - 1956)


There is no remedy for love but to love more.
Henry David Thoreau (1817 - 1862), Journal, July 25, 1839

Labels: , , , ,