Funciona perfecto!
<%
strHost = "mail.tusitio.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress "
[email protected]","Hola master"
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>"
Mail.Body = Mail.Body & "De: "& Mail.FromName &"<br>"
Mail.Body = Mail.Body & "Titulo: "& Mail.Subject &"<br><br>"
Mail.Body = Mail.Body & "Mensaje: "& Request("Body")&"<br></p><br>"
Mail.Body = Mail.Body & "Enviado el "& Now() &"</font>"
Mail.Body = Mail.Body & "</BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>