Hola, tengo este código para recomendar página, pero no me funciona, las recomendaciones no logran enviarse, alguien podría darle una miradita por favor? a ver si sabe cuál es el problema. Muchas gracias de antemano.
<!-- envío del formulario y acuse de envío o información de errores -->
<%
elseif request.querystring("accion") = "enviar" then
' recojo las variables que vienen desde el formulario
e_destinatario = request.form("email1")
n_remitente = request.form("nombre")
e_remitente = request.form("email")
comentarios = request.form("comentarios")
' indica la url de tu sitio
url = "http://www.fietasyeventos.com.pe"
' indica el nombre de tu sitio
nombre_del_sitio = "Fiestas y Eventos"
' indica el asunto del mensaje
asunto = n_remitente & " te recomienda que visites un sitio"
' redacta el mensaje
mensaje = "Hola " & e_destinatario & ":<br>"
mensaje = mensaje & n_remitente & " te recomienda que visites <b>" & nombre_del_sitio & "</b>. Un sitio donde encontrarás de todo para organizar cualquier tipo de reunión, fiesta, evento, ceremonia, etc.<br>"
mensaje = mensaje & "Puedes verlo en <a href='" & url & "'>" & url & "</a><br><br>Saludos!"
' comienza envío
Set envio = Server.CreateObject ("CDONTS.NewMail")
' indica que el e-mail es en formato HTML
envio.BodyFormat = 0
envio.MailFormat = 0
' envía el mensaje
envio.Send e_remitente, e_destinatario, asunto, mensaje
Set envio = Nothing
' Informa al usuario que se ha enviado el mensaje
response.write "<center><table border=0><tr><td height=15></td><tr><td><b><p align=center><font color=#FFD652 face=Verdana size=2>¡GRACIAS POR RECOMENDAR NUESTRO SITE!</font></p></b></td></tr><td><b><p align=center><font color=#FFFFFF face=Verdana size=1>El mensaje ha sido enviado satisfactoriamente a " & e_destinatario & ".<br><br>Puedes cerrar esta ventana.<br><br><br></font></p></b></td></tr><tr><td><p align=center><a href='#' onclick='window.close()'><img border=0 src='images/boton_cerrar.gif'></a></p></td></tr></table></center>"
end if
%>
