interrogando il databese estraggo l'elenco di valori presenti e li scrivo nelle righe della tabella che "disegno" con asp

<%

dim conta2
conta2=0

Set Conn=Server.CreateObject("ADODB.Connection")
strConn2="driver={Microsoft Access Driver (*.mdb)}; "
strConn2=strConn2 & " DBQ=" & Server.MapPath("mdb-database/tabella.mdb")
strConn2=strConn2 & ";pwd=" & strCodedb



conn.Open strConn2


set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM tabella ORDER BY nome ASC", conn, 1, 3


Response.Write "<table>"


While Not rs.EOF
conta2=conta2+1
if rs.eof<>true and rs.bof<>true then


Response.Write "<tr>"

Response.Write "<td>"
Response.Write conta2
Response.Write "</td>"

Response.Write rs.fields("1")

rs.movenext
end if

Response.Write "</td>"
Response.Write "</tr>"


wend


Response.Write "</table>"

RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

%>

vorrei fare in modo di impostare ogniriga della tabella con un colore diverso, facendolo fare in automatico per avere una gradazione tipo che partendo dal nero arriva al bianco comprendendo tutti i colori


avede idea di come posso fare?