Evitar error cuando EOF es true

[Ruchu]

Prueba con este codigo a ver que tal te va todo.


<%Dim cnn, miRS
Set cnn = Server.CreateObject ("ADODB.Connection")
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.mappath("../administracion/bdedatos")

strSQL= "SELECT * FROM articulos WHERE categoria='Transmisión' ORDER BY posicion DESC"
set miRS= Server.CreateObject("ADODB.Recordset")
miRS.Open strSQL, cnn, 1, 2

numRegs=miRS.RecordCount

Do While Not miRS.Eof%>


<%loop%>