Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
igor.damiano

Paginação

Question

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

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 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í.

Share this post


Link to post
Share on other sites
  • 0

Brother!!

É estranho, se na web funciona tudo e no seu IIS da este problema, acredito que seja algo local. Recomendaria que verificasse as configurações do website ou ate mesmo restartando o IIS.

Abraços!!![urso]

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148588
    • Total Posts
      644154
×
×
  • Create New...