Ir para conteúdo
Fórum Script Brasil
  • 0

Paginação


igor.damiano

Pergunta

Estou tentando fazer paginação, mas está dando esse erro:

___________________________

ADODB.Recordset error '800a0cb3'

O provedor não dá suporte à operação solicitada pelo aplicativo.

/leilao/pedido/paginacao.asp, line 37

______________________

Que é bem nessa linha: RS.AbsolutePage=intpagina

Se comentar essa linha, o resto do script funciona, mas não corretamente...

Vou postar o script de paginação e o de conexão:

Paginação:

<!--#Include file="conexao.inc"-->

<%

Dim conexaodb, rs, sql

'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

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

'Vamos fazer a busca na tabela contatos

SQL = "select * from resp_pedidos "

call abreconexao

set RS = conexaodb.execute(SQL)

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

Response.Write "nenhum registro encontrado"

Response.End 'paramos o programa

ELSE

'Definindo em 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 de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.AbsolutePage=intpagina

' Inicia 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 final do arquivo

While intrec < RS.PageSize and not RS.EOF

'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------

response.write RS("cnpj") & " - " & RS("fone") & " - " & RS("email") & "<BR>"

'---------------------------------------------------------------------------------------------

RS.MoveNext

' Acrescenta +1 ao contador

intrec=intrec+1

'Se for EOF (fim de arquivo), imprimir branco na tela

IF RS.EOF then

response.write " "

END IF

Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

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

<%

END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

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

%>

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

<%

END IF

%>

_____________________

Aqui o de conexao:

<%

sub AbreConexao

const cntCaminho ="D:\leilao\database\base.mdb"

set conexaodb =Server.CreateObject("ADODB.Connection")

conexaodb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho

end sub

sub FechaConexao

conexaodb.close

set conexaodb = nothing

end sub

%>

______________________

Por favor me ajudem a ver o que é esse erro e a corrigir....

Obrigado

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

Este problema é de configuração do servidor.

Eu estou com o mesmo código e quando tento aqui no meu IIS, ele dá este mesmo erro.. mas quando coloco no servidor web que tenho meu site hospedado, dá tudo certo.

Se alguém souber como configurar o IIS para não dar este erro, posta aí.

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - jonathasrios -

O Erro esta na configuração do ISS no servidor Apanche este erro não acontece seria viavel para o programador utilizar o apanche para paginaçao onde se você for utilizar muitos recursos utilize o servidor apanche

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...