Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

erro na paginação

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ai galera alguém pode me ajudar com esta paginação..

 

estava funcionando legalzinho agora naun esta mais, ja fiz de tudo para funcionar normalmente mas naun quer !!!!!!

 

 

paginação.asp

<% 
registros = 2
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("banco.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

sql = "SELECT * FROM produtos ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina
x = x + 1 %>

<html>
<head>	
<STYLE type=text/css>

A:link { text-decoration: none}		
A:visited { text-decoration: none}	

</STYLE>	

<title></title>

</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000" background="http://www.sonhoefesta.com.br/imagens/fundos_azul.gif">  
   <div align="center" style="width: 785; height: 201">
   <table width="342" height="1">	
   	<tr>
   	<%	While Not rs.EOF AND x < rs.PageSize	
   		q = q + 1%>			
   		<td height=1 width=335> 
   						  <table width="311" >  
   												<tr> 
   													 						<td height="17" width="303" style="height: 12.75pt">	  
<table width="325" class="texto" style="border: 1px solid #b9b9b9" height="183" cellspacing="3" cellpadding="0">
<col width="64" span="2" style="width:48pt">								  <tr height="17" style="height:12.75pt"> 
<td colspan="2" height="11" class="xl24" width="309">	
											<p align="center">
												<font size="2" face="Verdana">	
													<b><%=rs("nome")%></b>	
														</font>
														</p>
												</td>
														</tr>
														<tr height="17" style="height:12.75pt">
														<td height="135" width="137" rowspan="2">
														<a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=no,width=500,height=500'); return false;"><font size="2" face="Verdana" color="#FF0000">
												<b><img border="1" src="<%=rs("foto")%>" width="138" height="131"></b>
												</font>
									</a>
														</td>
														<td width="172" height="114">
														  <p align="center"><font size="2" face="Verdana"><%=rs("descricao")%></p>
														</td>	
														</tr>
														<tr colspan="2" height="17" style="height:12.75pt">	
														<td width="172" height="21">
														  <p align="left"><b><font size="3" face="Verdana" color="#FF0000"><%=rs("valor")%></font></b></p>
														</td></tr>			
												<tr colspan="2" height="17" style="height:12.75pt">	  
																				<td height="21" class="xl24" width="309" colspan="2">
																				<p align="left">
																				<font face="Verdana" size="1">Atualizado em <img src="imagens/seta.gif"></font><font size="1" face="Verdana"> <%=rs("data")%></font></p>
																				</td>
																				</tr> 
																				</table>	
																					</td> 
	</tr> 
	</table>
	</td>
	<%If q = 2 Then %>
 </tr>
 <tr> <%		
 	q = 0	  
 	End If		
rs.MoveNext
 Wend
%>	 

 					</tr> 
 					 </table>
 					  <font face="Verdana" size="1">
<%	
 				
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=prod1.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=prod1.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=prod1.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
%>
<%
rs.Close
Set rs = Nothing
End If 
%>
	</font>
	
   </div>
	
	</body>

veja como está

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

você quer q a sua páginação faça:

 

[1][2][3] ... você está exibindo todos os dados do banco de dados nesse link ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

sim estou sim

 

o codigo q poste é uma paginação completa mas esta dando erros naun sei pq?

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ted k' o erro é q naun esta fazendo isso [1] [2] [3]

 

naun esta paginando eu coloquei no registro para exibir 2 produtos por paginas, e naun esta aparecendo os dois...

aparece todos os produtos numa pagina só

 

 

veja como esta > clique aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aqui o seu erro:

<% While Not rs.EOF AND x < rs.PageSize

q = q + 1%>

Você testa com uma variável x que só é alimentada uma vez lá fora do WHILE com o valor x = x + 1 (ou seja fica 1) se você mandar páginar por qualquer valor o x sempre será menor que o PageSize setado e seu While será executado até o fim do arquivo.

 

Troque esse q = q + 1 por x = x+1 e verifique se isso não irá interferir em mais nada em seu código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola salgado bom dia ,

 

cara deu certo sim a paginação, agora naun esta dando certo os produtos como deveriam ficar

 

 

 

tipo

 

Imagem PostadaImagem Postada

 

 

 

Imagem PostadaImagem Postada

 

 

ficou assim

 

Imagem PostadaImagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Então abaixo do x = x + 1 coloque o seu q = q + 1.

Compartilhar este post

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

Informação importante

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

  Aceito