<%@language = "VBscript"%>
<%
'-------------------------------------------------
' NOME CAPTURADO NO FORMULARIO
nomede = Request.Form("nome")
telefone = Request.Form("tel")
data = Request.Form("data")
' EMAIL CAPTURADO NO FORMULARIO E QUE RECEBERA A MENSAGEM
emailpara = "promocao@guiamaresias.com"
'-------------------------------------------------
' MODIFIQUE ESTAS LINHAS CONFORME SUA NECESSIDADE
'-------------------------------------------------
' EMAIL QUE VAI ENVIAR A MENSAGEM
emailde = "promocao@guiamaresias.com"
' EMAIL DE RESPOSTA, IGUAL O QUE ENVIA
emailresp = "promocao@guiamaresias.com"
' ASSUNTO
assunto = "Cadastro Promoção"
' O CORPO DA MESAGEM :
corpo = "Cadastro Promoção Brig_Jungle" & chr(13) & chr(10) & "Dados recebidos:" & chr(13) & chr(10) & "----------------------------------------------" & chr(13) & chr(10) & " Data: " & Request.Form("data") & chr(13) & chr(10) & " Nome: " & Request.Form("nome") & chr(13) & chr(10) & " E-mail : " & Request.Form("email") & chr(13) & chr(10) & " Telefone : " & Request.Form("tel") & chr(13) & chr(10) & "----------------------------------------------" & chr(13) & chr(10)
' O ENDEREÇO QUE IRA APOS ENVIAR A MESAGEM
' EXEMPLO redireciona para a pagina desejada = "http://www.DOMINIO.com.br"
' SE DEIXAR SEM NADA IRA PARA PÁGINA DE AGRADECIMENTO PADRÃO
redireciona = ""
'----------------------------------------------------------
' NÃO MEXA NESTAS LINHAS POIS SÃO ELAS QUE ENVIAM O E-MAIL
'----------------------------------------------------------
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.guiamaresias.com"
Mail.FromName = nomede
Mail.From = emailde
Mail.AddAddress emailpara
Mail.AddReplyTo emailresp
Mail.Subject = assunto
Mail.Body = corpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
' MOSTRA SE OCORREU ALGUM ERRO
Response.Write "Erro ocorrido: " & Err.Description
End If
Set Mail =Nothing
' TOMA DECISÃO SE REDIRECIONA OU MOSTRA MENSAGEM PADRÃO
If Len(redireciona) > 0 Then
' REDIRECIONA POIS INFORMOU O ENDEREÇO
Response.redirect(redireciona)
Response.End
Else
' MENSAGEM PADRÃO POIS redireciona = ""
'-------------------------------------------------
' MODIFIQUE ESTAS LINHAS CONFORME SUA NECESSIDADE
'-------------------------------------------------
%>
.: | Guia Maresias | :.
Promoção
DADOS
ENVIADOS COM SUCESSO !!!
Obrigado por participar de nossa promoção.
Aguarde que em breve você saberá
se você foi o ganhador da promoção.
Boa Sorte!
