<%language=VBScript%>
<%
dim NombreEjemplar(10)
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("arreglos.mdb")&";"
sql = "SELECT * FROM arreglos ORDER BY ClaveEjemplar"
Rs.Open sql, Conexion, 3,3
Response.Write "El número de registros es: " & Rs.RecordCount & "<br><br>"
'1a parte
DO WHILE NOT Rs.EOF
NombreEjemplar(i)=rs("NombreEjemplar")
RESPONSE.WRITE "NombreEjemplar(i) es: " & NombreEjemplar(i) & "<br>" & "i es: " & i & "<br>"
rs.MoveNext
loop
'2a parte
rs.MoveFirst
FOR j=0 TO Rs.RecordCount
RESPONSE.WRITE "NombreEjemplar(i) es: " & NombreEjemplar(i) & "<br>" & "j es: " & j & "<br>"
NEXT
==========================================
Sucede que:
En la 1a parte, dentro del DO no me despliega el valor de i. Que hace falta?
En la 2a parte, el RESPONSE solo despliega el valor del ultimo registro. Cómo lo modifico?
Gracias
