text fade

jeg har brugt denne text fader
http://www.bosiljak.hr/fadermaker/
til at adde noget java kode til en asp jeg bruger til nyheder på forsiden af et forum..

og det er det eneste java der har virket sammen med asp siden..

nu har jeg bare det problem at den kun skifter farven på den øverste nyhed.. og den skulle helst gøre det på alle sammen..

lige nu lister den dem også over hinaden..
det kunne være fedt hvis man kunne få dem til at skifte ved at fade så der kun stod en nyhed af gangen

nu kan i lige prøve at se hvad jeg har lavet endtil videre

<script type = "text/javascript">
//Created by Fader Maker (http://www.bosiljak.hr/fadermaker/)
var fmTimer = null;
var fmfg = false;
function fminit(){
if (!document.getElementById) return;
fma1=0xff; fma2=0xff; fma3=0xff;
fma4=0x00; fma5=0x00; fma6=0x00;
if (!fmfg){
fmtemp=fma1; fma1=fma4; fma4=fmtemp; fmtemp=fma2; fma2=fma5; fma5=fmtemp; fmtemp=fma3; fma3=fma6; fma6=fmtemp;
}
fmfg = !fmfg;
fmFade();
}
function fmToHex(n){
var hexChars = "0123456789ABCDEF";
if (n == 0) return "00";
var j, n;
var temp = "";
while (n != 0){
j = n % 16;
n = (n - j)/16;
temp = hexChars.charAt(j) + temp;
}
if (temp.length < 2){
temp = "0" + temp;
}
return temp;
}

function fmFade(){
obj = document.getElementById('tekst').style;
fmcolor = "#" + fmToHex(fma1) + fmToHex(fma2) + fmToHex(fma3);
obj.color = fmcolor;
if (fma1 != fma4){
if (fma4 > fma1){fma1++;}
else{fma1--;}}
if (fma2 != fma5){
if (fma5 > fma2){fma2++;}
else{fma2--;}}
if (fma3 != fma6){
if (fma6 > fma3){fma3++;}
else{fma3--;}}
if ((fma1 == fma4) && (fma2 == fma5) && (fma3 == fma6)){
window.clearTimeout(fmTimer);
fminit()}
else{
fmTimer = window.setTimeout("fmFade()",50);
}
}
onload = fminit
</script>

<%
on error resume next
set news_config = My_Conn.execute("select * from "& strTablePrefix & "News_Config")
strNewsState = cint(news_config("show_news"))
strNewsItems = cint(news_config("num_items"))
if strNewsItems =< 0 then
    strNewsItems = 4
end if
if strNewsState = 1 then
    Set objRec = Server.CreateObject ("ADODB.Recordset")
    response.write    "<table align=""center"" width=""100%"" border=""1"" bordercolor=""000000"" cellspacing =""0"">"
            dim i,cmdate,cmdate2
            if strDBType = "mysql" then
                sqlstr = "select n_text,n_date,m_name from "& strTablePrefix & "NEWS,"& strTablePrefix & "MEMBERS where "& strTablePrefix & "NEWS.member_id = "& strTablePrefix & "MEMBERS.member_id order by n_date desc limit "&strNewsItems
            else
                sqlstr = "select top "&strNewsItems&" n_text,n_date,m_name from "& strTablePrefix & "NEWS,"& strTablePrefix & "MEMBERS where "& strTablePrefix & "NEWS.member_id = "& strTablePrefix & "MEMBERS.member_id order by n_date desc"
            end if
            objRec.Open sqlstr, My_Conn
            objrec.movefirst
            cmdate = ""
            cmdate = CStr(left(objrec.fields("n_date"),8))
            strDate = trim(objrec.fields("n_date"))
            cmdate2 = CStr(left(objrec.fields("n_date"),8))
            strDate2 = trim(objrec.fields("n_date"))
            Do While not objRec.EOF
                if cmdate2 = cmdate then
                else
                    intStrTrim = Instr(StrToDate(objrec.fields("n_date"))," ")
                    cmdate = CStr(left(objrec.fields("n_date"),8))
                end if
                response.write"<TR><td border=""1"" bordercolor=""" & strForumCellColor & """ align=""center"" bgcolor=""" & strForumCellColor & """  valign=""top""><font face=""" & strCategoryFontColor & """ size=""4"" color=""" & strForumFontColor & """><span id=""tekst"" style=""font-size:xx-largepx; font-family: Verdana, Geneva, sans-serif; letter-spacing:normal; font-weight:bold; font-style:normal; padding-left:20px; padding-right:20px;""> "&FormatStr(objRec.fields("n_text"))&" </span></font></td></tr>"
                objrec.movenext
                cmdate2 = CStr(left(objrec.fields("n_date"),8))
                strDate2 = trim(objrec.fields("n_date"))
            loop
            objrec.close
            objRec = Nothing
    response.write"</table><BR>"
end if
%>

eksempel på nyheds scriptet
http://www.rollespilcentralen.dk/forum/yabbsed/index.php
(det er vidst bare i php men samme koncept)

håber i kan hjælpe nu har jeg prøvet google og søgt hele ekspertens database igennem uden held..