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
