Entonces lo que tienes que hacer es:
If Rs.BOF And Rs.EOF Then
NO MOSTRAMOS NADA
else
contador = 1
While Not rs.EOF
if NOT Rs.EOF
PINTA LA TABLA 1 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if
if NOT Rs.EOF
PINTA LA TABLA 2 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if
if NOT Rs.EOF
PINTA LA TABLA 3 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if
if NOT Rs.EOF
PINTA LA TABLA 4 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if
Wend
End if
Pero recuerda, tienes que pintar la PRIMERA LINEA de la tabla entera, y dentro de cada celda AÑADIR una tabla nueva con los IF NOT Rs.EOF
Es decir:
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
AQUÍ DENTRO VA LA TABLA 1</td>
<td>
AQUÍ DENTRO VA LA TABLA 2</td>
<td>
AQUÍ DENTRO VA LA TABLA 3</td>
<td>
AQUÍ DENTRO VA LA TABLA 4</td>
</tr>
</table>
Y cuando me refiero a que va la TABLA 1 es que va todo este código:
if NOT Rs.EOF
PINTA LA TABLA 1 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if
Dime si lo vas cogiendo