<% if Request("enviar") = "sim" then mailto = "jmiyasava@piedadeacep.com.br" mailtoName = "Contato Site" Dim strBody strBody = "Corpo" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Dados Pessoais" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Nome: " & Request.Form("Nome") & Chr(13) & Chr(10) strBody = strBody & "Email: " & Request.Form("Email") & Chr(13) & Chr(10) strBody = strBody & "Mensagem: " & Request.Form("Descricao") & Chr(13) & Chr(10) & Chr(13) & Chr(10) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "webmail.piedadeacep.com.br" Mail.From = Request.Form("Email") Mail.FromName = Request.Form("Nome") Mail.AddAddress mailto, mailtoName Mail.Subject = "Contato Site" Mail.Body = strBody On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "

Não foi possível enviar a informação. Por favor tente mais tarde.

" else Response.Write "

Obrigado pelo seu interesse, retornaremos o mais breve possível

" End If else%>
CONTATO
Nome:
Email:
Assunto:
 
 
Rodovia SP 250, km 101, trecho de Piedade/Pilar do Sul. Tel: (15) 3244-1664 / (15) 3244-1686.
<%end if%>