% @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" 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) %>