Ir para conteúdo

POWERED BY:

Arquivado

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

rsilva10

paginação

Por , em ASP Clássico

Recommended Posts

rsilva10    0

rsilva10
Postado

Bom dia galera!

Estou com uma dúvida em relação a paginação. Quando executo o código abaixo aparece o seguinte erro:

 

Script error detected at line 26. [/size]

Source line: if rst.eof then [/size]

Description: Operação não permitida quando o objeto está fechado.[/size]

 

Alguém sabe como resolver isso?

 

 

---------------------------------------------------------------------------------------

test1.asp

 

<html>

 

<body>

<img src=images/logo.png>

<form action=test2.asp method=get>

Procurar por: <select name=campo>

<option>referencia</option>

<option>tipo</option>

<option>ano</option>

<option>cor</option>

 

<br>

Informe o criterio de busca

<input type=text name=criterio>

<input type=submit value=buscar>

 

</form>

 

 

</body>

 

 

</html>

 

 

 

 

 

 

 

---------------------------------------------------------------------------------------------------------------------------------------

test2.asp

 

<%

Set conn = Server.CreateObject("Adodb.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("banco.mdb")

 

 

palavra = Request.QueryString("criterio")

response.write "Palavra pesquisada :" & "<b>" & palavra & "<br />"

set rst = Server.CreateObject("Adodb.RecordSet")

 

if request.form("campo") = "referencia" Then

rst.Open "Select * from produtos where referencia like '%" & request.form("criterio") & "%'", conn, 3, 3

 

end if

If Request.Form("Campo") = "tipo" Then

rst.Open "Select * from produtos where tipo like '%" & request.form("criterio") & "%'", conn, 3, 3

response.write "voce pesquisou por tipo"

End If

If Request.Form("Campo") = "cor" Then

rst.Open "Select * from produtos where cor like '%" & request.form("criterio") & "%'", conn, 3, 3

 

End If

If Request.Form("Campo") = "ano" Then

rst.Open "Select * from produtos where ano like '%" & request.form("criterio") & "%'", conn, 3, 3

End If

 

rst.Pagesize = 5

if rst.eof then

response.write "nada no sistema"

Set rst = nothing

Set Conexao = nothing

 

 

else

if request.queryString("pagina")= "" then

intpagina = 1

else

if Cint(request.queryString("pagina")) < 1 then

intpagina = 1

else

if Cint(request.queryString("pagina")) > rst.Pagecount then

intpagina = rst.Pagecount

else intpagina = Cint(request.querystring("pagina"))

end if

end if

end if

rst.AbsolutePage = intpagina

%>

 

<html>

 

 

<% intRec = 0

 

while intRec < rst.pagesize AND NOT rst.eof

 

 

%>

 

<img src ="<%=rst("foto")%>"><br>

 

 

<%rst.movenext

intRec = intRec + 1

if rst.eof then response.write " "

wend

 

 

if intpagina <= 1 then

response.write "    primeira  |  "

 

else

 

response.write "<a href = test2.asp?pagina=1>  |  primeira  |  </a>"

 

end if

 

 

if intpagina <= 1 then

 

response.write "anterior"

 

else

response.write "<a href=test2.asp?pagina=" & intpagina - 1 &"> |   anterior& nbsp|  </a>"

 

end if

if intpagina = rst.Pagecount then

 

response.write " |   proximo  |  "

 

else

 

response.write "<a href=test2.asp?pagina=" & intpagina + 1 &"> |   proxima  |  </a>"

end if

 

if intpagina = rst.PageCount then

response.write "ultima"

else

response.write "<a href=b.asp?pagina="& rst.Pagecount &">ultima pagina</a>"

end if

end if

 

 

 

 

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico

  • Conteúdo Similar

    • Negrito
      ASP + MySQL - Paginação e Ranking
      Por Negrito
      Olá Pessoal, 
       
      Converti o banco de dados de uma app em ASP Classico de MSSQL para MySQL para redução de custos e percebi que alguns componentes ou recursos não estão mais funcionando devido a não compatibilidade com o MySQL , como por exemplo a função : RecordCount
       
      Já consegui converter e atualizar 95% de aplicação para rodar com o MySQL, mas tem 1 item que esta tirando meu sono e após dias pesquisando, resolvi pedir ajuda.
       
      Segue o meu codigo abaixo , onde estou com problema no resultado dessa operação:
       
      <%
      ...
      Set RS = Server.CreateObject("ADODB.Recordset")
      RS.CursorLocation = 3
      RS.CursorType = 3
      RS.ActiveConnection = Cn
      RS.Open strSQL, Cn, 3, 3
      RS.PageSize = 25
      RS.CacheSize = RS.PageSize
      intPageCount = RS.PageCount
      intRecordCount = RS.RecordCount
          If NOT (RS.BOF AND RS.EOF) Then
      If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
          If CInt(intPage) <= 0 Then intPage = 1
              If intRecordCount > 0 Then
                  RS.AbsolutePage = intPage
                  intStart = RS.AbsolutePosition
                  If CInt(intPage) = CInt(intPageCount) Then
                      intFinish = intRecordCount
                  Else
                      intFinish = intStart + (RS.PageSize - 1)
                  End if
              End If
          If intRecordCount > 0 Then
              For intRecord = 1 to RS.PageSize
          QntExibicoes = QntExibicoes + Rs.fields("views")
      ...
      %>
       
       
      Já percebi que a função RecordCount não pode ser usada com o MySQL ou pelo menos não é compativel.
       
      A paginação esta funcionando ! 
      Porem , não consigo fazer ele calcular a quantidade de linhas (rows) do MySQL com a função RecordCount e acredito que possa ter alguma outra função que não esta compativel , mas como não conheço MySQL , não posso afirmar.
       
      Enfim, algum pode me dar uma luz ?
       
      Desde já agradeço pela atenção.
       
      Obrigado.
    • RodrigoWD3
      Botao Exibir mais fotos no php
      Por RodrigoWD3
      Pessoal boa tarde, estou criando uma galeria com categorias no php e mysql, gostaria de saber como faço para colocar um botão -  Exibir Mais Fotos - fazendo exibir o restante dos registros na mesma pagina, teria alguma forma de limitar as fotos sem usar o LIMIT do sql? pode ser usando jQuery algo assim , obrigado
    • Inside
      Paginação, 1 2 3 próxima
      Por Inside
      Olá amigos,
       
      Eu estou precisando de uma paginação ASP que exiba tipo de 1 até 3 páginas e depois Próxima Página ou de 1 até 6 depois Próxima Página. De 3 em 3 ou ou de 6 em 6.
       
      Alguém já viu algum exemplo desse tipo?
       
      Paginação, 1 2 3 próxima
       
      Eu procurei na web não achei nada do tipo em ASP. Aqui no fórum também não achei.
       
      Obrigado pela atenção.
    • mkboy
      Paginação SQL Server
      Por mkboy
      Olá,
       
      Uso MySQL no dia a Dia, mas tenho essa consulta em uma aplicação em uma base SQL Server onde conecto via PHP.
       
      Tenho 5000 registros na tabela, preciso trazer de 500 em 500.
      Assim, atualizo todos que preciso.

      No MySQL eu faria ASSIM
       
      SELECT campos FROM tabela CONDICAO Limit 0,500 SELECT campos FROM tabela CONDICAO Limit 500,500 SELECT campos FROM tabela CONDICAO Limit 1000,500  
      Então, eu passaria por todos os registros até chegar no 5000.
       
      Estou fazendo o select abaixo no SQL, mas fica um intervalo de produtos que não vem a cada select.
       
      Veja como fiz: (Um amigo ajudou na época que foi feito, não entendo bem)
       
      $sql = "SELECT TOP 500 data.CodigoInterno, data.CodigoFabricante, data.Fabricante, data.PrecoVenda, data.SaldoEstoque, data.Titulo, data.Aplicacao FROM ( SELECT ROW_NUMBER() OVER(ORDER BY CodigoInterno ASC) AS Row, CodigoInterno, CodigoFabricante, Fabricante, PrecoVenda, SaldoEstoque, Titulo, Aplicacao FROM PRODUTOS ) AS data WHERE data.Row >= ".addslashes($_GET['qtdRegistro'])." ORDER BY data.CodigoInterno ASC";  
      Então na Query envio o 0...500....
       
      Podem me ajudar por favor?
       
       
       
    • Alberto Nascimento
      Listar registros através de páginas em PHP
      Por Alberto Nascimento
      Como faço para que esta consulta exiba 5 registros por página?
       
      <?php if(isset($_SESSION['msg'])){ echo $_SESSION['msg']; unset($_SESSION['msg']); } $result_msg_cont = "SELECT * FROM internautas ORDER BY id ASC"; $resultado_msg_cont = $conn->prepare($result_msg_cont); $resultado_msg_cont->execute(); while ($row_msg_cont = $resultado_msg_cont->fetch(PDO::FETCH_ASSOC)) {  
×

Informação importante

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

  Aceito