请问怎样将多行显示的记录，按单双行用不同颜色分开？

代码如下：
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from kehub",gym_conn,3,2
do while not rs.eof
 response.write(rs(0)&"<br/>")
   rs.movenext
loop

谢谢。

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from kehub",gym_conn,3,2
dim count
count = rs.recordcount
for i = 1 to count
if count mod 2 > 0 then
 response.write("<td bgcolor='#000000'>"&rs(0)&"</td>")
else
 response.write("<td bgcolor='#00FF00'>"&rs(0)&"</td>")
end if
   rs.movenext
loop
类似代码