<% @LANGUAGE = VBScript %>
<%
response.Expires=0
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("fb.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
varString = Request.Form("txtSTRING")
varString2 = Request.Form("txtSTRING2")
if varString = "1" then
sql="SELECT * FROM fbimoveis Where nomebairro <> 'BARRA DA TIJUCA'" & _
" AND nomebairro <> 'RECREIO' AND nomebairro <> 'JACAREPAGUÁ'" & _
"AND nomebairro <> 'VARGEM GRANDE' AND nomebairro <> 'VARGEM PEQUENA' ORDER BY quartos,preco ASC"
elseif varStrin = "2" then
sql="SELECT * FROM fbimoveis WHERE estado <> 'RJ' ORDER BY quartos,preco ASC"
sql="SELECT * FROM fbimoveis Where nomebairro LIKE '%" & _
Request.Form("txtSTRING") & "%' AND tipoimovel LIKE '%" & _
Request.Form("txtSTRING2") & "%' ORDER BY quartos ASC"
Set Lerimoveis = objConn.execute(sql)
else
sql="SELECT * FROM fbimoveis Where nomebairro LIKE '%" & _
varString & "%' AND tipoimovel LIKE '%" & _
varString2 & "%' ORDER BY quartos,preco ASC"
end if
Set Lerimoveis = objConn.execute(sql)
%>
Filmes dos Imóveis em Destaque