Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

erro no while e na paginação

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

opa esqueci de postar o codigo 

produtos.asp
<% registros = 4
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
%>

<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: 827; height: 256">
		 <table width="480">
		  <col width="64" span="2" style="width:48pt">
		  <tr height="17" style="height:12.75pt">
			<td rowspan="3" height="51" class="xl24" width="122" style="height: 38.25pt">
			  <p align="center"><img border="0" src="../imagens/minieee.gif"></td>
			<td width="344"></td>
		  </tr>
		  <tr height="17" style="height:12.75pt">
			<td height="17" style="height: 12.75pt" width="344">
			  <p align="left"><font face="Arial Rounded MT Bold" size="7">Produtos</font></td>
		  </tr>
		  <tr height="17" style="height:12.75pt">
			<td height="17" style="height: 12.75pt" width="344">
			  <p align="right"><a href="java script:window.history.go(-1)" target="_self"><font size="2" face="Verdana"><b>..:: Voltar ::..</b></font></a>
</td>
		  </tr>
		 </table>
		 <hr>
   		<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" >  
<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 face="Arial Rounded MT Bold" size="3"><%=rs("nome")%></font>
														</p>
												</td>
														</tr>
														<tr height="17" style="height:12.75pt">
														<td height="135" width="137" rowspan="2">
														<img border="1" src="<%=rs("foto")%>" width="138" height="131">
														</td>
														<td width="172" height="114">
														  <p align="center"><font size="2" face="Verdana"><a href="lesao.asp?id=<%=rs("id")%>"><img border="0" src="../imagens/bt_detalhes.gif"></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("valor1")%></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> 
	</table>
	</td>
<% If q = 2 Then %> 	 
 </tr>
 <tr><%	 	
 	q = 0	  
 		End If		
rs.MoveNext
 
 		Wend
%>

 					</tr> 
 					 </table>
					<hr>
 					  <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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

post exatamente o erro pois sua descricao ficou confusa

 

se tiver o exemplo online seria ainda melhor

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Olá Mário bom dia,

o erro é, q qndo eu coloco qnts produtos devera aparecer em cada pagina, naun aparece a qntidade exata, mas sim todos.

 

veja a pagina clique aqui...

 

deveria aparecer apenas (04) produtos em cada pagina.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dê novo esse tópico? O mesmo erro, você não está alimentando a variavel que conta a quantidade de registros para "encerrar" o laço WHILE. Abaixo do trecho q = q + 1 coloque x = x + 1.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Segundo esse outro tópico seu havia funcionado parcialmente. Seu código atual está diferente pois não apresenta o "x = 0" no início dele.

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