sayi=0
for each z in rs.fields
sayi=sayi+1
if sayi=2 then
bgColor="#ff1525"
sayi=0
end if
Response.Write("<tr><td "&bgColor&" align=left>" & z.value & "</a></td>")
next
users=users+1
rs.MoveNext
Response.Write("</tr>")
loop
rs.close
conn.close

Bu şekilde bir satırı farklı bir renk yapabilirsin.
Veri tabanından sadece istediğin kayıtların listelenmesini istiyorsan where kullanabilirsin.