<%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "obrigado.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp end if '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "Formulário de Informações" vPara = "suporte@itaipavagold.com.br" vFrom = "suporte@itaipavagold.com.br" vCc = "" vAssunto = "Informações" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & string(60,"*") & vbcrlf EnviaEmail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "sharedrelay.dominal.com" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .CC = p_cc .From = p_from .Sender = p_from .Subject = p_subject .TextBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> Itaipava Gold - Principal

Os anúncios deste site ajudam trabalhadores carentes e idosos

Imobiliária Itaipava Ltda. – A 1ª Imobiliária de Itaipava / desde 1977.

Estrada União e Indústria, 11295 – CEP 25750-225.

Tels.: (24) 2222-4150 / 2222-1132 / 9819-4207 / 8818-4500

(ao lado do Posto Ipiranga)

 

            Temos em nosso cadastro imobiliário diversas propriedades comerciais, industriais e residenciais, dentro e fora de condomínio (chácaras, sítios, fazendas e terrenos), com certeza uma delas atenderá seu objetivo.   Veja a seguir algumas opções:

 

1º COBERTURA – Lagos de Itaipava, 3 quartos sendo uma suíte, 3 vagas de garagem, 160 m2 de área construída. Entrega este ano – dezembro / 2006. Aceita permuta de imóveis prontos ou em construção Zona Sul do Rio (dando ou recebendo volta).

 

2º APTO. – Granja Brasil, 3 quartos sendo uma suíte, 2 vagas. Entrega este ano – dezembro / 2006. Aceita permuta imóveis prontos ou em construção Zona Sul do Rio (dando ou recebendo volta).

 

3º COBERTURA DUPLEX – Lagos de Itaipava ao lado do Cartório – entrega 2007 (quitada). Valor R$ 240.000,00 (aceita imóvel como parte de pagamento).

 

4º ÁREA RESIDENCIAL COMERCIAL – Em frente ao Condomínio Granja Brasil com +/- 4.200 m2 com 37m de frente para União e Indústria, com +/- 1.000 m2 de área construída, própria para Empreendimento (Condomínio de apartamentos, colégio, igreja, etc.).   Valor: R$ 3.500.000,00 (aceita 70% em imóveis no Rio/Petrópolis/São Paulo).

 

5º USINA DE AÇÚCAR E ÁLCOOL – À venda no estado do Rio.  Preço e condições excepcionais.  Consulte-nos.

 

6º POUSADA – Em Itaipava. Beleza e localização indescritível, área construída +/- 3.000 m2. Salão para convenções, consultórios, restaurante, academia de ginástica, 2 piscinas sendo uma térmica, sala de musculação, 14 apartamentos, 7 chalés, 3 suítes, boutique, salão de jogos, campo de futebol, etc.  Valor e condições de pagamento excepcionais. Consultem-nos.

 

7º HOTEL – Em Porto Seguro-Bahia. Aconchegante hotel na melhor praia de Porto Seguro com 22 apartamentos com ar condicionado, TV a cores, frigobar, aquecimento central, etc.

Valor: R$ 1.400.000,00 (aceita até 40% em imóveis na Bahia / Rio de Janeiro).

 

8º POUSADA – Em Búzios. Localizada entre 3 praias (Geribá/Ferradura/Tartaruga), com documentação cristalina com RGI, aceita até R$ 150.000,00 em imóveis.  Valor R$ 500.000,00.

 

9º FAZENDAS / INDÚSTRIAS –

            a) COMPLEXO DE FAZENDINHAS – Totalizando 27 alqueires com Indústria e Torrefação de café com 3 marcas de café registradas e a venda no comércio (Expresso, Extra e Capuccino) com autorização para exportar.   Valor: R$ 2.500.000,00 (aceita 20% em imóveis);

            b) FAZENDA / INDÚSTRIA DE ÁGUA MINERAL – Com 110 alqueires de terras com 2 marcas de água mineral registradas e a venda no comércio.   Preço sob consulta aceita imóvel como parte de pagamento.