Tipo de erro

[AlexCT 0]

Estou com este erro e não consigo resolver

 

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/integratur/p3.asp

 

<%

Set Conn= server.createobject("adodb.connection")

DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db_integratur.mdb")

Conn.Open DSNtest

 

SQL1 = "SELECT escola, dia, mes, controle FROM cadastro ORDER BY controle DESC"Set RS1 = Conn.Execute(SQL1)

%>

[Salgado 4]

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/integratur/p3.asp

Aparentemente o RS não encontrou nada no seu BD referente à sua busca. Ou você está tentando mover o ponteiro do RS além do limite.

[AlexCT 0]

abaixo do codigo que coloquei anteriormente, tem isso.... <%While NOT RS1.EOF%> <option value="<%= RS1("controle")%>"><%= Right(RS1("escola"),15)%> - <%=RS1("dia")%>/<%=RS1("mes")%>- <%=RS1("controle")%></option> <%RS1.MoveNext Wend%>

[Salgado 4]

abaixo do codigo que coloquei anteriormente, tem isso....

 

 

<%While NOT RS1.EOF%>

<option value="<%= RS1("controle")%>"><%= Right(RS1("escola"),15)%> - <%=RS1("dia")%>/<%=RS1("mes")%>- <%=RS1("controle")%></option>

<%RS1.MoveNext

Wend%>

"Abraça" com um

If Not RS.BOF or Not RS.EOF Then
'Seu While aqui
Else
Response.Write "Nada encontrado!"
End If