Algo muy curioso

[mjoseandrea]

Hola. Tengo una página en la cual hago referencia a una base de datos con libros y resulta que al recorrer la tabla y al escribir los campos, me escribe en la página los registros duplicados, quiero decir me sale el autor1 y otra vez el 1 y luego el 2 y otra vez el 2,... una cosa muy curiosa porque no sé qué puede ser. Os muestro el código a continuación:

TamPagina = 10
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina

Response.Write("<TR><TD ALIGN=LEFT VALIGN=TOP>"&rs.Fields("Id")&"-- "&rs.Fields("Autor")&"</FONT></TD></TR>")

CuantosRegistros=CuantosRegistros+1

rs.MoveNext
loop


Es decir me impreme en pantalla:

502-- ZAMORA
502-- ZAMORA
425--Alberto MORAVIA
425--Alberto MORAVIA
697--Alejandra RACHMANOVA
697--Alejandra RACHMANOVA
1023--Bertha HARRIS y Dr. Emily SISLEY
1023--Bertha HARRIS y Dr. Emily SISLEY
1953--EL CABALLERO AUDAZ
1953--EL CABALLERO AUDAZ

Duplicados!!! no sé porqué.
Alguien podría ayudarme por favor???
Gracias.