<%
xAcao = Request("submit")
Response.Expires = 0
Dim nome , email , telefone , dia , mes , ano
nome = Request.Form("nome")
email = Request.Form("email")
telefone = Request.Form("telefone")
dia = Request.Form("dia")
mes = Request.Form("mes")
ano = Request.Form("ano")
If trim(xAcao) = "Enviar" Then
xMensagem = "Nome: " & nome & chr(10)
xMensagem = xMensagem & "Email: " & email & chr(10)
xMensagem = xMensagem & "Telefone: " & telefone & chr(10)
xMensagem = xMensagem & "Data de nascimento:" & dia & "/" & mes & "/" & ano & chr(10)
wkok = 0
On error Resume Next
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Sagradobar"
Mailer.FromAddress = "sagradobar@sagradobar.com.br"
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "Cadastro", "consagrado@consagrado.com.br"
Mailer.Subject = "Cadastro"
Mailer.BodyText = xMensagem
If Mailer.SendMail Then
wkok = 1
End If
Set Mailer = Nothing
if wkok = 1 then
Response.redirect ("cadastro_ok.htm")
else
Response.redirect ("cadastro_erro.htm")
end if
End If
%>
