Como mostrar la ubicacion de una Recordset

[elsabio]

Hola amigos, temgo un problemita.

Necesito imprimir los valores de un Recordset, es decir: si tengo 100 registros para mostrar, tambien debo de mostrar el lugar de cada registro.

Esta es el Codigo

<%
Dim oConn, rs, SQL
set oConn = Server.CreateObject("ADODB.Connection") ' conexion
set rs = Server.CreateObject("ADODB.Recordset") ' recordset
oConn.Open "DSN=Prueba"
SQL="SELECT * FROM Libros;"
rs.Open SQL, oConn

while not rs.EOF

Response.Write(rs.Fields("Titulo") & "<BR>")

rs.MoveNext
wend
%>


Trabajo con Access y ASP

Ejm.

Nro Titulo
1 -- Titulo1
2 -- Titulo2
3 -- Titulo3
4 -- Titulo4
...

No se como mostrar una columna indicando la ubicacion de dicho registro (Nro: 1,2,3, ... )

espero q me hayan entendido

[DeLaVega]

Si en la base ponés un campo ID que sea el número del título, después podés recuperarlo e imprimirlo en pantalla al igual que el título. Si no querés hacer esto, otra alternativa es asignarle a una variable el valor 0 antes de entrar al while e imprimirla e incrementarla dentro del mismo.
Saludos, suerte.

[elsabio]

Gracias deLaVega, no tengo muy claro . Podrias facilitarme el codigo usando WHILE por favor, te lo agradecere mucho.

[DeLaVega]

Bueno, si te sirve lo de la variable es así (si no te sirve y querés lo de la base, avisá):

<%
Dim oConn, rs, SQL
set oConn = Server.CreateObject("ADODB.Connection") ' conexion
set rs = Server.CreateObject("ADODB.Recordset") ' recordset
oConn.Open "DSN=Prueba"
SQL="SELECT * FROM Libros;"
rs.Open SQL, oConn

Dim nro
nro = 1

while not rs.EOF
Response.Write nro & " " & rs.Fields("Titulo") & "<BR>"
nro = nro + 1
rs.MoveNext
wend
%>

Chequealo.
Saludos, suerte

[elsabio]

Muchas Gracias DeLaVega, funciona a la perfecion.

Cuidate y muchos exitos