amos a ver...
ahi te va la manera mas comoda de hacerlo, da igual el numero de campos y registros
<%
Dim tamanopagina
Dim aux
Dim contador
Dim cont
Dim elcolor
RS.pagesize= cint(tamanopagina)
%>
<table ALIGN=CENTER bgcolor=#44556F>
<%for aux = 0 to RS.Fields.Count - 1%>
<th ALIGN=CENTER bgcolor='<%=elcolor%>'>
<%= RS(aux).Name %>
</th>
<%Next%>
<%do while not RS.eof and contador <= cint(tamanopagina)%>
<tr bgcolor='<%=elcolor%>'>
<%cont=cont+1
if cont mod 2 = 0 then
elcolor="#B0AFBE"
Else
elcolor="#929AAF"
End if
for aux = 0 to RS.Fields.Count -2%>
<td ALIGN=CENTER bgcolor='<%=elcolor%>'>
<%= RS(aux) %>
</td>
<%next%>
</tr>
<%contador=contador+1
rs.movenext
loop
%>
</table>
quizas tengas ke retocar un poquillo ni lo he provado pero no puede quedar tan mal...
suerte