<% Function Resumindo(Txt, Tam) Palavras = Split(Txt, " ") Texto = "" Comp = 0 For i = 0 To UBound(Palavras) Comp = Comp + Len(Palavras(i)) If i < UBound(Palavras) Then Comp = Comp + 1 If Comp <= Tam Then Texto = Texto & Palavras(i) & " " Else Texto = Texto & "..." Exit For End If Next Resumindo = Trim(Texto) End Function %> LG IMÓVEIS | JOINVILLE - SANTA CATARINA - BRASIL <% if request.Form("w_ref") = "" then if request("ref") = "" then else ref = request("ref") end if else ref = request.Form("w_ref") end if if ref = "Código" then ref = "" end if if request.Form("w_preco_ini") = "" then if request("valor_ini") = "" then else vl_ini = request("valor_ini") end if else vl_ini = request.Form("w_preco_ini") end if if request.Form("w_preco_fim") = "" then if request("valor_fim") = "" then else vl_fim = request("valor_fim") end if else vl_fim = request.Form("w_preco_fim") end if if request.Form("w_o_que") = "" then if request("venda_aluguel") = "" then else venda_aluguel = request("venda_aluguel") end if else venda_aluguel = request.Form("w_o_que") end if if request.Form("w_tipo") = "" then if request("tipo") = "" then else tipo = request("tipo") end if else tipo = request.Form("w_tipo") end if if request.Form("w_cidade") = "" then if request("cidade") = "" then else cidade = request("cidade") end if else cidade = request.Form("w_cidade") end if if request.Form("w_bairro") = "" then if request("bairro") = "" then else bairro = request("bairro") end if else bairro = request.Form("w_bairro") end if %>
 
 
       
 
 
LOCALIZAÇÃO
VALOR
 
 
  Resultado da Busca
<% Select Case venda_aluguel Case "A" tipo_acordo_a = "Alugar" Case "V" tipo_acordo_a = "Comprar" End Select Select Case tipo Case "C" tipo_imovel_a = "Casa" Case "A" tipo_imovel_a = "Apartamento" Case "S" tipo_imovel_a = "Sala Comercial" Case "G" tipo_imovel_a = "Galpão" Case "R" tipo_imovel_a = "Área" Case "L" tipo_imovel_a = "Terreno" Case "I" tipo_imovel_a = "Sítio" Case "B" tipo_imovel_a = "Sobrado" Case "Q" tipo_imovel_a = "Quitinete" Case "Todos" tipo_imovel_a = "Todos" End Select response.write tipo_acordo_a & " / " & tipo_imovel_a & " / " & cidade & " / " & bairro %>
Ordenar por: Bairro Valor
 
<% ordem = request("ordenar") if vl_ini = "" then vl_ini = "0" end if if vl_fim = "" then vl_fim = "999999999999999" end if if Request.ServerVariables("REQUEST_METHOD") = "GET" then if vl_ini = "0" then vl_ini = request("valor_ini") if vl_fim = "999999999999999" then vl_fim = request("valor_fim") if tipo = "" then tipo= request("tipo") if bairro = "" then bairro= request("bairro") if cidade = "" then cidade= request("cidade") if venda_aluguel = "" then venda_aluguel= request("venda_aluguel") end if regs = 12 'Aqui setamos quantos registros serão listados por página pag = request.querystring("pagina") if pag = "" then pag = 1 set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("banco/imobiliaria.mdb") set rs = createobject("adodb.recordset") set rs.activeconnection = conn set rscont = createobject("adodb.recordset") set rscont.activeconnection = conn rs.cursortype = 3 'Definimos o cursor a ser utilizado rs.pagesize = regs sql = "select * from imovel" if venda_aluguel <> "Todos" then sql = sql & " where imovel.venda_aluguel = '" & venda_aluguel & "'" if tipo = "L" then sql = sql & " and imovel.vl_terreno >= " & vl_ini sql = sql & " and imovel.vl_terreno <= " & vl_fim else Select Case venda_aluguel Case "A" sql = sql & " and imovel.vl_loc_imov >= " & vl_ini sql = sql & " and imovel.vl_loc_imov <= " & vl_fim Case "V" sql = sql & " and imovel.vl_venda_imov >= " & vl_ini sql = sql & " and imovel.vl_venda_imov <= " & vl_fim End Select end if else sql = sql & " where ((imovel.vl_loc_imov >= " & vl_ini & " and imovel.vl_loc_imov <= " & vl_fim & ")" sql = sql & " or (imovel.vl_venda_imov >= " & vl_ini & " and imovel.vl_venda_imov <= " & vl_fim & ")" sql = sql & " or (imovel.vl_terreno >= " & vl_ini & " and imovel.vl_terreno <= " & vl_fim & "))" end if if ref <> "" then sql = sql & " and imovel.ref = '" & ref & "'" end if if bairro <> "Todos" and bairro <> "" then sql = sql & " and imovel.bairro = '" & bairro & "'" end if if cidade <> "Todos" and cidade <> "" then sql = sql & " and imovel.cidade = '" & cidade & "'" end if if tipo <> "Todos" and tipo <> "" then sql = sql & " and imovel.tipo_imovel = '" & tipo & "'" end if if ordem = "valor" then if tipo = "L" then sql = sql & " order by imovel.vl_terreno desc" else Select Case venda_aluguel Case "A" sql = sql & " order by imovel.vl_loc_imov desc" Case "V" sql = sql & " order by imovel.vl_venda_imov desc" End Select end if else if ordem = "bairro" then sql = sql & " order by imovel.bairro " else if tipo = "L" then sql = sql & " order by imovel.vl_terreno desc" else Select Case venda_aluguel Case "A" sql = sql & " order by imovel.vl_loc_imov desc" Case "V" sql = sql & " order by imovel.vl_venda_imov desc" End Select end if end if end if rs.open sql rscont.open sql if rs.eof or rs.bof then achou = 1 else achou = 2 rs.absolutepage = pag end if cont = 0 do while not rscont.eof cont = cont + 1 rscont.movenext loop if achou = 1 then response.Write("Nenhum imóvel encontrado.

") end if if cont <= regs then achou = 1 else achou = 2 end if if achou = 2 then %>
Foram encontrados <%=cont%> registros para a sua consulta
<% if pag > 1 then %> << ANTERIOR   <% else %> << ANTERIOR   <% end if %> <% for i = 1 to rs.pagecount if i = cint(pag) then %> <%=i%> <% else %> <%=i%> <% end if next %> <% if (pag + 1) <> i then %>   AVANÇAR >> <% else %>   AVANÇAR >> <% end if %>
<% end if %> <% cont_a = 0 contador = 0 cont_tr = 0 do while not rs.eof and contador < rs.pagesize Select Case rs("venda_aluguel") Case "A" tipo_acordo = "Locação" Case "V" tipo_acordo = "Venda" End Select if cont_tr = 0 then response.Write("") end if response.Write(" ") if cont_tr = 3 then response.Write("") response.Write("") cont_tr = 0 else cont_tr = cont_tr + 1 if cont_tr >= cont then response.write "" end if end if contador = contador + 1 rs.movenext loop %>
") %>
<% if trim(rs("dir_foto_imov")) <> "" then response.Write("") response.Write (" ") else response.Write ("
") end if %>
 <%=tipo_acordo%>
<% response.write Resumindo(rs("obs1"),50) %>
<%=rs("cidade")%> - <%=rs("bairro")%>
<% if rs("tipo_imovel") <> "L" and rs("tipo_imovel") <> "I" then if rs("venda_aluguel") = "A" then response.Write(FormatCurrency (rs("vl_loc_imov"))) else response.Write(FormatCurrency (rs("vl_venda_imov"))) end if else response.Write(FormatCurrency (rs("vl_terreno"))) end if %>
<% response.Write("
<% if achou = 2 then %>
 
Foram encontrados <%=cont%> registros para a sua consulta
<% if pag > 1 then %> << ANTERIOR   <% else %> << ANTERIOR   <% end if %> <% for i = 1 to rs.pagecount if i = cint(pag) then %> <%=i%> <% else %> <%=i%> <% end if %> <% next %> <% if (pag + 1) <> i then %>   AVANÇAR >> <% else %>   AVANÇAR >> <% end if %>
<% end if rs.close conn.close set rs = nothing set conn = nothing %>
home
 
 
 
Banco Santander (Brasil) S.A. Banco do Brasil Caixa Econômica Federal HSBC