<% If iTipBus <> 2 Then %> <% Else %> <% End If %>

 

PÁGINA INICIAL

FALE CONOSCO

ÁREA ADMINISTRATIVA

Imóveis para Locação  |  Imóveis para Venda  |  Cadastre seu Imóvel

Visitantes

  <% Dim iContFor Dim sValorImovel Dim sDormitorios Dim sString Dim cVlrIniAux Dim cVlrFinAux Dim iContImg Imoveis.Close If iCodImoDet = 0 Then If iTipBus = 0 Then %> <% End IF %> <% If iTipBus = 0 Then Imoveis.open "SELECT * FROM IMOVEIS WHERE IMO_VIT AND IMO_ATI ORDER BY IMO_ORD", Banco_D, 1, 3 End IF If iTipBus = 1 Then Imoveis.open "SELECT * FROM IMOVEIS WHERE IMO_ATI AND IMO_COD = " & iCodImo & " ORDER BY IMO_ORD", Banco_D, 1, 3 End If If iTipBus = 2 Then sString = "IMO_ATI" If sSitImo <> "Selecione..." Then sString = sString & " AND IMO_SIT = '" & sSitImo & "'" End If If sTipImo <> "Selecione..." Then sString = sString & " AND IMO_TIP = '" & sTipImo & "'" End If If cVlrIni <> "" Or cVlrFin <> "" Then cVlrIniAux = cVlrIni If Not IsNumeric (cVlrIniAux) Then cVlrIniAux = 0 End If cVlrFinAux = cVlrFin If Not IsNumeric (cVlrFinAux) Then cVlrFinAux = 9999999 End If sString = SString & " AND IMO_VLR >= " & cVlrIniAux & " AND IMO_VLR <= " & CVlrFinAux End If If sCidImo <> "Selecione..." Then sString = sString & " AND IMO_CID = '" & sCidImo & "'" End If If sBaiImo <> "Selecione..." Then sString = sString & " AND IMO_BAI = '" & sBaiImo & "'" End If Imoveis.open "SELECT * FROM IMOVEIS WHERE " & sString & " ORDER BY IMO_ORD", Banco_D, 1, 3 End If If Imoveis.Eof Then %> <% End If For iContFor = 1 to Imoveis.RecordCount If Imoveis ("IMO_VLR") > 0.00 Then sValorImovel = FormatCurrency (Imoveis ("IMO_VLR")) Else sValorImovel = "Consulte" End If sDormitorios = "" If Imoveis ("IMO_DOR") > 0 Then IF Imoveis ("IMO_DOR") = 1 Then sDormitorios = "1 Dormitório" Else sDormitorios = "" & Imoveis ("IMO_DOR") & " Dormitórios" End If End If If Imoveis ("IMO_SUI") > 0 Then IF Imoveis ("IMO_SUI") = 1 Then sDormitorios = sDormitorios & " e 1 Suíte" Else sDormitorios = sDormitorios & " e " & Imoveis ("IMO_SUI") & " Suítes" End If End If Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Imoveis.MoveNext Next Else Imoveis.open "SELECT * FROM IMOVEIS WHERE IMO_ATI AND IMO_COD = " & iCodImoDet & " ORDER BY IMO_ORD", Banco_D, 1, 3 If Imoveis ("IMO_VLR") > 0.00 Then sValorImovel = FormatCurrency (Imoveis ("IMO_VLR")) Else sValorImovel = "Consulte" End If sDormitorios = "" If Imoveis ("IMO_DOR") > 0 Then IF Imoveis ("IMO_DOR") = 1 Then sDormitorios = "1 Dormitório" Else sDormitorios = "" & Imoveis ("IMO_DOR") & " Dormitórios" End If End If If Imoveis ("IMO_SUI") > 0 Then IF Imoveis ("IMO_SUI") = 1 Then sDormitorios = sDormitorios & " e 1 Suíte" Else sDormitorios = sDormitorios & " e " & Imoveis ("IMO_SUI") & " Suítes" End If End If Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") End If %>

Bem-vindo a Imobiliária Sul Praias

") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") Response.Write ("" & Imoveis ("IMO_SIT") & " - " & Imoveis ("IMO_SUC") & "

") Response.Write ("") Response.Write ("") Response.Write ("") Else Response.Write ("") End If Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") Response.Write ("") Response.Write ("") If Imoveis ("IMO_IM1") = "" Or IsNull (Imoveis ("IMO_IM1")) Then Response.Write ("

") Response.Write ("

") Response.Write ("" & Imoveis ("IMO_SIT") & ": " & sValorImovel & "

") Response.Write ("

") Response.Write ("Cidade: " & Imoveis ("IMO_CID") & "

") If sDormitorios <> "" Then Response.Write ("

") Response.Write ("" & sDormitorios & "

") End If Response.Write ("
") Response.Write ("

") Response.Write ("" & MID (Imoveis ("IMO_DES"), 1, 150) & "...

") Response.Write ("

") Response.Write (" 

") Response.Write ("
") Response.Write ("
") Response.Write ("

") Response.Write ("Código: " & Right ("0000" & Imoveis ("IMO_COD"), 4) & "

") Response.Write ("
") Response.Write ("


") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") Response.Write ("Código: " & Right ("0000" & Imoveis ("IMO_COD"), 4) & " - " & Imoveis ("IMO_SIT") & " - " & Imoveis ("IMO_SUC") & "

") Response.Write ("") Response.Write ("") Response.Write ("") Else Response.Write ("") End If Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") Response.Write ("") If Imoveis ("IMO_IM1") = "" Or IsNull (Imoveis ("IMO_IM1")) Then Response.Write ("

") Response.Write ("

") Response.Write ("" & Imoveis ("IMO_DES") & "

") Response.Write ("
") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") Response.Write ("" & Imoveis ("IMO_SIT") & ": " & sValorImovel & "

") Response.Write ("

") Response.Write ("Cidade: " & Imoveis ("IMO_CID") & "

") Response.Write ("

") Response.Write ("Bairro: " & Imoveis ("IMO_BAI") & "

") Response.Write ("

") Response.Write ("UF: " & Imoveis ("IMO_EST") & "

") Response.Write ("

") Response.Write ("Cidade: " & Imoveis ("IMO_CID") & "

") Response.Write ("
") Response.Write ("

") Response.Write ("Banheiro(s): " & Imoveis ("IMO_BAN") & "

") Response.Write ("

") Response.Write ("Dormitório(s): " & Imoveis ("IMO_DOR") & "

") Response.Write ("

") Response.Write ("Suíte(s): " & Imoveis ("IMO_SUI") & "

") Response.Write ("

") Response.Write ("Garagem(ns): " & Imoveis ("IMO_GAR") & " Carro(s)

") Response.Write ("
") Response.Write ("
") Response.Write ("

") Response.Write ("

") Response.Write ("
") Response.Write ("
") Response.Write ("

") Response.Write ("Código: " & Right ("0000" & Imoveis ("IMO_COD"), 4) & "") Response.Write ("


") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
") Response.Write ("

") For iContImg = 1 to 4 If Imoveis ("IMO_IM" & iContImg) <> "" Then Response.Write ("") Response.Write (" ") End IF Next Response.Write ("

") Response.Write ("

") For iContImg = 5 to 8 If Imoveis ("IMO_IM" & iContImg) <> "" Then Response.Write ("") Response.Write (" ") End IF Next Response.Write ("

") Response.Write ("
") Response.Write ("
") Response.Write ("


  VERA

Gerente de Vendas:

   Vera Dezan

CRECI:

   33732

E-mail:

   vera@sulpraias.com.br

Celular:

   0-XX-51-9132-2250

 
  ROSA

Corretora de Imóveis:

   Rosa

CRECI:

   34024

E-mail:

   rosa@sulpraias.com.br

Celular:

   0-XX-51-8193-6793

 
  VENDAS

Corretora de Imóveis:

   Corretor Legal

CRECI:

   22747

E-mail: sulpraias@sulpraias.com.br

Celular:

   0-XX-51-9190-0759

 

 

 

 

 

 

 

 

Página Inicial  |  Imóveis para Locação  |  Imóveis para Venda  |  Cadastre seu Imóvel  |  Fale Conosco

© 2006, Todos os Direitos Reservados - Imobiliária Sul Praias.