Either BOF or EOF is True

[RsOfT]

Que carajo tiene de malo este código??? ya me duele la cabeza de tanto pensar...
y en que me tira el error:
================================
Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/vehiculos/admin/AnteBorrado.asp
================================

pero eh puesto:
response.write(rstVTDC.RecordCount) y me imprime un 1, osea que el recordset tiene datos... que podrá ser...

Nota: Check es un string separado por coma al cual lo convierto en un arreglo y busco cada uno de los códidos obtenidos en el arreglo.

Este es el código:
===================================

Código:

Dim CheckArray, Check
Check = request.Form("Check")
CheckArray = split(Check, ",")
cnnVTDC.Open
for i = lbound(CheckArray) to ubound(CheckArray)

strSql= "SELECT Vehiculo.Tipo, Vehiculo.Marca, Vehiculo.Modelo, Vehiculo.Ano, ClienteVehiculos.NombreAnun, ClienteVehiculos.Duracion, ClienteVehiculos.CedulaPago, ClienteVehiculos.CedulaAnun, ClienteVehiculos.NumeroPago, ClienteVehiculos.Fecha, CaractVehiculo.Version, Vehiculo.Combustible FROM (CaractVehiculo INNER JOIN ClienteVehiculos ON CaractVehiculo.Cod = ClienteVehiculos.Cod) INNER JOIN Vehiculo ON CaractVehiculo.Cod = Vehiculo.Cod where ClienteVehiculos.CedulaAnun = '" & CheckArray(i) & "'"

RstVTDC.Open strSql, CnnVTDC, 3,1%>

continua...

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

[RsOfT]

<form action="BorradoRealizado.asp" method="post" ID="Form1">
<%response.Write(CheckArray(i))
response.Write("<br>")
If Linea1 = False then%>
<tr bgcolor=#99ffff>
<td><input name="Clave" value="<%=CheckArray(i)%>"></td>
<td></td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
</tr>
<%Linea1 = True
Else%>
<tr>
<td><input name="Clave" value="<%=CheckArray(i)%>"></td>
<td></td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
<td</td>
</tr>
<%Linea1 = False
End if
rstVTDC.Close
next%>
cnnVTDC.Close


.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--

[u_goldman]

No se si esté en lo correcto, se me ocurre que quizás la el índice en el arreglo no lo está incrementando dentro de la sentencia SQL...

trata de dimensionar una variable dentro del for: x = checkarray(i) tal vez???

[vic78]

Hola
Mira lo que se me ocurre es que pongas un response.Write strSql y veas que es lo que imprimer, posterioremente copia ese codigo y correlo en tu Query Analizer y ahi te vas a dar cuenta por que te marca ese error.

Saludos

[natxoremirez]

hola: m da un error 0x80020009
hice un foro en el que hay que darse de alta primero para luego poder meter preguntas.
Hago un recuento del número de respuestas por cada pregunta relacionándo la tabla de respuestas y la de preguntas en la base de datos que he hecho en access.
Al meter una nueva pregunta me da un error y eso que valido si esa pregunta tiene alguna respuesta con un if.
Bueno aquí está mi código para el q no me haya entendido:
<%Option Explicit
Dim Con, Sql, Sql1, Rs1, Rs, Odbc, resp, vali

Set Con=Server.CreateObject("ADODB.CONNECTION")
Odbc = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../../DB/foro.mdb")
Con.Open Odbc

Sql="Select * From preguntas"
Sql1 = "SELECT respuestas.numero, Count(respuestas.numerores) AS CuentaDenumerores FROM respuestas GROUP BY respuestas.numero;"

Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs1 = Server.CreateObject("ADODB.Recordset")

Rs.Open Sql, Con
Rs1.Open Sql1, Con
%>