erro ADODB.Field error '80020009'

[formalivre 0]

no último registro etá ocorrendo este erro:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

código:

ASP

<table width="100%" cellspacing="8" bgcolor="#FFFFFF">

<%

Set Conexao = Server.CreateObject("AdoDb.Connection")

Conexao.provider="Microsoft.Jet.OLEDB.4.0"

Conexao.connectionstring=Server.Mappath("adm/banco.mdb")

Conexao.open    

   

    intPag        = Request.QueryString("pag")

    IF intPag = "" THEN intPag = 1

 

    Set rsCats = Server.Createobject("ADODB.RECORDSET")

    Set rsCats.ActiveConnection = Conexao

   

        TotRegPag = 4 ' QUANTIDADE DE REGISTROS POR PAGINA

 

        rsCats.CursorType = 3

        rsCats.PageSize = TotRegPag

 

        strSQL = "SELECT * FROM perfis order by idnot"

        rsCats.Open strSQL, Conexao

       

            IF rsCats.BOF AND rsCats.EOF THEN

           

     

            ELSE            

       

                IF Int(intPag) > rsCats.PageCount THEN intPag = 1

 

                rsCats.AbsolutePage = intPag

           

               

While Not rsCats.EOF AND x < rsCats.PageSize %>

<tr>

<td width="90" bgcolor="#EBEBEB">

<%if Not rsCats.EOF AND x < rsCats.PageSize then%>

<img src="fotos/<%= rsCats("foto")%>" height="60" border=""0"">

<%

x = x + 1

rsCats.MoveNext

end if%></td>

<td align="left" bgcolor="#EBEBEB" class="texto"><%= rsCats("titulo")%></td>

<td width="90" bgcolor="#EBEBEB">

<%if Not rsCats.EOF AND x < rsCats.PageSize then%>

<img src="fotos/<%= rsCats("foto")%>" height="60" border=""0"">

<%

x = x + 1

rsCats.MoveNext

end if

%></td>

<td align="left" bgcolor="#EBEBEB" class="texto"><%= rsCats("titulo")%></td>

</tr>

 

<%

wend

 

%>

<tr></tr>

  </table>

</td>

</tr>

</table>

<table width="100%" border="0" cellpadding="0" cellspacing="0"  class="texto">

  <!--DWLayoutDefaultTable-->

  <tr>

    <td width="100%"></td>

  </tr>

  <tr>

    <td align="center"  class="texto" valign="middle"><%                    

                   

                    ' ###################################################################

 

                    TotReg = rsCats.RecordCount

                    TotPag = rsCats.PageCount

       

 

                    IF TotPag > 1 THEN

                       

                        strLP = "?t=" & cs

 

                        IF Cint(intPag) > 1 THEN

                            Links = Links & "<a href='perfis.asp?pag=" & intPag-1 & "'>Página anterior</a>"

                        ELSE

                            Links = Links & "<strike>Página anterior</strike>"

                        END IF

                       

                        IF Cint(intPag) < Cint(TotPag) THEN

                            Links = Links & " | <a href='perfis.asp?pag=" & intPag+1 & "'>Próximo</a>"

                        ELSE

                            Links = Links & " | <strike>Próximo</strike>"

                        END IF

                           

                        Response.Write "<br><center>" & Links & "</center><br>"

 

                    END IF

           

           

            END IF

           

   

        rsCats.Close

        Set rsCats = Nothing

               

%>

</td>

  </tr>

</table>

existem registros no banco de dados está dando erro no último registro. se alguém puder me ajudar.

[Mário Monteiro 179]

poe o rsCats.MoveNext

 

exatamente antes do WEND

 

pois isso ta causando erro

 

quando acabam os registros voce ainda tenta exibir mais um que nao existe

[formalivre 0]

na verdade fiz alguns testes e parece que o probrema está quando os registros ficam impares.

como posso resolver isso?

[Mário Monteiro 179]

mudou o que falei?

[formalivre 0]

olá Mario fiz sim mas continuou dando erro

veja:

While Not rsCats.EOF AND x < rsCats.PageSize %>

<tr>

<td width="90" bgcolor="#EBEBEB">

<%if Not rsCats.EOF AND x < rsCats.PageSize then%>

<img src="fotos/<%= rsCats("foto")%>" height="60" border=""0"">

<%

x = x + 1

rsCats.MoveNext

end if%></td>

<td align="left" bgcolor="#EBEBEB" class="texto"><%= rsCats("titulo")%></td>

<td width="90" bgcolor="#EBEBEB">

<%if Not rsCats.EOF AND x < rsCats.PageSize then%>

<img src="fotos/<%= rsCats("foto")%>" height="60" border=""0"">

</td>

<td align="left" bgcolor="#EBEBEB" class="texto"><%= rsCats("titulo")%></td>

</tr>

<%

x = x + 1

rsCats.MoveNext

end if

%>

<%

wend

%>

<tr></tr>

</table>

</td>

</tr>

</table>

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="texto">

<!--DWLayoutDefaultTable-->

<tr>

<td width="100%"></td>

</tr>

<tr>

<td align="center" class="texto" valign="middle">

veja o erro no link: http://www.samuraisdobrasil.com.br/samurais/portal/faces.asp

 

obrigado Mario pela ajuda.

[Mário Monteiro 179]

porque tem dois movenext? esse deve ser o motivo do erro e de dar erro com numeros impares de registros

[formalivre 0]

bom é assim os registros estão sendo listados em colunas:

veja no exemplo: http://www.samuraisdobrasil.com.br/samurai...asp?Categoria=1

quando tenho uma quantidade impar de registros dá erro:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

[Mário Monteiro 179]

mesmo sendo listados em coluna voce nao deve usar dois movenext

 

tem qe adaptar seu codigo para fazer isso

 

conforme exemplos que existem pelo forum