Either BOF or EOF is True

[pegaso]

Salve ragazzi mi restituisce questo errore e non capisco
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

mi restituisce solo due record!!!!!!


<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/contatore.mdb")
strsql = "SELECT * FROM visite order by cognome asc "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strsql , objconn ,3 ,3
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td bgcolor="#FFCC00">
<table cellpadding="4" cellspacing="1" border="1" width="100%" style="border-collapse: collapse" align="left">
<%
While not objRS.EOF
if objrs("visite")= 0 then
objRs.movenext
else
%>
<tr>
<td>

<%=objrs("cognome")%></p>
<td>

<%=objrs("nome")%></p></td>
<td>

<%=objrs("visite")%></p></td>
</tr>
<% end if %>
<%
objRS.MoveNext
wend
objRS.Close
Set objRS = Nothing
%>

[Roby_72]

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/contatore.mdb")
strsql = "SELECT * FROM visite order by cognome asc "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strsql , objconn ,3 ,3 
if not objrs.EOF then
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td bgcolor="#FFCC00">
<table cellpadding="4" cellspacing="1" border="1" width="100%" style="border-collapse: collapse" align="left">
<%
While not objRS.EOF
if objrs("visite")= 0 then
objRs.movenext
else
%>
<tr> 
<td>

<%=objrs("cognome")%></p>
<td>

<%=objrs("nome")%></p></td>
<td>

<%=objrs("visite")%></p></td>
</tr>
<% end if %>
<%
objRS.MoveNext
wend
end if
objRS.Close
Set objRS = Nothing
%>

Devi testare che il recvordset contenga qualcosa prima di recuperare i valori dei campi...

Roby

[pegaso]

mi da lo stesso errore

[optime]

if objrs("visite")= 0 then
'''''''''''''''''''''''''''''''''''''''''' TOGLIERE!!!! objRs.movenext
else

[pegaso]

ero arrivato anche io comunque grazie di cuore lo stesso