<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConStrP Function Resumindo(txt,vCrt) vX = Mid(txt, 1, vCrt) If Not Len(txt) <= vCrt Then Resumindo = vX &"..." Else Resumindo = vX End If End Function Set oferta = Server.CreateObject("ADODB.Recordset") oferta.Open "SELECT TOP 3 * FROM imoveis WHERE oferta = 1 AND oferta = 1 AND oferta = 1 ORDER BY codigo_imovel desc", Conexao Set ofertadestaque = Server.CreateObject("ADODB.Recordset") ofertadestaque.Open "SELECT TOP 6 * FROM imoveis WHERE oferta = 1 AND categoria = 'Apartamento' OR oferta = 1 AND categoria = 'Cobertura' OR oferta = 1 AND categoria = 'Kitnet' ORDER BY codigo_imovel desc", Conexao Set condominiodestaque = Server.CreateObject("ADODB.Recordset") condominiodestaque.Open "SELECT TOP 6 * FROM imoveis WHERE oferta = 1 AND categoria = 'Casas em Condominio' ORDER BY codigo_imovel desc", Conexao Set casasdestaque = Server.CreateObject("ADODB.Recordset") casasdestaque.Open "SELECT TOP 6 * FROM imoveis WHERE oferta = 1 AND categoria = 'Casa' ORDER BY codigo_imovel desc", Conexao Set oferta2 = Server.CreateObject("ADODB.Recordset") oferta2.Open "SELECT TOP 6 * FROM imoveis WHERE oferta = 1 AND categoria = 'Casas em Condominio' ORDER BY codigo_imovel desc", Conexao Set oferta3 = Server.CreateObject("ADODB.Recordset") oferta3.Open "SELECT TOP 6 * FROM imoveis WHERE oferta = 1 AND categoria = 'Casa' ORDER BY codigo_imovel desc", Conexao If Request.QueryString("forma") = "financiados" Then Set Categorias = Server.CreateObject("ADODB.Recordset") Categorias.Open "SELECT DISTINCT categoria FROM imoveis WHERE financiado = True ORDER BY categoria", Conexao Set Operacao = Server.CreateObject("ADODB.Recordset") Operacao.Open "SELECT DISTINCT operacao FROM imoveis WHERE financiado = True ORDER BY operacao", Conexao Set Cidades = Server.CreateObject("ADODB.Recordset") Cidades.Open "SELECT DISTINCT cidade FROM imoveis WHERE financiado = True ORDER BY cidade", Conexao Set Bairros = Server.CreateObject("ADODB.Recordset") Bairros.Open "SELECT DISTINCT bairro FROM imoveis WHERE financiado = True ORDER BY bairro", Conexao Set Quartos = Server.CreateObject("ADODB.Recordset") Quartos.Open "SELECT DISTINCT quartos FROM imoveis WHERE financiado = True ORDER BY quartos", Conexao Set Teste = Server.CreateObject("ADODB.Recordset") Teste.Open "SELECT * FROM imoveis WHERE financiado = True", Conexao Else Set Categorias = Server.CreateObject("ADODB.Recordset") Categorias.Open "SELECT DISTINCT categoria FROM imoveis ORDER BY categoria", Conexao Set Operacao = Server.CreateObject("ADODB.Recordset") Operacao.Open "SELECT DISTINCT operacao FROM imoveis ORDER BY operacao", Conexao Set Cidades = Server.CreateObject("ADODB.Recordset") Cidades.Open "SELECT DISTINCT cidade FROM imoveis ORDER BY cidade", Conexao Set Bairros = Server.CreateObject("ADODB.Recordset") Bairros.Open "SELECT DISTINCT bairro FROM imoveis ORDER BY bairro", Conexao Set Quartos = Server.CreateObject("ADODB.Recordset") Quartos.Open "SELECT DISTINCT quartos FROM imoveis ORDER BY quartos", Conexao End If DATA = FormatDateTime(date, 2) ANO = year(DATA) MES = month(DATA) DIA = day(DATA) DS = weekday(date) select case MES case 1 MES = "janeiro" case 2 MES = "fevereiro" case 3 MES = "março" case 4 MES = "abril" case 5 MES = "maio" case 6 MES = "junho" case 7 MES = "julho" case 8 MES = "agosto" case 9 MES = "setembro" case 10 MES = "outubro" case 11 MES = "novembro" case 12 MES = "dezembro" end select select case DS case 1 DS1 = "Domingo" case 2 DS1 = "Segunda-feira" case 3 DS1 = "Terça-feira" case 4 DS1 = "Quarta-feira" case 5 DS1 = "Quinta-feira" case 6 DS1 = "Sexta-feira" case 7 DS1 = "Sábado" end select Data = DS1 & ", " & DIA & " de " & MES & " de " & ANO %> .: EMPRESA - Confirma Imoveis Garantia de bons negócios :.

Empresa

Image

Empresa

Com sede própria no bairro do Alto, a CONFIRMA IMÓVEIS é formada por uma equipe de profissionais qualificados, atuando no mercado imobiliário da cidade de Teresópolis há mais de 30 anos. Temos uma grande carteira imobiliária, composta por diversos imóveis residenciais, comerciais e rurais. O nosso objetivo é orientar os clientes de forma a concluir um bom investimento. Estamos a disposição dos nossos clientes para prestar qualquer informação, sobre a documentação necessária para compra ou venda de imóveis, bem como a avaliação dos mesmos.

Nossos Corretores

Conheça nossos Corretores - Esteja a vontade em contar conosco para a venda de seu imóvel, e para a compra de seu imóvel novo. Estamos a disposição.

Image

João Carvalho

CRECI 30.868   21 98902.4885   info@confirmaimoveis.com.br
Image

Sidônio M. Carvalho

CRECI 8688   21 98902.4885   info@confirmaimoveis.com.br