Código:
emaildestino = Trim(Request.Form("emaildestino"))
el_mensaje = "Un amigo conocio el sitio de mascotas, le parecio interesante y quiere que lo conozcas."
el_mensaje = el_mensaje & "<BR><BR>Tambien te dejó el siguiente mensaje:<BR>" & Trim(Request.Form("el_mensaje"))
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.From = "[email protected]"
Mail.To = emaildestino
Mail.Subject = "Recomendacion"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = el_mensaje
Mail.Importance = 2
Mail.Send
Set Mail = Nothing
proba con este codigo, le agregue tres lineas, las que estan en rojo, las dos primeras te sirven para soporte de html en tus mensajes asi que puedes agregar etiquetas html como <br> colores de letras, imagenes, etc.. y el otro como su nombre lo dice es la importancia del mensaje.. bueno espero te sirva.