• 0
Sign in to follow this  
Ale_xacunois

Paginacao

Question

pessoal

fiz a paginao de torcentas vezes diferente e sempre da o mesmo erro, hj descobri oerro..

e que faço uma consulta via sql..

ele tras os dados na tela

e qd eu clico em proxma eu acho que ele perde akela pesquisa

como resolver isso???

o que seria paginacao com getrows???

aguardo resposta

Ale

Share this post


Link to post
Share on other sites

15 answers to this question

Recommended Posts

  • 0
Guest YAKKOO

TENTA ESSE CODIGO AI...você QUER PAGINAR DADOS NÉ?

ELE FUNCIONA DIREITINHO.

<style type="text/css">

<!--

body {

background-attachment: scroll;

background-image:  url(index_branco.jpg);

background-repeat: no-repeat;

background-position: center top;

}

-->

</style>

<TABLE width=767 border=0 align="center" cellPadding=0 cellSpacing=3>

  <TBODY>

    <TR>

      <TD width=223>&nbsp;</TD>

      <TD width=518>&nbsp;</TD>

      <TD width=14>&nbsp;</TD>

    </TR>

    <TR>

      <TD width=223 height="133">&nbsp;</TD>

      <TD width=518><table width="71%" border="0" cellpadding="0">

          <tr>

            <td width="15%">

              <div align="left"> </div>

            </td>

            <td width="85%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="90">

              <param name="movie" value="bannerzinho.swf">

              <param name="quality" value="high">

              <embed src="bannerzinho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="90"></embed>

            </object>

</td>

          </tr>

        </table>

      </TD>

      <TD width=14>&nbsp;</TD>

    </TR>

    <TR>

      <TD><div align="center">

          <table width="164" border="0" align="right" cellpadding="0">

            <tr>

              <td width="160"><div align="center"></div>

                  <div align="left"><a href="default.asp"><img src="botao_PAGINA_INICIAL.png" width="120" height="34" border="0"></a></div>

              </td>

            </tr>

          </table>

        </div>

      </TD>

      <TD><div align="center">

          <table width="80%" border="0" align="left" cellpadding="0">

            <tr>

              <td width="33%"><a href="http://mail.santacasabh.org.br"><img src="BOTAO_EMAIL.png" width="134" height="34" border="0"></a></td>

              <td width="28%"><a href="participe_tb.asp"><img src="BOTAO_PARTICIPETB.png" width="134" height="34" border="0"></a></td>

              <td width="39%"><a href="paineldecontrole.asp"><img src="BOTAO_PAINEL.png" width="134" height="34" border="0"></a></td>

            </tr>

          </table>

        </div>

      </TD>

      <TD>&nbsp;</TD>

    </TR>

    <TR>

      <TD colspan="3">

        <div align="left">

          <table width="29%" border="0" align="left" cellpadding="0">

            <tr>

              <td width="13%">&nbsp;</td>

              <td width="87%"><a href="detalhecorpoclinico.asp" class="detalhecorpoclinico.asp"><img src="BOTAO_CORPO.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="detalhe_gestao_online.asp"><img src="BOTAO_GESTAO.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="atoadministrativoinicial.asp"><img src="BOTAO_ATOS.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="educacaopesquisainicial.asp"><img src="BOTAO_EDUCACAO.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="detalhenumeros.asp"><img src="BOTAO_NUMEROS.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="ultimas_noticias.asp"><img src="BOTAO_ULTIMASNOTICIAS.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="detalhefuncionario.asp"><img src="BOTAO_CONHECA.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="detalhe_alto_astral_texto.asp"><img src="BOTAO_ALTOASTRAL.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="detalheutilidades.asp"><img src="BOTAO_UTILIDADES.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="pequenos_anuncios.asp"><img src="BOTAO_PEQANUNCIOS.png" width="163" height="26" border="0"></a></td>

            </tr>

            <tr>

              <td>&nbsp;</td>

              <td><a href="rh_resumo.asp"><img src="BOTAO_RH.png" width="163" height="26" border="0"></a></td>

            </tr>

          </table>

          <table width="430" border="0" align="left" cellpadding="0">

            <tr>

              <td width="423">&nbsp;</td>

              <td width="12">&nbsp;</td>

            </tr>

            <tr>

              <td> <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Aten&ccedil;&atilde;o

                  para o in&iacute;cio das disciplinas do curso de P&oacute;s-Gradua&ccedil;&atilde;o:

                  </strong> </font></p>

              </td>

              <td>&nbsp;</td>

            </tr>

            <tr>

              <td>

                <%

'Efetuando a conexão com a base de dados criada -----------------------

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("bdintranet.mdb")

Conn.open

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

'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 = 3 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos

SQL = "select * from agenda order by id_agenda"

RS.Open SQL,Conn,3,3

'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

%>

                <table width="87%" border="0" align="center" cellpadding="0">

                  <tr>

                    <td> <table width="343" border="0" align="center" cellspacing="0">

                        <tr bordercolor="#000000" bgcolor="#CCCCCC">

                          <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF">

                            <div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

                              <%response.write RS("titulo_agenda")%>

                              </font> </font></strong></div></td>

                        </tr>

                        <tr bordercolor="#000000" bgcolor="#CCCCCC">

                          <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

      <%=replace(Rs("texto_agenda"),chr(13),"<br>")%></font></font></div></td>

                        </tr>

                        <tr bordercolor="#000000" bgcolor="#CCCCCC">

                          <td width="325" colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

                              </font></font></div></td>

                        </tr>

                        <tr bordercolor="#000000" bgcolor="#CCCCCC">

                          <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

                              </font></font></div></td>

                        </tr>

                      </table>

                      <br> </td>

                  </tr>

                  <tr>

                    <td><div align="center"><a href="Default.asp"> </a></div>

                      <div align="center">

                        <%

'  response.write RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & "<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="agenda.asp?pagina=<%=intpagina-1%>"><img src="BOTAO_ANTERIOR.png" width="120" height="30" border="0"></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="agenda.asp?pagina=<%=intpagina + 1%>"><img src="BOTAO_PROXIMA.png" width="120" height="30" border="0"></a>

                        <%

END IF

%>

                      </div></td>

                  </tr>

                  <tr>

                    <td><div align="center"></div></td>

                  </tr>

                </table></td>

              <td>&nbsp;</td>

            </tr>

          </table>

        </div>

      </TD>

    </TR>

  </TBODY>

</TABLE>

Share this post


Link to post
Share on other sites
  • 0

Sobre sua duvida paginação com getrows, é uma paginação ao invés de utilizar os comandos do recordset, utiliza getrows (guardar resultados em arrays e depois manipular as mesmas...), só que ainda existe algins "bugs" digamos, em paginações com getrows, mas descobri talvez uma forma de deixar 100% a paginação vou ver se arrumo isso esse fim de semana =D

Share this post


Link to post
Share on other sites
  • 0

è isso mesmo eu quero paginar dados..

mas esse codigo que você me passou eu já usei...

E sabe ele da erro de Sql qd eu passo para a pagina dois e assim por diante..

o que sera q esta acontecendo??

Ale

Share this post


Link to post
Share on other sites
  • 0
è isso mesmo eu quero paginar dados..

mas esse codigo que você me passou eu já usei...

E sabe ele da erro de Sql qd eu passo para a pagina dois e assim por diante..

o que sera q esta acontecendo??

Ale

bom faz dois favores

1) posta o erro

2) posta seu codigo todo

assim fica mais facil de te ajudar wink.gif

Abraços

Share this post


Link to post
Share on other sites
  • 0

Segue abaixo todo o codigo:

o erro da na hora que eu executo a sql, usando isso aki:

SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset")

RsMostraArtesanato.Open StrMostraArtesanato,ObjMostraArtesanato,3

isso esta logo após a SQL, se você poder me ajudar eu agradeço.

<%
    
	Dim ObjMostraArtesanto, StrMostraArtesanato, RsMostraArtesanato, StrMostraEstadoArtesanato, RsMostraEstadoArtesanato
  

	Set ObjMostraArtesanato = Server.CreateObject("ADODB.Connection")
	ObjMostraArtesanato.Open  "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dados/DADOS.MDB")

    
	If Request.Form("TipoArtesanato") <> "0" then
    	AA = "ARTESANATO.CodigoTipo = " &Request.Form("TipoArtesanato")
	else
    	AA = "ARTESANATO.CodigoTipo <> " &Request.Form("TipoArtesanato")
  	End if
  	
	if Request.form("Modelo") <> ""  then 
    	BB = "ARTESANATO.Modelo like '%"&Request.form("Modelo")&"%'"

	else
  BB = "ARTESANATO.Modelo <> '"&Request.form("Modelo")&"'"
  
    end if  
    	
    if Request.form("Valor") <> "0" then 
    	CC = "ARTESANATO.Valor <= "&Replace(Request.form("Valor"),",",".")
	else
    	CC = "ARTESANATO.Valor >= "&Replace(Request.form("Valor"),",",".")
	End if

    

   
   if Request.form("Uf") <> "0" then 
    	DD = "ARTESANATO.CodigoEstado = "&Request.form("Uf")
	else
    	DD = "ARTESANATO.CodigoEstado <> "&Request.form("Uf")
	End if

    if Request.form("Cidade") <> "" then 
    	EE = "ARTESANATO.CodigoCidade = '"&Request.form("Cidade")&"'"
	else
    	EE = "ARTESANATO.CodigoCidade <> '"&Request.form("Cidade")&"'"
	End if

   
    StrMostraArtesanato = "Select * from produtos inner JOIN Artesanato on ARTESANATO.CodigoTipo = PRODUTOS.CodigoP WHERE "&AA&" and "&BB&" and "&CC&" and "&DD&" and "&EE&" Order By Artesanato.Codigo Desc"     
    

        SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset")
  	RsMostraArtesanato.Open StrMostraArtesanato,ObjMostraArtesanato,3


  If RsMostraArtesanato.EOF Then
   
                Response.Write("Nenhum Registro encontrado no Banco de Dados")
       Else

              ' Definindo o número de registros por página
          RsMostraArtesanato.PageSize = 3

	' Recupera o valor da variável pagina
        pagina = Request.QueryString("pagina")

  
	' Se a variável pagina for vazio, indica que a página sera a primeira
       ' Senão a variável pagina recebe o valor da página corrente, definida acima
            If pagina = "" Then
                    RsMostraArtesanato.AbsolutePage = 1
                  pagina = 1
            Else
                   RsMostraArtesanato.AbsolutePage = pagina
            End If


%>

<%


      ' Criando a barra de navegação
          ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
         ' Senão imprime sem link
     If CInt(pagina) > 1 Then
        Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
     Else
        Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
     End If


	' Lista todas as páginas encontradas
       if RsMostraArtesanato.PageCount < 4 then
    For i = 1 To RsMostraArtesanato.PageCount
       response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
    Next
    end if
    
    if RsMostraArtesanato.PageCount > 3 then
     inicio=pagina
     fim=pagina + 3
     tot = pagina + 3
     if tot > RsMostraArtesanato.PageCount then
       inicio = pagina-((pagina+3)-RsMostraArtesanato.PageCount)
       fim = inicio+9
     end if
  	for i = inicio to fim
             response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
               next
         end if


          ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
                 ' Senão imprime sem link
           If CInt(pagina) < RsMostraArtesanato.PageCount Then
             Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")
          Else
          Response.Write("Próxima</B></FONT></center>")
      End If
End If



%>



<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Artesanato</title>
</head>

<body>

<p align="left">&nbsp; 
<font face="Arial" size="2"><font color="#FFFFFF">Para fazer uma nova pesquisa
</font><b>  <a href="Index.asp?op=Pesquisa_Artesanato"><font color="#FFFFFF">clique aqui</font></a></b></font></p>
<HR>
<p> 

      <font face="Arial" size="2" color="#FFFFFF"> 

      <%While Not RsMostraArtesanato.EOF AND cont < RsMostraArtesanato.PageSize%>

      
      
      
</font>
      
</p>
<table width="520" border="0" style="border-width: 0">
  <tr> 
    <td width="94" style="border-style: none; border-width: medium" rowspan="3"><a href="#" OnClick="window.open('fotos/<%=RsMostraArtesanato.Fields("Foto").value%>','','width=475, height=385, top=2, left=50, boton=2, scrollbars=no, menubar=no, directories=no, location=no, copyhistory=no, status=no, toolbar=no, maximized=yes, resizable=no');"}> 
            <img width="100" height="70" src="fotos/<%=RsMostraArtesanato.Fields("Foto").value%>"></td>
    <td style="border-style: none; border-width: medium" width="75" height="26" align="right">
    <font face="Arial" size="2"><b>Produto:</b></font>:</td>
    <td style="border-style: none; border-width: medium" width="337" height="26">
    &nbsp;<%=RsMostraArtesanato.Fields("Tipo")%></td>
  </tr>
  <tr> 
    <td style="border-style: none; border-width: medium" width="75" height="21" align="right">
    <p align="right"><b><font face="Arial" size="2">Modelo:</font></b></td>
    <td style="border-style: none; border-width: medium" width="337" height="21">
    <font face="Arial" size="2"><%=RsMostraArtesanato.Fields("Modelo")%></font></td>
  </tr>
  <tr> 
    <td style="border-style: none; border-width: medium" width="75" align="right">
      <b>
      <font face="Arial" size="2">Valor:</font></b></td>
    <td style="border-style: none; border-width: medium" width="337"> 
	<font size="2" face="Arial"> <%=FormatCurrency(RsMostraArtesanato.Fields("Valor"),2)%> </font></td>
  </tr>
  <tr> 
    <td width="94" style="border-style: none; border-width: medium">&nbsp;</td>
    <td style="border-style: none; border-width: medium" width="75" align="right">
    <b><font face="Arial" size="2">Cidade:</font></b></td>
    <td style="border-style: none; border-width: medium" width="337">
	<font size="2" face="Arial"><%=RsMostraArtesanato.Fields("CodigoCidade")%>
    &nbsp;</font></td>
  </tr>
  <tr> 
    <td width="94" style="border-style: none; border-width: medium">&nbsp;</td>
    <td style="border-style: none; border-width: medium" width="75" height="18" align="right">
    <p align="right"><b><font size="2" face="Arial">Obs:</font></b></td>
    <td style="border-style: none; border-width: medium" width="337" height="36" rowspan="2">
	<font size="2" face="Arial"> <%=RsMostraArtesanato.Fields("Obs")%></font>

    </td>
  </tr>
  <tr> 
    <td width="94" style="border-style: none; border-width: medium">&nbsp;</td>
    <td style="border-style: none; border-width: medium" width="75" height="18" align="right">
    </td>
  </tr>
</table>
<HR>

 <font face="Arial">




 <%
    cont = cont + 1
    RsMostraArtesanato.MoveNext
    Wend
%>

 <%

  
	RsMostraArtesanato.close
  ObjMostraArtesanato.close 
    set ObjMostraArtesanato = Nothing
    set RsMostraArtesanato = Nothing 
  %>



</font>



<p>&nbsp;</p>



</body>

</html>

Share this post


Link to post
Share on other sites
  • 0

qual erro ele dá?

Share this post


Link to post
Share on other sites
  • 0

oi já que pediu que eu postasse o erro

ae esta

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ARTESANATO.CodigoTipo = and ARTESANATO.Modelo <> '' and ARTESANATO.Valor <= and ARTESANATO.CodigoEstado = and ARTESANATO.CodigoCidade <> '''.

/site/Artesanato.asp, line 53

aparece esse erro, a linha 53 é essa:

SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset")

RsMostraArtesanato.Open

StrMostraArtesanato,ObjMostraArtesanato,3 ------> ESSA É A LINHA 53

espero uma resposta obrigado

Share this post


Link to post
Share on other sites
  • 0

ow já postei o erro ai

ninguém vai me ajudar..

tipow assim

eu tenho uma pagina de busca do tipo

tipo

modelo

valor

cidade

Estado

conforme eu preencher esses dados eles me traz na tela, mas qd eu clico em proxima na paginacao da um erro..

espero um resposta

Ale

Share this post


Link to post
Share on other sites
  • 0

o que que acontece é que você tem que passar esses dados para a proxima pagina, mas como fazer isso ?

Simplismente passe pela URL alem da pagina

exemplo

pagina.asp?pagina=2&tipo=aluguel&estado=novo

pronto, dai em todas as paginas você pega esses dados =)

abraços

Share this post


Link to post
Share on other sites
  • 0

ph34r.gif

Completa e Total

<%Option Explicit%><!--#include file="conexoes.asp" --><%
Const oTamanho=10
Const aTabela="Pessoas"
Dim aOrdem,aDirecao,aPagina,rsLista,osCampos,osNomes,i,aPaginacao
osCampos = Array("IdPessoa","Nome","Email","Cidade","UF")
osNomes =  Array("Código","Nome","Email","Cidade","UF")
aOrdem = IIF(Request.QueryString("aOrdem")<>"",Request.QueryString("aOrdem"),osCampos(0))
aDirecao = IIF(Request.QueryString("aDirecao")<>"",Request.QueryString("aDirecao"), "ASC")
aPagina = IIF(Request.QueryString("aPagina")<>"",CInt(Request.QueryString("aPagina")), 1)
Function MontaQuery()
Dim i,aQuery
aQuery="SELECT "&osCampos(0)
	For i = 1 To UBound(osCampos)
	aQuery=aQuery&","&osCampos(i)
	Next
MontaQuery=aQuery&" FROM "&aTabela&" ORDER BY "&aOrdem&" "&aDirecao
End Function
Function IIF(a,b,c):If a Then:IIF=b:Else:IIF=c:End If:End Function
Set rsLista=Server.CreateObject("ADODB.RecordSet")
With rsLista
	.CacheSize=oTamanho
	.PageSize=oTamanho
	.Open MontaQuery(),Con, 3, 1,1
	If Not .Eof Then 
  If aPagina > .PageCount Then aPagina=.PageCount
	.AbsolutePage=aPagina
	End If
End With
If aPagina>1 Then	
aPaginacao=aPaginacao&"<a href='paginacao.asp?aPagina=1&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&lt;&lt;</a>"
aPaginacao=aPaginacao&"&nbsp;&nbsp;<a href='paginacao.asp?aPagina="&aPagina-1&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&lt;</a>"
Else
aPaginacao=aPaginacao&"&lt;&lt;"
aPaginacao=aPaginacao&"&nbsp;&nbsp;&lt;"
End If
aPaginacao=aPaginacao&"&nbsp;&nbsp;Página&nbsp;<select onchange=""location.href='paginacao.asp?aPagina='+this.value+'&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'"">"
For i=1 To rsLista.PageCount
	aPaginacao=aPaginacao&"<option "&IIF(i=aPagina,"selected style='background-color:#C1C1C1'","")&" value='"&i&"'>"&i&"</option>"
Next
aPaginacao=aPaginacao&"</select>"
If aPagina<rsLista.Pagecount Then
aPaginacao=aPaginacao&"&nbsp;de&nbsp;<a href='paginacao.asp?aPagina="&rsLista.Pagecount&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>"&rsLista.Pagecount&"</a>&nbsp;&nbsp;"
aPaginacao=aPaginacao&"<a href='paginacao.asp?aPagina="&aPagina+1&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&gt;</a>"
Else
aPaginacao=aPaginacao&"&nbsp;de&nbsp;"&rsLista.Pagecount&"&nbsp;&nbsp;"
aPaginacao=aPaginacao&"&gt;"
End If%>
<html>
<body>
<div><%=aPaginacao%></div>
<table width="100%"  border="1" cellspacing="1" cellpadding="1">
  <tr>
    <%For i = 0 To UBound(osCampos)%>
    <th><a href="paginacao.asp?aPagina=1&aOrdem=<%=osCampos(i)%>&aDirecao=<%=IIF(osCampos(i)=aOrdem,IIF(aDirecao="ASC","DESC","ASC"),"ASC")%>"><%=osNomes(i)%><%=IIF(osCampos(i)=aOrdem,"<font face='webdings'>"&IIF(aDirecao="ASC","6","5")&"</font>","")%></a></th>
    <%Next%>
  </tr>
  <%While Not rsLista.Eof And rsLista.AbsolutePage=aPagina%>
  <tr>
    <%For i = 0 To UBound(osCampos)%>
    <td><%=rsLista(osCampos(i))%></td>
    <%Next%>
  </tr>
  <%rsLista.MoveNext
Wend%>
</table>
<div><%=aPaginacao%></div>
</body>
</html>

rolleyes.gif

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