ayuda con este codigo, por favor

[aspasites]

Hola tengo un codigo para hacer la aplicación: remienda esta pagina a un amigo. Pero no me funciona, podeis revisar el codigo?
Aqui va:
<%
' Estas son las variables
emaildestino = Trim(Request.Form("emaildes"))
comentarios = Trim(Request.Form("mensaje"))
suemail = Trim(Request.Form("tuemail"))

' Comprobamos si escribieron un mensaje y lo definimos
If Not comentarios = "" then
mensaje = "<p><font face=""Ms Sans Serif"" size=""2"" color=""blue""><p>&lt ;b><u>Mensaje:</u></b></font> <font color=""black"">" & comentarios & "</font>"
Else
mensaje = "<p>"
End If

' Este es el mensaje del e-mail - debes cambiarlo por el que tu quieras
el_mensaje = "<b>Un amigo tuyo conoció el sitio <a href=""http://www.webraqm.cjb.net"">www.webraqm.cjb .net</a>, le parecio interesante y quiere que lo conoscas.</b>"
el_mensaje = el_mensaje & mensaje
el_mensaje = el_mensaje & "<p><center><font face=""Verdana"" size=""2""><hr width=""80%"" noshade color=""#003333""><u> Registrate y participa en los Foros de Raqm</u><br><a href=""http://www.efrance.fr/raqm/foros"">http://www.efrance.fr/raqm/foros</a>"

' Función para enviar el e-mail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "tuemail"
MyCDONTSMail.To= "emaildes"
MyCDONTSMail.Subject="Un amigo te recomendó este Sitio"
MyBody = "Test" & vbCrLf
MyCDONTSMail.Body= mensaje
MyCDONTSMail.Send
set MyCDONTSMail=nothing

%>

[dimoito]

No pones el error, pero deduzco que no te envia el email.

No pones ni el email destino ni origen, simplemente pones dos cadenas que no son ninguna dirección

Donde pones:
MyCDONTSMail.From= "tuemail"
MyCDONTSMail.To= "emaildes"

prueba a poner
MyCDONTSMail.From= suemail
MyCDONTSMail.To= emaildestino

Suerte !!