Presentera databas

Jag undrar om någon vet hur man gör för att presentera data från en databas med olika färger på raderna i tabellen? Jag har försökt med följande kod men inte lyckats. Det fungerar inte om databas-tabellen har ojämnt antal rader.

<%Do Until RecSet.EOF%>

<tr bgcolor="White">
 <td><%=RecSet("Fält1")%></td>
 <td><%=RecSet("Fält2")%></td>
</tr>

<%
if RecSet.EOF = true then
RecSet.MoveNext
%>

<tr bgcolor="Black">
 <td><%=RecSet("Fält1")%></td>
 <td><%=RecSet("Fält2")%></td>
</tr>

<%
RecSet.MoveNext 
loop

else
exit do
end if

RecSet.Close
Connect.Close
%>