Ir para conteúdo

POWERED BY:

Arquivado

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

NewUser

Busca refinada com list/menu select

Por , em ASP Clássico

Recommended Posts

NewUser    0

NewUser
Postado

Criei um sistema de busca super simples mais ele só faz a busca em um campo do BD.

Gostaria de colocar uma campo select ou até mesmo opcion para filtra a busca igual na página do google em eu escolho na web paginas em português ou paginas do Brasil.

Meu código atual é este:

 

Buscar.asp



 


  Set objRS = ObjConexao.Execute(strSQL)


 


  %>


 


  Resultado(s) Encontrado linenums:0'><% @Language = VBScript %><%strBusca = Request.QueryString("busca")if strBusca <> "" then  stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("data/cadastro.mdb")  Set objConexao = Server.CreateObject("ADODB.Connection")  objConexao.Open stringConexao  strSQL = "SELECT * FROM produtos WHERE descricao LIKE '%"& strBusca &"%'"  Set objRS = ObjConexao.Execute(strSQL)  %>  Resultado(s) Encontrado:  <HR>  <%    While not objRS.EOF  response.write "produto: " & objRS("produto") & "<BR>"  response.write "<A href='" & objRS("link") & "'>" &  objRS("valor") & "</A>" & " - " & objRS("descricao") & "  " & "<a href='mailto:" & objRS("frete") & "'>" & "[Webmaster]" & "</A>" & "<BR><BR>"  objRS.MoveNext    Wend end if %>
Tô quase lá, espero ajuda valeu!

			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
NewUser
			  

	
		
	
			 0
	
		
	

		

		

			


	
		NewUser
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			



Cara não sei se entendi bem, mas parece simples.


strSQL = "SELECT * FROM produtos WHERE descricao LIKE '%"& strBusca &"%' AND CAMPO2 = "&NomeCampoNovo
Qualquer coisa, posta aí.
Conceguir um script melhor mais em todo caso vou testa e volto a postar. VLW um abraço!!!

			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
NewUser
			  

	
		
	
			 0
	
		
	

		

		

			


	
		NewUser
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Consegui cria um sistema melhor mais ae vem outra dúvida.Minha busca funciona normalmente porem todas as respostas buscada lista seguidamente com o loop "wend", mais gostaria de que apenas fossem mostradas de 4 em quatro respostas de cada vez, como faço isso.Segue meu código de busca completo:


<%@LANGUAGE="vb script:history.back(1)'>voltar</a></b></font></center>"			else		%>-----------<HTML>-------------------------------<BODY>--------------------<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %><td><%=Recordset1("empresa")%></td><%   Repeat1__index=Repeat1__index+1  Repeat1__numRows=Repeat1__numRows-1  Recordset1.MoveNext()Wend%><!--Fecha a conexão -->  <%end if %>  <%Recordset1.Close()%>-----------</BODY>-------------------




Obrigado!!!



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
jothaz
			  

	
		
	
			 1
	
		
	

		

		

			


	
		jothaz
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Camarada,


 


Tente assim:


<%


 


Dim i


i = 0


While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF) And i <=4)




 


%>


 


<td><%=Recordset1("empresa")%></td>


 


<%


Repeat1__index=Repeat1__index+1


Repeat1__numRows=Repeat1__numRows-1




i = i + 1




Recordset1.MoveNext()


Wend


%>


<!--Fecha a conexão -->


<%end if %>


<%


Recordset1.Close()


%>


 


 


Outra idéia é:


strSQL = "SELECT TOP 4 * FROM produtos WHERE descricao LIKE '%"& strBusca &"%' AND CAMPO2 = &NomeCampoNovo


 


No SQL SERVER.


 


 


t+



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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