Amigo te doy este codigo comparalo:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Username = "[email protected]"
Mail.Password = "xxxxxxx"
Mail.Host = "mail.llanerisimo.com"
Mail.port = "25"
Mail.From = request.form("Correo")
Mail.FromName = request.form("Nombre")
Mail.AddAddress "[email protected]"
' Mail.AddReplyTo "[email protected]"
Mail.Subject = "Comentarios xxxxxxx.com"
Mail.Body = bod
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encontrado: " & Err.Description
End If