Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

Busca funcionando, só precisa de uma paginação?

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Olá AMIGOS

 

Consegui fazer esta busca , buscando informações alí e aqui e me quebrando a cabeça, mas quanto ao ADAPTAR a páginação de dados na busca, já tentei, já tentei e nada de dar certo.

 

Podem me ajudar a só colocar esta paginação no código de busca pra mim!

Quem tiver uma boa alma e quiser ajudar o amigo aqui que já está nervoso com este código... pois paginação ainda não é minha praia.

 

Segue código da busca abaixo, que funciona legal... sem problemas:

<%OPTION EXPLICITRESPONSE.EXPIRES = 0%><!--#include file="include_conexao.asp" --><HTML><HEAD><TITLE>Pesquisa de Produtos</TITLE><LINK HREF="include_fontes.css" REL="stylesheet" TYPE="text/css"></HEAD><BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FCF3E0"><%'Definiremos as variaveis que serão usadas Dim IDPROD Dim SQL'Verificaremos oque foi digitado no campo de busca  IF REQUEST.SERVERVARIABLES("CONTENT_LENGTH") <> 0 THEN'Resgatamos o valor vindo do campo do formulário IDPROD = TRIM(Request.Form("pesquisa"))'Criaremos a instrução para selecionarmos os Produtos   SQL = "SELECT * FROM Produtos WHERE Produto LIKE '%" & IDPROD & "%'"   SQL = SQL & " ORDER BY Produto"'Executaremos agora a instrução SQL   SET ObjRS = ObjCX.EXECUTE(SQL)%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">  <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS 		ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><% IF ObjRS.EOF THEN%>  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">	<tr>	<td></td>  </tr>  <tr>	<td><div align="center"><b><font color="#0060BF">Nao existem produtos com este nome!<br>Por favor! tente outro produto.</font></b></div></td>  </tr>  <tr>	<td></td>  </tr></table><% ELSE%><TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">  <TR> 	<TD height="51" colspan="4" bgcolor="#471555"> 	  <DIV align="center"><FONT color="#FFFFFF" size="4"> <B>BUSCA DE PRODUTOS - EXEMPLO AVANÇADO</B></FONT></DIV>	</TD>  </TR>  <TR bgcolor="#FF6600"> 	<TD width="23%" height="25"> 	  <div align="center"><font color="#FFFFFF">IMAGEM PRODUTO</font></div>	</TD>	<TD width="52%"> 	  <DIV align="center"><font color="#FFFFFF">NOME DO(S) PRODUTO(S) E DESCRIÇÃO</font></DIV>	</TD>	<TD width="15%"> 	  <div align="center"><font color="#FFFFFF">PREÇO UNITÁRIO<b> 		</b></font></div>	</TD><%WHILE NOT ObjRS.EOF%>	<TD width="10%"> 	  <DIV align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></DIV>	</TD>  </TR>  <TR bgcolor="#FFFFFF"> 	<TD height="46"><div align="center"><img src="<%= ObjRS("URL_Imagem") %>"> 	  </div></TD>	<TD height="46"><FONT color="#471555" face="Verdana" size="2"> <A HREF=carrinho.asp?id=<%= ObjRS("Cod_Produto")%>><B><%= ObjRS("Produto") %></b></A><BR>	  <BR>	  <%= ObjRS("Descricao") %></FONT>	</TD>	<TD height="46"> 	  <div align="center"><font size="2"><b><font color="#471555" face="Verdana">	  <%= FormatNumber(ObjRS("VRL_Unitario"),2) %></font></b></font></div>	</TD>	<TD height="46"> 	  <DIV align="center"><FONT size="2"><B>	  <a href=carrinho.asp?id=<%= ObjRS("cod_produto")%>><img src="images/fotocarrinho.gif" width="20" height="20" border="0"></a> 		</B></FONT></DIV>	</TD>  </TR><% ObjRS.MoveNext   WEND END IF%> </TABLE><%'Fecharemos as conexões com o banco de dados	 ObjRS.Close SET ObjRS = Nothing	 ObjCX.Close SET ObjCX = Nothing%><%  ELSE%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">   <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS 		ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><%END IF%></BODY></HTML>
Não consigo colocar nesta busca acima(Que funciona perfeitamente) fazer paginação. Analizem vocês que tem bem mais experiencia que eu nisso, pois quero aprender....

 

Me ajudem colegas, só está me faltando isso! Pois quero muito aprender, pois busca eu já aprendi, agora só me falta paginar...

 

Segue o código acima com a paginação de dados incluida:

<!--#include file="include_conexao.asp" --><HTML><HEAD><TITLE>Pesquisa de Produtos</TITLE><LINK HREF="include_fontes.css" REL="stylesheet" TYPE="text/css"></HEAD><BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FCF3E0"><%'Definiremos as variaveis que serão usadas Dim IDPROD Dim SQL'Verificaremos oque foi digitado no campo de busca  IF REQUEST.SERVERVARIABLES("CONTENT_LENGTH") <> 0 THEN'Resgatamos o valor vindo do campo do formulário IDPROD = TRIM(Request.Form("pesquisa"))'Criaremos a instrução para selecionarmos os Produtos   SQL = "SELECT * FROM Produtos WHERE Produto LIKE '%" & IDPROD & "%'"   SQL = SQL & " ORDER BY Produto"'Definimos as configurações para a paginação	 ObjRS.CursorType = 3	 ObjRS.CacheSize = MaximoPorPagina	 ObjRS.PageSize = MaximoPorPagina	 'Executaremos agora a instrução SQL SET ObjRS = ObjCX.EXECUTE(SQL) 'Verificamos qual a página que foi solicitada IF Request.QueryString("PagAtual") = "" THEN	PagAtual = 1		ELSE	PagAtual = Request.QueryString("PagAtual") END IF'Move o RecorSet para o início ObjRS.MoveFirst	 			 'Pega o número total de páginas TotalPages = ObjRS.PageCount 'Configura a página atual ObjRS.AbsolutePage = PagAtual	%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">  <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><% IF ObjRS.EOF THEN%>  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">	<tr>	<td></td>  </tr>  <tr>	<td><div align="center"><b><font color="#0060BF">Nao existem produtos com este nome!<br>Por favor! tente outro produto.</font></b></div></td>  </tr>  <tr>	<td></td>  </tr></table><% ELSE FOR i = 1 TO MaximoPorPagina%><TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">  <TR> 	<TD height="51" colspan="4" bgcolor="#471555"> 	  <DIV align="center"><FONT color="#FFFFFF" size="4"> <B>BUSCA DE PRODUTOS - EXEMPLO AVANÇADO</B></FONT></DIV>	</TD>  </TR>  <TR bgcolor="#FF6600"> 	<TD width="23%" height="25"> 	  <div align="center"><font color="#FFFFFF">IMAGEM PRODUTO</font></div>	</TD>	<TD width="52%"> 	  <DIV align="center"><font color="#FFFFFF">NOME DO(S) PRODUTO(S) E DESCRIÇÃO</font></DIV>	</TD>	<TD width="15%"> 	  <div align="center"><font color="#FFFFFF">PREÇO UNITÁRIO<b> 		</b></font></div>	</TD><%WHILE NOT ObjRS.EOF%>	<TD width="10%"> 	  <DIV align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></DIV>	</TD>  </TR>  <TR bgcolor="#FFFFFF"> 	<TD height="46"><div align="center"><img src="<%= ObjRS("URL_Imagem") %>"> 	  </div></TD>	<TD height="46"><FONT color="#471555" face="Verdana" size="2"> <A HREF=carrinho.asp?id=<%= ObjRS("Cod_Produto")%>><B><%= ObjRS("Produto") %></b></A><BR>	  <BR>	  <%= ObjRS("Descricao") %></FONT>	</TD>	<TD height="46"> 	  <div align="center"><font size="2"><b><font color="#471555" face="Verdana">	  <%= FormatNumber(ObjRS("VRL_Unitario"),2) %></font></b></font></div>	</TD>	<TD height="46"> 	  <DIV align="center"><FONT size="2"><B>	  <a href=carrinho.asp?id=<%= ObjRS("cod_produto")%>><img src="images/fotocarrinho.gif" width="20" height="20" border="0"></a> 		</B></FONT></DIV>	</TD>  </TR><%	ObjRS.MoveNext		  WEND%> </TABLE><table width="95%" border="0" align="center" cellpadding="2" cellspacing="4">  <tr> 	<td> <div align="right"><%'Coloca o Nº página atual / Nº Total de páginas Response.Write("Página " & PagAtual & " de " & TotalPages & "")   'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos -------------------------------- IF TotalPages > 1 THEN%>	  </div></td>  </tr></table><table width="95%" align="center">  <tr> 	<td align="center"> <%IF Cint(PagAtual) > 1 THEN%>	  <a href="produtos.asp?PagAtual=<%=PagAtual-1%>" target="_parent"><img src="imagem_marcador_-_retornar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <% ELSE%>	  <img src="imagem_marcador_-_retornar.gif" width="20" height="16" align="absmiddle">   <%END IF  FOR t=1 TO TotalPages	IF CInt(t) = CInt(PagAtual) THEN %>	  <b><%=t%></b> <%ELSE%>	  <a href="produtos.asp?PagAtual=<%=t%>"><%=t%></a> <% END IF  	IF Cint(t) < TotalPages THEN%><%END IFNEXT	 IF Cint(PagAtual) < TotalPages THEN%>	     <a href="produtos.asp?PagAtual=<%=PagAtual+1%>" target="_parent"><img src="imagem_marcador_-_avancar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <%ELSE%>	     <img src="imagem_marcador_-_avancar.gif" width="20" height="16" align="absmiddle"> <% END IF%>	</td>  </tr></table><%END IF%><%  ELSE%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">   <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS 		ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><%END IF%></BODY></HTML>
Me dêem uma ajuda colegas, pois já estou cansado de tentar, pois acho que até cheguei muito longe sozinho ter conseguido fazer a busca, só que a paginação já me escabelei e nada de conseguir,,, por isso venho até vocês colegas.

 

Contribuem comigo neste código. ok

Pois depois de funcionando, quero fazer tipo um tutorial para eu guardar e não mais incomodar vocÊs...

 

 

Um ABraço a todos

Que puderem me ajudar...

Deus abençoe ....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Azevedo    0

Azevedo
Postado

Ae meu camarada ver se essa paginação funciona..

 

 
Crie um novo arquivo e dê o nome de paginacao.asp.
 
<% 
'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("/coluna_asp/db /clientes.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 = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.
 
'Vamos fazer a busca na tabela contatos
SQL = "select * from contatos" 
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 
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
   response.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<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="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</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="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% 
END IF
%>
 
 
o que acha testa ae...
 
fuiii
 
 
lembrando essa codigo não fui eu quem fiz...



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Olá Azevedo!


 


Obrigado pelo Script! ... Valeu


MAS não consegue me ajudar a arrumar aquele segundo código que postei????


Pois alí está a busca, que até então estava funcionando tudo numa boa, até o momento de eu inserir a páginação, pois acho que não SUBE mesmo é colocar ela no lugar certo.


 


Pois aquela paginação que coloquei junto ao código, é uma paginação que mostra assim:


 


Retorna  1 2 3 4 5 Avançar


 


 


Ok.


E era essa que gostaria de usar, me AJUDA! aí colega....


Pois devo é ter errado onde colocar a paginação...


 


 


Que DEUS te abençoe...


Muito obrigado!


Desde já pela ajuda!


 


Estou aprendendo aos poucos.....



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

O ERRO!


Que está me dando no segundo código que postei, é este abaixo:


 




Erro de compilação do Microsoft VBScript error '800a03fc' 


'Next' esperado 


busca_com_paginacao.asp, line 186 


 


ELSE


^


O ERRO DA LINHA 186, fica nesta parte abaixo do código....


<%  ELSE%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">   <table width="321" border="0" align="center">	<tr>
Não sei oque fazer!
Me ajudemmmmmmmmm


 


 


 


Obrigado!



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
Mário Monteiro
			  

	
		
	
			 179
	
		
	

		

		

			


	
		Mário Monteiro
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
voce tem um FOR dentro deste if??? se tiver voce deve fecha-lo com o NEXT antes de passar para o ELSE


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

MÀRIO


 


Minha paginação com a busca é esta aqui em baixo, veja:




<!--#include file="include_conexao.asp" --><HTML><HEAD><TITLE>Pesquisa de Produtos</TITLE><LINK HREF="include_fontes.css" REL="stylesheet" TYPE="text/css"></HEAD><BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FCF3E0"><%'Definiremos as variaveis que serão usadasDim IDPRODDim SQL'Verificaremos oque foi digitado no campo de busca IF REQUEST.SERVERVARIABLES("CONTENT_LENGTH") <> 0 THEN'Resgatamos o valor vindo do campo do formulárioIDPROD = TRIM(Request.Form("pesquisa"))'Criaremos a instrução para selecionarmos os Produtos   SQL = "SELECT * FROM Produtos WHERE Produto LIKE '%" & IDPROD & "%'"   SQL = SQL & " ORDER BY Produto"'Definimos as configurações para a paginação	 ObjRS.CursorType = 3	 ObjRS.CacheSize = MaximoPorPagina	 ObjRS.PageSize = MaximoPorPagina	 'Executaremos agora a instrução SQLSET ObjRS = ObjCX.EXECUTE(SQL)'Verificamos qual a página que foi solicitadaIF Request.QueryString("PagAtual") = "" THEN	PagAtual = 1		ELSE	PagAtual = Request.QueryString("PagAtual")END IF'Move o RecorSet para o inícioObjRS.MoveFirst	 			 'Pega o número total de páginasTotalPages = ObjRS.PageCount'Configura a página atualObjRS.AbsolutePage = PagAtual	%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">  <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><%IF ObjRS.EOF THEN%>  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">	<tr>	<td></td>  </tr>  <tr>	<td><div align="center"><b><font color="#0060BF">Nao existem produtos com este nome!<br>Por favor! tente outro produto.</font></b></div></td>  </tr>  <tr>	<td></td>  </tr></table><%ELSEFOR i = 1 TO MaximoPorPagina%><TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">  <TR> 	<TD height="51" colspan="4" bgcolor="#471555"> 	  <DIV align="center"><FONT color="#FFFFFF" size="4"> <B>BUSCA DE PRODUTOS - EXEMPLO AVANÇADO</B></FONT></DIV>	</TD>  </TR>  <TR bgcolor="#FF6600"> 	<TD width="23%" height="25"> 	  <div align="center"><font color="#FFFFFF">IMAGEM PRODUTO</font></div>	</TD>	<TD width="52%"> 	  <DIV align="center"><font color="#FFFFFF">NOME DO(S) PRODUTO(S) E DESCRIÇÃO</font></DIV>	</TD>	<TD width="15%"> 	  <div align="center"><font color="#FFFFFF">PREÇO UNITÁRIO<b> 		</b></font></div>	</TD><%WHILE NOT ObjRS.EOF%>	<TD width="10%"> 	  <DIV align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></DIV>	</TD>  </TR>  <TR bgcolor="#FFFFFF"> 	<TD height="46"><div align="center"><img src="<%= ObjRS("URL_Imagem") %>"> 	  </div></TD>	<TD height="46"><FONT color="#471555" face="Verdana" size="2"> <A HREF=carrinho.asp?id=<%= ObjRS("Cod_Produto")%>><B><%= ObjRS("Produto") %></b></A><BR>	  <BR>	  <%= ObjRS("Descricao") %></FONT>	</TD>	<TD height="46"> 	  <div align="center"><font size="2"><b><font color="#471555" face="Verdana">	  <%= FormatNumber(ObjRS("VRL_Unitario"),2) %></font></b></font></div>	</TD>	<TD height="46"> 	  <DIV align="center"><FONT size="2"><B>	  <a href=carrinho.asp?id=<%= ObjRS("cod_produto")%>><img src="images/fotocarrinho.gif" width="20" height="20" border="0"></a> 		</B></FONT></DIV>	</TD>  </TR><%	ObjRS.MoveNext		  WEND%> </TABLE><table width="95%" border="0" align="center" cellpadding="2" cellspacing="4">  <tr> 	<td> <div align="right"><%'Coloca o Nº página atual / Nº Total de páginasResponse.Write("Página " & PagAtual & " de " & TotalPages & "")   'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos --------------------------------IF TotalPages > 1 THEN%>	  </div></td>  </tr></table><table width="95%" align="center">  <tr> 	<td align="center"> <%IF Cint(PagAtual) > 1 THEN%>	  <a href="produtos.asp?PagAtual=<%=PagAtual-1%>" target="_parent"><img src="imagem_marcador_-_retornar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <% ELSE%>	  <img src="imagem_marcador_-_retornar.gif" width="20" height="16" align="absmiddle">   <%END IF  FOR t=1 TO TotalPages	IF CInt(t) = CInt(PagAtual) THEN %>	  <b><%=t%></b> <%ELSE%>	  <a href="produtos.asp?PagAtual=<%=t%>"><%=t%></a> <% END IF  	IF Cint(t) < TotalPages THEN%><%END IFNEXT	 IF Cint(PagAtual) < TotalPages THEN%>	     <a href="produtos.asp?PagAtual=<%=PagAtual+1%>" target="_parent"><img src="imagem_marcador_-_avancar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <%ELSE%>	     <img src="imagem_marcador_-_avancar.gif" width="20" height="16" align="absmiddle"> <% END IF%>	</td>  </tr></table><%END IF%><% ELSE%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">   <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS 		ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><%END IF%></BODY></HTML>

E no código tenho 2 FOR, veja o 1º:


<td><div align="center"><b><font color="#0060BF">Nao existem produtos com este nome!<br>Por favor! tente outro produto.</font></b></div></td>


  </tr>


  <tr>


    <td></td>


  </tr>


</table>


<%


ELSE


FOR i = 1 TO MaximoPorPagina


%>


<TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">


  <TR> 


    <TD height="51" colspan="4" bgcolor="#471555"> 


      <DIV align="center"><FONT color="#FFFFFF" size="4"> <B>BUSCA DE PRODUTOS - EXEMPLO AVANÇADO</B></FONT></DIV>



E o outro FOR aqui:


<% 


ELSE


%>


      <img src="imagem_marcador_-_retornar.gif" width="20" height="16" align="absmiddle">   


<%


END IF  


FOR t=1 TO TotalPages


    IF CInt(t) = CInt(PagAtual) THEN 


%>


      <b><%=t%></b> 


<%


ELSE


%>


      <a href="produtos.asp?PagAtual=<%=t%>"><%=t%></a> 


<% 


END IF  


    IF Cint(t) < TotalPages THEN


%>



AGORA SÓ NÃO SEI QUAL FECHAR, E ONDE??????


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
Mário Monteiro
			  

	
		
	
			 179
	
		
	

		

		

			


	
		Mário Monteiro
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
voce tem de fechar ambos com o NEXT  onde deve ser voce deve verificar o que deve ser repetido dentro de cada um


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

MárioUPFE! E colegas!


 


Fiz oque voce me disse, coloquei mais um NEXT, e logo depois me deu outro erro e me pediu para eu colocar um END, daí eu também coloquei este end, aí o danado me deu outra mensagem de erro, pedindo que eu colocasse na mesma linha do END  um IF, pois bem, coloquei também.... certo.


 


Bom aí funcionou, ele até me trouxe a tela de busca na tela, mas quando fui procurar um produto, ele me deu uma mensagem que faltava o objeto ObjRS. ok


 


Aí eu criei um objeto:


SET ObjRS = Server.CreateObject("ADODB.Recorset")


 


Só que agora depois de criado o objeto ele me deu outra mensagem, vejam:




ADODB.Recordset error '800a0bb9' 


Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. 


busca_com_paginacao.asp, line 26


 


Esta linha 26 está exatamente aqui na minha busca com paginação:


23 - 'Definimos as configurações para a paginação24 -  SET ObjRS = Server.CreateObject("ADODB.RecordSET")25 -		ObjRS.CursorType = 326 -		ObjRS.CacheSize = MaximoPorPagina27		   ObjRS.PageSize = MaximoPorPagina

Bem aqui:
26 -        ObjRS.CacheSize = MaximoPorPagina


 


 


Não sei agora oque será?????????


 


 


 


Meu código todo agora está assim:




<!--#include file="include_conexao.asp" --><HTML><HEAD><TITLE>Pesquisa de Produtos</TITLE><LINK HREF="include_fontes.css" REL="stylesheet" TYPE="text/css"></HEAD><BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FCF3E0"><%'Definiremos as variaveis que serão usadas Dim IDPROD Dim SQL'Verificaremos oque foi digitado no campo de busca  IF REQUEST.SERVERVARIABLES("CONTENT_LENGTH") <> 0 THEN'Resgatamos o valor vindo do campo do formulário IDPROD = TRIM(Request.Form("pesquisa"))'Criaremos a instrução para selecionarmos os Produtos   SQL = "SELECT * FROM Produtos WHERE Produto LIKE '%" & IDPROD & "%'"   SQL = SQL & " ORDER BY Produto"'Definimos as configurações para a paginação SET ObjRS = Server.CreateObject("ADODB.RecordSET")	 ObjRS.CursorType = 3	 ObjRS.CacheSize = MaximoPorPagina	 ObjRS.PageSize = MaximoPorPagina	 'Executaremos agora a instrução SQL SET ObjRS = ObjCX.EXECUTE(SQL) 'Verificamos qual a página que foi solicitada IF Request.QueryString("PagAtual") = "" THEN	PagAtual = 1		ELSE	PagAtual = Request.QueryString("PagAtual") END IF'Move o RecorSet para o início ObjRS.MoveFirst	 			 'Pega o número total de páginas TotalPages = ObjRS.PageCount 'Configura a página atual ObjRS.AbsolutePage = PagAtual	%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">  <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><% IF ObjRS.EOF THEN%>  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">	<tr>	<td></td>  </tr>  <tr>	<td><div align="center"><b><font color="#0060BF">Nao existem produtos com este nome!<br>Por favor! tente outro produto.</font></b></div></td>  </tr>  <tr>	<td></td>  </tr></table><% ELSE FOR i = 1 TO MaximoPorPagina%><TABLE width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">  <TR> 	<TD height="51" colspan="4" bgcolor="#471555"> 	  <DIV align="center"><FONT color="#FFFFFF" size="4"> <B>BUSCA DE PRODUTOS - EXEMPLO AVANÇADO</B></FONT></DIV>	</TD>  </TR>  <TR bgcolor="#FF6600"> 	<TD width="23%" height="25"> 	  <div align="center"><font color="#FFFFFF">IMAGEM PRODUTO</font></div>	</TD>	<TD width="52%"> 	  <DIV align="center"><font color="#FFFFFF">NOME DO(S) PRODUTO(S) E DESCRIÇÃO</font></DIV>	</TD>	<TD width="15%"> 	  <div align="center"><font color="#FFFFFF">PREÇO UNITÁRIO<b> 		</b></font></div>	</TD><%WHILE NOT ObjRS.EOF%>	<TD width="10%"> 	  <DIV align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></DIV>	</TD>  </TR>  <TR bgcolor="#FFFFFF"> 	<TD height="46"><div align="center"><img src="<%= ObjRS("URL_Imagem") %>"> 	  </div></TD>	<TD height="46"><FONT color="#471555" face="Verdana" size="2"> <A HREF=carrinho.asp?id=<%= ObjRS("Cod_Produto")%>><B><%= ObjRS("Produto") %></b></A><BR>	  <BR>	  <%= ObjRS("Descricao") %></FONT>	</TD>	<TD height="46"> 	  <div align="center"><font size="2"><b><font color="#471555" face="Verdana">	  <%= FormatNumber(ObjRS("VRL_Unitario"),2) %></font></b></font></div>	</TD>	<TD height="46"> 	  <DIV align="center"><FONT size="2"><B>	  <a href=carrinho.asp?id=<%= ObjRS("cod_produto")%>><img src="images/fotocarrinho.gif" width="20" height="20" border="0"></a> 		</B></FONT></DIV>	</TD>  </TR><%	ObjRS.MoveNext		  Wend%> </TABLE><table width="95%" border="0" align="center" cellpadding="2" cellspacing="4">  <tr> 	<td> <div align="right"><%'Coloca o Nº página atual / Nº Total de páginas Response.Write("Página " & PagAtual & " de " & TotalPages & "")   'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos -------------------------------- IF TotalPages > 1 THEN%>	  </div></td>  </tr></table><table width="95%" align="center">  <tr> 	<td align="center"> <%IF Cint(PagAtual) > 1 THEN%>	  <a href="produtos.asp?PagAtual=<%=PagAtual-1%>" target="_parent"><img src="imagem_marcador_-_retornar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <% ELSE%>	  <img src="imagem_marcador_-_retornar.gif" width="20" height="16" align="absmiddle">   <%END IF  FOR t=1 TO TotalPages	IF CInt(t) = CInt(PagAtual) THEN %>	  <b><%=t%></b> <%ELSE%>	  <a href="produtos.asp?PagAtual=<%=t%>"><%=t%></a> <% END IF  	IF Cint(t) < TotalPages THEN%><%END IFNEXT	 IF Cint(PagAtual) < TotalPages THEN%>	     <a href="produtos.asp?PagAtual=<%=PagAtual+1%>" target="_parent"><img src="imagem_marcador_-_avancar.gif" width="20" height="16" border="0" align="absmiddle"></a> 	     <%ELSE%>	     <img src="imagem_marcador_-_avancar.gif" width="20" height="16" align="absmiddle"> <% END IF%>	</td>  </tr></table><%END IF%><% NEXTEND IFELSE%><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="POST">   <table width="321" border="0" align="center">	<tr> 	  <td height="38" colspan="3"><font color="#FF0000"><strong>LOCALIZE PRODUTOS 		ABAIXO:</strong></font></td>	</tr>	<tr> 	  <td><strong>Produto:</strong></td>	  <td><div align="center"><input name="pesquisa" type="text"></div></td>	  <td><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar Produto"> 	  </td>	</tr>  </table></FORM><%END IF%></BODY></HTML>



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Hei PESSOAL!


 


Alguém consegue me dizer oque devo fazer agora?????


Pois quero concluir este meu exemplo de busca com paginação, para que assim eu possa imprimir como um exemplo, para quando eu precisar possa usá-lo como referencia. ok


 


 


Aguardo a manifestações dos amigos.


Deus abençoe a todos.


Tudo de BOM



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Queridos Irmãos em CRISTO!


 


Será que ninguém sabe me ajudar, pois se alguem consegue me ajudar, por favor....


Quero terminar com esta parte, pois nunca consegui fazer uma página de busca  e paginação  incluida?


 


 


ME AJUDEM! 


POR GENTILEZA?



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
Azevedo
			  

	
		
	
			 0
	
		
	

		

		

			


	
		Azevedo
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Ae esta uma paginação show de bola



.................................................comentarios....................



.........................






<%PagAtual = Request.QueryString("PagAtual") 'página atualset conn = Server.CreateObject("ADODB.Connection")strconn = "DBQ=" & Server.MapPath("db_municipio.mdb")conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; " & strconnSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoRS.CursorLocation = 3 'aqui vai a sua consulta....aqui você coloca o select da busca......SQL = "SELECT * FROM tb_municipio"RS.Open SQL, conn, 3'############## paginacao Introdução  #################'------- Coloque aqui a quantidade de registros que você deseja por página --------Const NumPorPage = 20'Verifica qual a página solicitadaDim PagAtualIF Request.QueryString("PagAtual") = "" Then	PagAtual = 1 'Primeira páginaElse	PagAtual = Request.QueryString("PagAtual")End If   'Cria conexão com o Banco de Dados, já abrir anteriormente   'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")   '>>> FIZ EM CIMA RS.CursorLocation = 3		Acerta a posição do cursor . 3 ou adUseClient  RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros   'Cria a String SQL   '>>> FIZ EM CIMA Dim SQLpag   '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"   '>>> FIZ EM CIMA RS.Open SQLpag, Conn	Abre o RecordSetRS.MoveFirst				'Move o RecorSet para o início RS.PageSize = NumPorPage	'Coloca a quantidade de páginasDim TotalPages			  'Pega o número total de páginasTotalPages = RS.PageCountRS.AbsolutePage = PagAtual  'Configura a página atual'############## paginacao Introdução  - FIM #################Count = 0	   'Zera o contador   'Inicia a Função DO, utilizando a quantidade de páginas especificadas'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 linha=trueDO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize linha = not linha %>'-------------------------------------------------------------inicio html----------------------------------------------------aqui vai seu html...você pode fazer uma tabela...depois chama o asp...sei lá.....olha o meu ex. abaixo<table width="100%" border="0" cellpadding="0" cellspacing="0"><%if linha then%> <tr bgcolor="#eeeeee"><%else%> <tr bgcolor="#cccccc"><%end if%>'aqui tenho um linha conde esta sendo preenchido dinamicamente ....o conteúdo do banco....	<td><span class="style1"><%=RS("ds_municipio")%></span></td> </tr></table><div align="center">'---------------------------------------------------------------------fim----------------------------------------------------  <%	 i = i+1	 Count = Count + 1   'paginacao	 RS.MoveNext	 LOOP				'tb paginacao'################## paginacao 01 ##################### 'Coloca o Nº página atual / Nº Total de páginasResponse.Write("<em><font color=""#0000FF"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""> Página "& PagAtual &" de "& TotalPages &"</font> - </em>")   'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">") 	  Response.Write("<a href='paginação.asp?PagAtual=" &  1 & "'>")	  Response.Write("Primeira") 	  Response.Write("</a></font></B>  ")	  	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">") 	  Response.Write("<a href='paginação.asp?PagAtual=" & PagAtual - 1 & "'>")	  Response.Write("Anterior")    	  Response.Write("<font color=#999999>|</font>") 	  Response.Write("</a></font></B>  ")Else	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">") 	  Response.Write("Primeira") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">") 	  Response.Write("Anterior")    	  Response.Write("<font color=#999999 size=2>|</font>") 	  Response.Write("</font></B>  ")End If'------------------- numero -------------------------'---------- Numero de numeros para ser mostrados ----max_n_mostrados = 10intervalo = Int(max_n_mostrados /2)inicio = PagAtual - intervalofinal = PagAtual + intervaloIf CInt(inicio) <1 Then  inicio = 1 final = 10END IFIf CInt(final) > CInt(TotalPages) Then final = TotalPagesFor i = inicio To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#FF0000"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">[<B>" & i & "</B>]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then		 Response.Write("<font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">") 		Response.Write "<a href='paginação.asp?PagAtual=" & i & "'>" & i & "</a>  "		Response.Write("</font></B>  ")	 END IF		 If CInt(i) > CInt(PagAtual) Then		   Response.Write("<font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">")		 Response.Write "<a href='paginação.asp?PagAtual=" & i & "'>" & i & "</a>  "		 Response.Write("</font></B>  ")		 END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e Primeira	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">")	  Response.Write("<a href='paginação.asp?PagAtual=" & PagAtual + 1 & "'>")   	  Response.Write("<font color=#999999>|</font>") 	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ") 	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">")	  Response.Write("<a href='paginação.asp?PagAtual=" & TotalPages & "'>")	  Response.Write("Ultima")	  Response.Write("</a></font></B>  ")		 Else	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">")   	  Response.Write("<font color=#999999 size=2>|</font>") 	  Response.Write("Próxima") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">")	  Response.Write("Ultima") 	  Response.Write("</font></B>  ")End If'################## fim paginacao 01 ########################Rs.Close  Conn.Close	  Set Conn = Nothing %></div>


 



ae meu velho agora você termina.....esta moleza....



so uma coisa lembre de muda o nome da pagina..



ex:






Response.Write("<a href='paginação.asp?PagAtual=" & PagAtual + 1 & "'>")   	  Response.Write("<font color=#999999>|</font>") 	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ")



tem que fica assimm


 






Response.Write("<a href='nomedasuapagina.asp?PagAtual=" & PagAtual + 1 & "'>")   	  Response.Write("<font color=#999999>|</font>") 	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ")


 



fuii qualquer coisa....


 



renanxa@gmail.com



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
marcelocardoso
			  

	
		
	
			 6
	
		
	

		

		

			


	
		marcelocardoso
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Valeu AZEVEDO!


 


Esta paginação que me passou, foi a mesma que tentei adaptar no meu código de busca, mas não obtive exito...ok


 


Mas acho que agora com sua paginação do jeito que está comentada, acho que conseguirei ....


Mas qualquer coisa retorno.


 


 


Um Abraço!


Deus Abençoe.



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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