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

Paginacao


Ale_xacunois

Pergunta

15 respostass a esta questão

Posts Recomendados

  • 0

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>

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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>

Link para o comentário
Compartilhar em outros sites

  • 0

qual erro ele dá?

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

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