<% if request("enviaMensagem")="S" then Set JMail = Server.CreateObject("Dundas.Mailer") ' Servidor SMTP - Obrigatorio ser este JMail.SMTPRelayServers.Add "smtp.task.com.br" JMail.SMTPRelayServers.Add "mail.task.com.br" 'Quem está enviando JMail.FromAddress = "jjr@webmz.com.br" JMail.Subject = "Contato - VipCom Minas" 'mensagem em html JMail.HTMLBody = "
Nome:
" & trim(replace(replace(request("nome"),"<","<"),">",">")) & "
" JMail.HTMLBody = JMail.HTMLBody & "
E-mail:
" & trim(replace(replace(request("email"),"<","<"),">",">")) & "
" JMail.HTMLBody = JMail.HTMLBody & "
Telefone:
" & trim(replace(replace(request("telefone"),"<","<"),">",">")) & "
" JMail.HTMLBody = JMail.HTMLBody & "
Mensagem:
" & replace(trim(replace(replace(request("mensagem"),"<","<"),">",">")),VbCrLf,"
") JMail.TOs.Add "jjr@webmz.com.br" JMail.SendMail set JMail = nothing %>
Mensagem enviada com sucesso!
Agradecemos pelo contato.
Responderemos em breve.
VIPCOM MINAS
<% else %>
450
<% end if %>