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>"& " " & mydiff & " " else myvariable = myvariable & mytestmessage(0) & " " & mydiff & " " 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: "Affirmation"

Thursday, April 3, 2008

I believe the sun should never set upon an argument

I believe we place our happiness in other people's hands

I believe that junk food tastes so good because it's bad for you

I believe your parents did the best job they knew how to do

I believe that beauty magazines promote low self-esteem

I believe I'm loved when I'm completely by myself alone

I believe in Karma what you give is what you get returned

I believe you can't appreciate real love until you've been burned

I believe the grass is no more greener on the other side

I believe you don't know what you've got until you say goodbye

I believe you can't control or choose your sexuality

I believe that trust is more important than monogamy

I believe your most attractive features are your heart and soul

I believe that family is worth more than money or gold

I believe the struggle for financial freedom is unfair

I believe the only ones who disagree are millionaires

I believe in Karma what you give is what you get returned

I believe you can't appreciate real love until you've been burned

I believe the grass is no more greener on the other side

I believe you don't know what you've got until you say goodbye

I believe forgiveness is the key to your unhappiness

I believe that wedded bliss negates the need to be undressed

I believe that God does not endorse TV evangelists

I believe in love surviving death into eternity

I believe in Karma what you give is what you get returned

I believe you can't appreciate real love until you've been burned

I believe the grass is no more greener on the other side

I believe you don't know what you've got until you say goodbye

Dave, a self portrait in words