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 %>