 |
<% if
request.form="" then 'nao recebo formulario, entao o mostro %>
<% 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
|