Página Inicial

PERSIANAS E CORTINAS | PISOS | DIVISÓRIAS / DRYWALL | FORROS | TOLDOS |CONSERTO | CONTATO

<% if request.form="" then 'nao recebo formulario, entao o mostro %>

Entre em contato conosco!!

 



 
Localização 
Endereço Rua Uruguaiana, 746, Campinas - SP  
Exibir mapa ampliado
Telefone  (19) 3231-2002
WhatsApp (19) 9 9193-1002
Facebook








facebook.com/acaedecor

* Campos obrigatórios     

<% else 'recebo um formulario, entao o trato 'recolho os dados titulo = "Fale Conosco" email = Request.form("email") nome = Request.form("nome") telefone = Request.form("telefone") 'cidade = Request.form("cidade") 'estado = Request.form("estado") Departamento = Request.form("departamento") mensagem = Request.form("mensagem") corpo = "" corpo = corpo+ "" corpo = corpo+ "" corpo = corpo+ "Nome : " corpo = corpo+ "" & nome & "
" corpo = corpo+ "E-mail: " corpo = corpo+ "" & email & "
" 'corpo = corpo+ "Cidade : " 'corpo = corpo+ "" & cidade & " - " & estado & "
" corpo = corpo+ "Departamento : " corpo = corpo+ "" & departamento & "

" corpo = corpo+ "Mensagem:
" corpo = corpo+ mensagem '& chr(10) corpo = corpo+ "


" corpo = corpo+ "" Set objmail = Server.CreateObject("Persits.MailSender") objmail.Host = "mail.lexxa.com.br" objmail.From = email objmail.FromName = nome 'objmail.AddAddress "cecilio@liceu.com.br" , "Cesar Cecilio" objmail.AddAddress "contato@acaedecor.com.br" , "Fale Conosco - Acaé Decor" objmail.Subject = "Fale Conosco - " & departamento objmail.IsHTML = True objmail.Body = corpo objmail.Send Response.Write "


" Response.Write "Mensagem enviada com sucesso

" Response.Write "Em breve entraremos em contato" Response.Write "



" Response.Write "Acaé Decorações" Set objmail = nothing %> <% 'Set Conn= Server.CreateObject("ADODB.Connection") 'Set RS = Server.CreateObject("ADODB.Recordset") ' 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\Inetpub\wwwroot\faleconosco\banco\banco_faleconosco.mdb" 'RS.open "SELECT * FROM contatos", Conn, 1, 3 ' 'RS.AddNew 'RS("NOME")=Request.form("nome") 'RS("EMAIL")=Request.form("email") 'RS("CIDADE")=Request.form("cidade") 'RS("ESTADO")=Request.form("estado") 'RS("ASSUNTO")=Request.form("assunto") 'RS("MENSAGEM")=Request.form("mensagem") 'RS("DATA")= date() 'RS.Update 'RS.Close 'Set RS = nothing end if %>

 

Av. José de Souza Campos (Norte Sul), 271 | Cambuí | Campinas/SP
Rua Uruguaiana, 746 | Bosque | Campinas/SP

Fone/Fax: (19) 3231-2002 - contato@acaedecor.com.br

 


ACAÉ DECORAÇÕES: Fone/Fax: (19) 3231-2002
Av. José de Souza Campos (Norte Sul), 271 | Cambuí | Campinas/SP
Rua Uruguaiana, 746 | Bosque | Campinas/SP