<% Response.Expires = 60 Response.Expiresabsolute = Now() - 4 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" if (Request.Form("nome")<>"" and Request.Form("email")<>"") then assunto = "Contato Site Esquilinho jardim escola infantil " mensagem = "" mensagem = mensagem & "Nome:" & Request.Form("nome")& vbCrLf mensagem = mensagem & "E-mail: " & Request.Form("email") & vbCrLf mensagem = mensagem & "Telefone: " & Request.Form("telefone") & vbCrLf mensagem = mensagem & "Cidade: " & Request.Form("cidade") & vbCrLf mensagem = mensagem & "Estado: " & Request.Form("uf") & vbCrLf mensagem = mensagem & "Comentarios: " & Request.Form("comentario") & vbCrLf set mail = server.CreateObject("CDONTS.NewMail") mail.from = Request.Form("nome") & " <" & Request.Form("email") & ">" mail.to = "EMAIL" mail.Subject = assunto mail.Body = "------------------------------" & vbCrLf & assunto & vbCrLf & "------------------------------" & vbCrLf & vbCrLf & mensagem mail.send set mail = nothing envio = "enviado" envio = "enviado" 'Option Explicit end if %> Harmonie

Mais informações:

Triedro Engenharia e Construções
Rua Manoel da Nóbrega, 2016 - Jd. Paulista - São Paulo/SP
Telefone: (11) 3887-3655
contato@triedro.com.br