For... Next

[eduvivi]

Hola estoy haciendo unaq consulta pero solo quiero 3 registros
y me salta este error

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/mur/buscar.asp, line 0


codigo:

<%
If Rs.BOF and Rs.EOF THEN
Response.Write "No se encontraron registros acorde a su busqueda"
ELSE
DIM cuenta
FOR cuenta=0 TO 3 Step 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
If (cuenta=3) Then
Response.Write "Ha terminado el bucle..."
END IF
Next
'Cerramos y limpiamos (como siempre).
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
End If
%>

Gracias de antemano