Imobiliária Sul Praias - Capão da Canoa

<% 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 ("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 ("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 ("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 ("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 ("