Paginaçao de novo !!!

[Lilian Vilela 0]

Olá gente...to tentando entender esse código de paginaçao.... tava indo bem ateh aparecer uma coisa chama AbsolutePages.... ta dando erro nesse codigo... na linha rsSql.AbsolutePage=intpagina ..... :( ....Tipo de erro:ADODB.Recordset (0x800A0CB3)Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype./desenv/produtos/portal/paginacao/paginacao.asp, line 40codigo:<% set objBanco = server.createobject("adodb.connection")strBanco = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/desenv/produtos/portal/paginacao/bd.mdb")objBanco.Open strBancoset rsSql = objBanco.execute("select * FROM Contatos")rsSql.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.IF rsSql.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IFEND IFrsSql.AbsolutePage=intpaginaintrec=0While intrec < rsSql.PageSize and not rsSql.EOF response.write rsSql("nome") & " - " & rsSql("telefone") & " - " & rsSql("email") & "<BR>" rsSql.MoveNext intrec=intrec+1 IF rsSql.EOF then response.write " " END IFWend 'fim do loopIF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IFIF strcomp(intpagina,rsSql.PageCount) <> 0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%>Se alguem tiver disposto a me ajudar... valew....

[mmalainho 0]

Não está a especificar nenhum cursor. na maioria dos casos não é necessário, contudo por vezes temos que o fazer para que possamos usar determinadas funcionalidades.Tente colocar o seguinte código, que em principio funcionará:sql= "select * FROM Contatos"set rs = createobject("adodb.recordset")rs.CursorLocation = 3 'Tipo de cursor rs.Open sql, objBanco, adOpenStatic

[Lilian Vilela 0]

:mellow: .... nao consegui.... to fikando triste....mas valew pela ajuda.....

[mmalainho 0]

tira no seu códido esta linha:

 

'set rsSql = objBanco.execute("select * FROM Contatos")

acescenta estas:

 

sql= "select * FROM Contatos"

 

set rsSql = createobject("adodb.recordset")

rsSql.CursorLocation = 3 'Tipo de cursor

rsSql.Open sql, objBanco, adOpenStatic

 

eu testei aqui e funciona.

 

 

Olá gente...

 

to tentando entender esse código de paginaçao.... tava indo bem ateh aparecer uma coisa chama AbsolutePages.... ta dando erro nesse codigo... na linha rsSql.AbsolutePage=intpagina .....  :(   ....

 

Tipo de erro:

ADODB.Recordset (0x800A0CB3)

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/desenv/produtos/portal/paginacao/paginacao.asp, line 40

 

codigo:

 

<%

set objBanco = server.createobject("adodb.connection")

strBanco = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/desenv/produtos/portal/paginacao/bd.mdb")

objBanco.Open strBanco

 

'set rsSql = objBanco.execute("select * FROM Contatos")

 

sql= "select * FROM Contatos"

 

set rsSql = createobject("adodb.recordset")

rsSql.CursorLocation = 3 'Tipo de cursor

rsSql.Open sql, objBanco, adOpenStatic

 

 

 

rsSql.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

 

IF rsSql.EOF then

  Response.Write "nenhum registro encontrado"

  Response.End

ELSE

  IF Request.QueryString("pagina")="" then

      intpagina=1

  ELSE

      IF cint(Request.QueryString("pagina"))<1 then

        intpagina=1

      ELSE

        IF cint(Request.QueryString("pagina"))> RS.PageCount then

            intpagina=RS.PageCount

        ELSE

            intpagina=Request.QueryString("pagina")

        END IF

      END IF

  END IF

END IF

 

rsSql.AbsolutePage=intpagina

 

intrec=0

 

While intrec < rsSql.PageSize and not rsSql.EOF

 

  response.write rsSql("nome") & " - " & rsSql("telefone") & " - " & rsSql("email") & "<BR>"

 

  rsSql.MoveNext

 

  intrec=intrec+1

  IF rsSql.EOF then

      response.write " "

  END IF

Wend 'fim do loop

 

IF intpagina > 1 then

%>

  <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

END IF

 

IF strcomp(intpagina,rsSql.PageCount) <> 0 then

%>

  <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

%>

 

 

Se alguem tiver disposto a me ajudar... valew....

[Lilian Vilela 0]

Valew.....tipow to aprendendo asp agora... ai to me matando pra faze esses códigos....meu proximo desafio vai ser coloca um link nessa paginaçao de primeira e ultima pagina de mensagens... e depois ainda vo t q faze um eskema de busca por palavra chave.... :unsure: to ateh com medo......hehe... mas beleza....brigada....bjos.....