PEQUEÑO EJEMPLO DE ASPEMAIL
--------------------------------------------
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="Comentario desde la pagina"
sCuerpo = "<HTML><BODY>CUERPO DEL MAIL</BODY></HTML>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "
mail.servidor.com"
Mail.Username= "
[email protected]"
Mail.Password="
clave"
Mail.From = email 'Mail que manda
Mail.FromName = nombre ' Nombre de quien manda
Mail.AddAddress "
[email protected]" 'mail a mandar
Mail.AddReplyTo email ' mail de respuesta
Mail.isHTML=True 'si quieres que sea con HTML
Mail.Subject = sAsunto 'Asunto del mail
Mail.Body = sCuerpo ' Cuerpo del mail
'On Error Resume Next
Mail.Send
set Mail = nothing
'If Err <> 0 Then 'En caso de error muestra el mensaje
' Response.Write "<p>Se encontro un error: " & Err.Description
End If