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.
/monitoria/paginacaoteste.asp
chequei o codigo e não localizei o erro
<%
dim login
login = 30141
'Paginação de Registros
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "monitorias", db, 3,3
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
RecSet.MoveNext
contador=contador+1
%>
<table align="center" cellspacing=4 class="quadro" cellpading=0>
<tr bgcolor=#EBEBEB>
<td><font color="#0000FF">Data <%=RecSet("data")%></font></td>
<td> </td>
<td><font size="2"> </font></td>
<td><font size="2"> </font></td>
</tr>
<tr>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das
Necessidades</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td>
</tr>
<tr bgcolor="#009999">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan=4 align=center> </td>
</tr>
</table>
<%
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<font face=verdana size=2><b>"
response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>"
End If
If proxima < navega Then
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>"
End If
%>
