HELP con este código - ARREGLOS

[gadget]

<%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

[buliwyf]

...
'1a parte
for i=0 to rs.recordcount
NombreEjemplar(i)=rs("NombreEjemplar")
RESPONSE.WRITE "NombreEjemplar(i) es: " & NombreEjemplar(i) & "<br>" & "i es: " & i & "<br>"
rs.MoveNext
next
'2a parte
rs.MoveFirst
FOR j=0 TO Rs.RecordCount
RESPONSE.WRITE "NombreEjemplar(j) es: " & NombreEjemplar(j) & "<br>" & "j es: " & j & "<br>"
rs.movenext
NEXT

[gadget]

Gracias buliwyf pero no funciona, me da el error:

ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/arreglos/a.asp, línea 15

En qué posición quedarían el DO y el LOOP?