metti in un array tutti i colori che vuoi e poi scorri l'indice (tornando indietro una volta raggionta la fine dell'array)
codice:
<%
dim bgcolor
aColori = Split("red,green,blue,black",",")
col=0
while NOT RS.EOF
bgcolor = aColori(col)
titolo =rs("titolo")
id1=rs("id") %>
<tr>
<td bgcolor="<%=bgcolor%>" width="425" height="13" colspan="2">
<a href="schedawebmarketing.asp?id=<% response.write(id1) %>">
<%
response.write(titolo)
%></a></p>
</td> </tr>
<%
col=col+1
if col>UBound(aColori) then col=0
Rs.movenext
wend
Rs.close
set Rs = nothing%>