Paginacao

Ale_xacunois · Abril 6, 2005

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

Abril 7, 2005

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

ELE FUNCIONA DIREITINHO.

<style type="text/css">

</style>
<TABLE width=767 border=0 align="center" cellPadding=0 cellSpacing=3>
<TBODY>
<TR>
<TD width=223> </TD>
<TD width=518> </TD>
<TD width=14> </TD>
</TR>
<TR>
<TD width=223 height="133"> </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> </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> </TD>
</TR>
<TR>
<TD colspan="3">
<div align="left">
<table width="29%" border="0" align="left" cellpadding="0">
<tr>
<td width="13%"> </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> </td>
<td><a href="detalhe_gestao_online.asp"><img src="BOTAO_GESTAO.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="atoadministrativoinicial.asp"><img src="BOTAO_ATOS.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="educacaopesquisainicial.asp"><img src="BOTAO_EDUCACAO.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="detalhenumeros.asp"><img src="BOTAO_NUMEROS.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="ultimas_noticias.asp"><img src="BOTAO_ULTIMASNOTICIAS.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="detalhefuncionario.asp"><img src="BOTAO_CONHECA.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </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> </td>
<td><a href="detalheutilidades.asp"><img src="BOTAO_UTILIDADES.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </td>
<td><a href="pequenos_anuncios.asp"><img src="BOTAO_PEQANUNCIOS.png" width="163" height="26" border="0"></a></td>
</tr>
<tr>
<td> </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"> </td>
<td width="12"> </td>
</tr>
<tr>
<td> <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Atenção
para o início das disciplinas do curso de Pós-Graduação:
</strong> </font></p>
</td>
<td> </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> </td>
</tr>
</table>
</div>
</TD>
</TR>
</TBODY>
</TABLE>

DackAle · Abril 7, 2005

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

Ale_xacunois · Abril 7, 2005

è 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

DackAle · Abril 7, 2005

è 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

Abraços

Ale_xacunois · Abril 9, 2005

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>

Ale_xacunois · Abril 12, 2005

oi

esta ai o codigo ninguém vai me ajudar????//

Tipo ele faz a paginacao certinho, mas qd clico em proxima ele da um erro na sql..

porque é uma pagina de busca

boa noite

dark0 · Abril 12, 2005

qual erro ele dá?

ursolouco · Abril 12, 2005

Veja se pode lhe ajudar!!

http://www.imasters.com.br/forum/index.php...ndpost&p=182323

Abraços!!

Ale_xacunois · Abril 12, 2005

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

Ale_xacunois · Abril 13, 2005

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

Ale_xacunois · Abril 13, 2005

oieeeee

alguém poderia ter fazer o obséquio de poder me ajudar?

bom se não souberem melhor avisar, dai não fico postando

mas deem sinal de vida

valeu

Ale

DackAle · Abril 13, 2005

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

TIO CARNEGO · Abril 15, 2005

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>

filipeflc00 · Abril 15, 2005

hehhehehhe

eu ia colocar um codigo aki

mas vi q já ta cheio aki já

hehhehehehehe

falw cara

Ale_xacunois · Abril 16, 2005

ow

consegui resolver esse troço

graças a ajuda do LEANDRO um rapaz aki da minha cidade

valeu

agradeço a ele, e a todos q tentaram me ajudar

flws

Entrar

Paginacao

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Guest YAKKOO

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns