Condições

[DackAle]

E ae galera =)

Seguinte, to enforcado isso é muito urgente ahahaha

no site http://www.imobilinet.com.br/demonstracao do lado direito tem uma busca com 4 campos, consegui fazer a busca com os 3 primeiros campos, numa gambiarra desgraça de ifs...rs

Agora preciso fazer funcionar a busca com o 4º campo, mas não sei como fazer...

o 4º quampo vai ser um select com between para pegar imoveis entra X e Y

minha busca ficou assim:

<%
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

var_categoria = trim(request("variasp_categoria"))
var_tipo = trim(request("variasp_tipo"))
var_local2 = trim(request("variasp_local2"))
var_valor= trim(request("variasp_valor"))

if NOT var_valor = "todos" then
SQL_V="SELECT * FROM valores WHERE id=" & var_valor
set rs_v = server.CreateObject("adodb.recordset")
rs_v.open sql_v,conexao

valor01 = rs_v("valor01")
valor02 = rs_v("valor02")
end if

if var_categoria = "todos" AND var_tipo = "todos" AND var_local2 = "todos" THEN
sql = "SELECT * FROM imoveis ORDER BY bairro, preço"

elseif var_categoria = "todos" AND var_tipo = "todos" THEN
sql = "SELECT * FROM imoveis WHERE localidade='" & var_local2 & "' ORDER BY bairro, preço"

elseif var_categoria = "todos" AND var_local2 = "todos" THEN
sql = "SELECT * FROM imoveis WHERE tipo='" & var_tipo & "' ORDER BY bairro, preço"

elseif var_tipo = "todos" AND var_local2 = "todos" THEN
sql = "SELECT * FROM imoveis WHERE categoria='" & var_categoria & "' ORDER BY bairro, preço"

elseif var_tipo = "todos" THEN
sql = "SELECT * FROM imoveis WHERE localidade='" & var_local2 & "' AND categoria='" & var_categoria & "' ORDER BY bairro, preço"

elseif var_categoria = "todos" THEN
sql = "SELECT * FROM imoveis WHERE tipo='" & var_tipo & "' AND localidade='" & var_local2 & "' ORDER BY bairro, preço"

elseif var_local2 = "todos" THEN
sql = "SELECT * FROM imoveis WHERE categoria='" & var_categoria & "' AND tipo='" & var_tipo & "' ORDER BY bairro, preço"

else

sql = "SELECT * FROM imoveis WHERE categoria='" & var_categoria & "' AND localidade='" & var_local2 & "' AND tipo='" & var_tipo & "' ORDER BY bairro, preço"
end if 

SET RS = Server.CreateObject("AdoDB.RecordSet")
RS.Open SQL,Conexao,3,3

registros = 10
endereco = "busca.asp"
rs.cachesize = registros 
rs.pagesize = registros

pagina = request.querystring("pagina")
if pagina = "" then
pagina = 1
end if
%>

lembrando que não posso por o between em todos... porque se o cara selecionar a opção "todos", ele pega todos os preços... dai gera erro na busca...

alguém tem alguma sugestão de como implantar essa ultima busca no meu sisteminha galera ?

Valeu galera =)

Abraçãoooo

[ursolouco]

Brother!!

Visitando seu website, deparei com o seguinte erro:

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'id='. 

/imobilinet.com.br_non_ssl/demonstracao/busca.asp, line 28 

Dá uma olhadinha lá !!

A sugestão que deixo para vc, embora não saiba o banco de dados que esta sendo utilizado, seria stored procedures (Consultas armazenadas) com envio de parametros em tempo de execução, para agilizar a consulta no banco de dados e ainda mais, deixando assim, seu recordset, mas agil e menos sobre-carregado.

Se vc, nunca trabalhou ou executou stored procedures, no site do superasp, há um artigo muito interessante e facil de aprender para resolver seu problema

Abração e Boa Sorte !!!

OBS: cuidado com seu GET :

http://www.imobilinet.com.br/imobilinet.com.br_non_ssl/demonstracao/busca.asp?c=<%=Server.URLEncode(variasp_categoria)%>&t=<%=Server.URLEncode(variasp_tipo)%>&l=<%=Server.URLEncode(variasp_local2)%>&p=<%=Server.URLEncode(variasp_preco)%>