%
if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.nomer.com.br"
Mailer.FromName = request.form("nome")
Mailer.FromAddress = request.form("emailde")
Mailer.AddRecipient "E-mail", "bianca@mundotexto.com"
Mailer.Subject = request.form("assunto")
Mailer.BodyText = "********** E-mail gerado pelo Site - www.mundotexto.com **********
"
Mailer.BodyText = "Empresa: " & request.form("empresa") & "
"
Mailer.BodyText = "Telefone: " & request.form("telefone") & "
"
Mailer.BodyText = "Qtde de Palavras: " & request.form("palavras") & "
"
Mailer.BodyText = "Prazo de entrega: " & request.form("prazo") & "
"
Mailer.BodyText = "Serviço: " & request.form("servico") & "
"
Mailer.Bodytext = "Idioma de partida: " & request.form("idioma1") & "
"
Mailer.Bodytext = "Idioma de chegada: " & request.form("idioma2") & "
"
Mailer.BodyText = "Corpo:
" & request.form("mensagem") & "
"
Mailer.ContentType = "text/html"
if Not Mailer.SendMail then
Response.redirect "http://www.mundotexto.com/pt/erro.html"
else
Response.redirect "http://www.mundotexto.com/pt/obrigado.html"
end if
response.end
Set Mail = nothing
end if
%>
|
||||||||||||