Hola, veo que has usado el código que yo mismo publiqué en las FAQ`S de este foro... Bien bien... No se por qué te falta esto (debe ir justo encima del comentario "Sumamos 1 a los mostrados"):
Código:
' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not reg.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To reg.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write reg.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
Lo mejor es que lo vuelvas a copiar:
http://www.forosdelweb.com/showthrea...23#post1476523