Erro em sistema de busca

[kania 0]

estou com o seguinte problema em um sisteminha de busca que fiz.

 

O usuário ao escolher entre os filtros, Estado, Nome ou Tipo deveria retornar os valores conforme a pesquisa, o Select foi feito de forma que ele pesquise ou por um dos campos ou por todos os campos, porem neste momento ele só esta trazendo se eu seleciono todos os campos.

 

Abaixo o código do select.

 

<%
 estado = Request.Form("estado")
 nome = Request.Form("nome")
 tipo = request.Form ("tipo")

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from lista1800 where estado LIKE '%" & estado & "%' and nome LIKE '%" & nome & "%' and tipo LIKE '%" & tipo & "%' order by estado asc, nome asc, tipo asc" 
RS.Open SQL,Conn,3,3
IF RS.EOF then %>
		<div align="center"><strong><font color="#FF9900" face="Verdana, Arial, Helvetica, sans-serif">Nenhum 
		  número Encontrado<br>para a busca efetuada</font></strong> 
		  <%
   Response.End 'paramos o programa
		ELSE
total = rs.recordcount
   x = 0
   do while x < total

   %>

[Ted k' 126]

no lugar do and coloque OR

[kania 0]

continua com o mesmo erro, por algum motivo ele não esta conseguindo faze a interpretação da forma correta.

 

De uma olhada http://www.acaoesucesso.com.br/1800.asp

 

pelo que estou notando ele só esta fazendo a busca da forma correta quando eu preencho todos os campos, caso contrario ele não faz.

[DSerma 19]

Acho melhor você criar alguns if ai no seu codigo.. assim fica mais garantido.. tipo

 

estado = Request.Form("estado")
nome = Request.Form("nome")
tipo = request.Form ("tipo")


If (estado <> "") Then
SQL = "select * from lista1800 where estado = '" & estado & "' order by estado asc, nome asc, tipo asc"
End if

If (Nome <> "") Then
SQL = "select * from lista1800 where nome LIKE '%" & Nome & "%' order by estado asc, nome asc, tipo asc"
End if

If (tipo <> "") Then
SQL = "select * from lista1800 where tipo = '" & tipo & "' order by estado asc, nome asc, tipo asc"
End if

 

Abraços...

[kania 0]

Obrigado pela dica, vou testar