Se vuoi che solamente la risposta iniziale sia colorata quando la recuperi imposti il colore dello sfondo

<td bgcolor="colore">

Se invece tu vuoi che succeda un po' come in questo forum che i colori sono alternati puoi fare semplicemente così :

<%
colore=1
Do while not rs.EOF then
if Cint(colore) Mod 2=0 then
%>
<tr>
<td bgcolor="colore_celle_pari">
<%=rs("nome_campo")%>
</td>
</tr>
<%
else
%>
<tr>
<td bgcolor="colore_celle_dispari">
<%=rs("nome_campo")%>
</td>
</tr>
<%
end if
colore=colore + 1
rs.MoveNext
Loop
%>








<font size=3> -¦» Rome Webmaster «¦- </font id=size3><font size=2> <b> [</b> Alla prossima<b> ]</b> </font id=size2>