<%
'Recogemos los datos del formulario
de = Request.Form("de")
para = Request.Form("para")
mensaje = Request.Form("mensaje")
asunto = Request.Form("asunto")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.inessman.com"
Mail.From = de
Mail.AddAddress para
Mail.Subject = asunto
'El mensaje en formato html
Mail.IsHTML = True
Mail.Body = "De: "&de&"
Mensaje: "&mensaje&"
Enviado el "& Now() &""
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error: " &Err.Description
End If
%>