Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

troblou

Paginação

Recommended Posts

ae galera peguei esse modelo de paginaçao para aprender a fazer e deu pau!!!!olha o cadigo ae!!!marquei nos lugares que ta dando pau e la em baixo tem o erro!!!!<%'Vamos criar o objeto Record Set -> neste caso é nescessário declará-lo, 'pois vamos ultilizar umas funções deste objeto Dim intpagina Dim intrec Dim pagina Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 9 'Quantidade de registros por pagina. Você pode alterar se Pricisar 'Vamos Fazer a Busca na tabela Pergunta Sql = "select * from forum" RS.Open Sql,Conn 'vamos verificar exceções do tipo "Fim de arquivo"(EOF), se a pagina atual é 'menor que zero e se é maior que o número total de páginas, etc. If Rs.EOF then Response.write "Nenhum Registro Encontrado" Response.Write.End 'paramos o programa Else 'Definindo qual pagina o visitante está 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 'Fim das verificações 'Usamos a propriedade absolute page para dizer ao Rs que pagina ele está 'RS.AbsolutePage=intpagina(""""""---------------------da pau aqui---------------------------"""""") 'inicia o o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou 'não for o finaldo arquivo Response.write "<table cellpadding='0' cellspacing='0' border='1'>" While intrec < Rs.PageSize and not Rs.EOF '_______Aqui vem tudo que sera paginado_______ Response.write "<tr> <td>" & Rs("Nome") & "</td></tr>" '_______________________________________________________ Rs.MoveNext 'Acrescenta +1 ao contador intrec=intrec+1 'Se for Eof(fim de arquivo),imprimie branco na tela If Rs.EOF then Response.Write"" End If Wend 'Fim do loop</table> 'Vamos verificar se não é a pagina 1, para podermos colocar o link"anterior" If intpagina>1 then %> <a href="principal.asp?pagina=<%=intpagina-1%>">Anterior</a> <%End If 'Se Não estivermos no ultimo registro contado, entao é mostrado o link p/ a próxima página If strcomp(intpagina,Rs.PageCount)<>0 then%> <a href="principal.asp?pagina=<%=intpagina+1%>">Próxima</a><% End If%>------------------------------------------------------------------------------------------------------------------------------------------apresentava esse erro aqui primeiro, mas coloquei como comentario e passou mas nao aparece o link de anterior!!!!Tipo de erro:ADODB.Recordset (0x800A0CB3)O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado./paginacao/principal.asp, line 47 -_-

Compartilhar este post


Link para o post
Compartilhar em outros sites

Nessa linha: RS.Open Sql,Conn troque por:

RS.Open Sql,Conn,3,3

Para a paginação funcionar você deve setar o tipo de ponteiro do RecordSet.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.