Erro De Paginação

[Guest - Kiko -]

Bom dia!

Estou com o seguinte problema:

Estou fazendo a paginação de um conteúdo que é puxado de um BD Access, a página esta sendo exibida normalmente e a paginação está sendo realizada no rodapé da minha página.

No teste estou puxando 05 registros por página, onde me dá 3 páginas, mas, o que ocorre, eu só consigo navegar até a página 02, quando tento acessar a página 03 me dá o erro abaixo:

"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.

"

O erro apenas surge na hora que tento acessar a página 03, onde terei pela somatoria de 11 registros, 01 registro, ou seja, o último registro da minha tabela.

Onde estou errado? Será que alguém poderia me ajudar? Abaixo estou postando o código da páginação.

Agradeço já a atenção de todos!

[ ]'s

Kiko

<%
  NMBairro = Request.QueryString("NMBairro")
  IDBairro = Request.QueryString("IDBairro")
        pag = Request.QueryString("Pagina")
  registros = 5
  set rs = Server.CreateObject("adodb.recordset")
  rs.CursorLocation = 3
  rs.open("select * from con_Classificado where ID_Bairro = "&IDBairro&" and ID_Status = 1 order by NM_RamoAtividade"),conn
  rs.PageSize = registros
  If pag > 0 then 
           rs.AbsolutePage = pag
         Else 
           pag = 1
         End If
        %>
  <table width="560" cellpadding="0" cellspacing="2" border="0">
  <tr>
    <td colspan="4"><img src="images/img_resultadoBairro.jpg" width="500" height="70" border="0"></td>
  </tr>
  <tr>
       <td colspan="4" class="Titulo02">Bairro: <span class="Titulo01"><%=NMBairro%></span></td>
     </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
    <td align="center"><%If pag > 1 Then%>
                  <a href="buscaZonaBairroR.asp?pagina=<%= pag - 1%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>"><img src="images/img_setaESQ.jpg" width="20" height="20" border="0" align="middle"></a>
      <%else%>
      <img src="images/img_setaESQpb.jpg" width="20" height="20" border="0" align="middle">
                  <%End If%>
      &nbsp;&nbsp;
      <%for i = 1 to rs.PageCount%>
        <%If CStr(i) <> CStr(pag) Then%>
                      <a href="buscaZonaBairroR.asp?pagina=<%=i%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>" class="Link01"><%=i%></a>
    	<%else%>
       <span class="Texto01"><strong><%=i%></strong></span>
        <%end if%>
          <%next%>
      &nbsp;&nbsp;
      <%If CStr(pag) <> CStr(rs.PageCount) Then%>
                  <a href="buscaZonaBairroR.asp?pagina=<%= pag + 1%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>"><img src="images/img_setaDIR.jpg" width="20" height="20" border="0" align="middle"></a>
      <%else%>
      <img src="images/img_setaDIRpb.jpg" width="20" height="20" border="0" align="middle">
                  <%End If%></td>
    <td>&nbsp;</td>
  </tr>
  <%if not rs.eof then%>
  <%
  if rs.RecordCount > 0 then
           cont = 1
        for i = 1 to rs.PageSize
  %>
  <tr>
       <td width="560" height="30" colspan="4" background="images/fx_Busca01.jpg" valign="middle" class="Titulo02">&nbsp;<%=rs("NM_RamoAtividade")%> : <%=rs("NM_RamoAtividadeSub")%></td>
     </tr>
  <tr>
    <td width="100" align="center" class="Texto02"><img src="images/logoAnunciante/<%=rs("IMG_Logo")%>" width="100" height="80" border="0" class="BordaIMG"></td>
    <td width="5">&nbsp;</td>
    <td width="355" align="center" valign="top">
    <!--Tabela Dados do Anunciante-->
    <table width="355" cellpadding="0" cellspacing="0" border="0">
    <tr>
      <td class="Titulo01"><%=rs("NM_Anunciante")%></td>
    </tr>
    <tr>
      <td class="Titulo01"><%=rs("DESC_Classificado")%></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td class="Texto01">site : <a href="<%=rs("URL")%>" target="_blank" class="Link01"><%=rs("URL")%></a></td>
    </tr>
    <tr>
      <td class="Texto01">e-mail: <a href="mailto:<%=rs("Email")%>" class="Link01"><%=rs("Email")%></a></td>
    </tr>
    <tr>
      <td class="Texto01">contato : <%=rs("NUM_Telefone")%></td>
    </tr>
    </table>
    <!--Fim Tabela Dados do Anunciante-->
    </td>
    <td width="100" class="Texto02">
    <!--Tabela IMGs Direita-->
    <table width="90" cellpadding="0" cellspacing="0" border="0">
    <tr>
      <td class="Texto01"><img src="images/img_saibamais.gif" width="20" height="20" border="0"> Saiba mais</td>
    </tr>
    <tr>
      <%if rs("Ticket") = 1 then%>
  	<td class="Texto01"><img src="images/img_cifrao.jpg" width="20" height="20" border="0">Ticket</td>
  	<%else%>
  	<td class="Texto01">&nbsp;</td>
  	<%end if%>
    </tr>
    </table>
    <!--Tabela IMGs Direita-->
    </td>
  </tr>
  <%
  rs.MoveNext : if rs.EOF then exit for
        cont = cont + 1
        if rs.EOF then exit for
           Next
           For i = cont to 4
     next
  end if
  %>
  <tr>
    <td colspan="2">&nbsp;</td>
    <td align="center"><%If pag > 1 Then%>
                  <a href="buscaZonaBairroR.asp?pagina=<%= pag - 1%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>"><img src="images/img_setaESQ.jpg" width="20" height="20" border="0" align="middle"></a>
      <%else%>
      <img src="images/img_setaESQpb.jpg" width="20" height="20" border="0" align="middle">
                  <%End If%>
      &nbsp;&nbsp;
      <%for i = 1 to rs.PageCount%>
        <%If CStr(i) <> CStr(pag) Then%>
                      <a href="buscaZonaBairroR.asp?pagina=<%=i%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>" class="Link01"><%=i%></a>
    	<%else%>
       <span class="Texto01"><strong><%=i%></strong></span>
        <%end if%>
          <%next%>
      &nbsp;&nbsp;
      <%If CStr(pag) <> CStr(rs.PageCount) Then%>
                  <a href="buscaZonaBairroR.asp?pagina=<%= pag + 1%>&IDBairro=<%=rs("ID_Bairro")%>&NMBairro=<%=rs("NM_Bairro")%>"><img src="images/img_setaDIR.jpg" width="20" height="20" border="0" align="middle"></a>
      <%else%>
      <img src="images/img_setaDIRpb.jpg" width="20" height="20" border="0" align="middle">
                  <%End If%></td>
    <td>&nbsp;</td>
  </tr>
  <%else%>
  <tr>
      <td colspan="4" class="Link01">No momento n&atilde;o h&aacute; servi&ccedil;os para o bairro : <%=NMBairro%>.</td>
    </tr>
    <%end if%>
  </table>
  <%rs.Close : set rs=nothing%>

[ViniciusJau]

"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.

"

o registro existe no banco cara ??

[Developer]

Olá - Kiko -,

Antes de fazer o while faz um if assim:

if recordset.EOF then

response.write "Não existe nenhum registro"

else

mostra tudo

end if