Antes de nada agradecer el interés mostrado por ayudarme.
He hecho exactamente lo que me has dicho, y no me funciona, me sigue enviando la página recomendar.asp supongo que hay alguna cosa que hago mal.
En
http://www.montybikes.com/bikes/send.asp está una página de ejemplo desde donde presionaría el link que me mandaria a recomedar.asp y a continuación os pongo el código de recomendar.asp que a parte se encuentra en: En
http://www.montybikes.com/bikes/recomendar.asp
------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Recomendar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="/css.css" rel="stylesheet" type="text/css">
</head>
<body bottommargin="0" leftmargin="0" marginheight="0" marginwidth="0" rightmargin="0" topmargin="0">
<table border="0" cellpadding="20" cellspacing="0" width="100%" height="100%" bgcolor="#FFFFFF">
<tr>
<td valign="top" class="maintext">
<img src="images/m.gif" width="65" height="35" border="0">
<!-- formulario de recomendación -->
<% if request.querystring("accion") = "" then
%>
<form method="post" action="recomendar.asp?accion=enviar" name="recomienda">
<input type="hidden" name="paginaArecomendar" value="<% = Request.ServerVariables("HTTP_REFERER") %>">
<table cellpadding="5" cellspacing="0" border="0">
<tr>
<td class="maintext" align="right">Tu Nombre:</td>
<td class="maintext"><input type="text" name="n_remitente" size="10" class="maintext"></td>
</tr>
<tr>
<td class="maintext" align="right">Tu E-mail:</td>
<td class="maintext"><input type="text" name="e_remitente" size="20" class="maintext"></td>
</tr>
<tr>
<td class="maintext" align="right">Nombre de tu amigo:</td>
<td class="maintext"><input type="text" name="n_destinatario" size="10" class="maintext"></td>
</tr>
<tr>
<td class="maintext" align="right">E-mail de tu amigo:</td>
<td class="maintext"><input type="text" name="e_destinatario" size="20" class="maintext"></td>
</tr>
<tr>
<td class="maintext" colspan="2"><input type="submit" value="Recomendar" class="maintext"></td>
</tr>
</table>
</form>
<!-- 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
n_destinatario = request.form("n_destinatario")
e_destinatario = request.form("e_destinatario")
n_remitente = request.form("n_remitente")
e_remitente = request.form("e_remitente")
' si los campos no están vacíos
if n_destinatario <> "" and e_destinatario <> "" and n_remitente <> "" and e_remitente <> "" then
' indica la url de tu sitio
dim url
url = Request.ServerVariables("HTTP_REFERER")
' indica la segunda url de tu sitio
url2 = "http://www.monty.es"
' indica el nombre de tu sitio
nombre_del_sitio = "Bicicletas Monty"
' indica la imagen
imagen = "http://www.monty.es/bikes/images/m.gif"
' indica el asunto del mensaje
asunto = n_remitente & " te recomienda esta Bicicleta Monty"
' redacta el mensaje
mensaje = "<html><body bottommargin='0' leftmargin='0' marginheight='0' marginwidth='0' rightmargin='0' topmargin='0'><link href='http://www.monty.es/css.css' rel='stylesheet' type='text/css'>"
mensaje = mensaje & " <table border='0' cellpadding='20' cellspacing='0' width='100%' height='100%' bgcolor='#FFFFFF'><tr><td valign='top' class='maintext'>"
mensaje = mensaje & " <img src='" & imagen & "' width='65' height='35' border='0'></div><br><br>"
mensaje = mensaje & "Hola " & n_destinatario & ":<br>"
mensaje = mensaje & n_remitente & " te recomienda una Bicicleta Monty, puedes verla en <a href='" & url & "' class='normallink'>" & url & "</a><br><br>"
mensaje = mensaje & " Puedes encontrar muchas más bicicletas en la página de <b> <a href='" & url2 & "' class='normallink'>" & nombre_del_sitio & "</a></b>.<br><br>Saludos!"
mensaje = mensaje & "</td></tr></table>"
mensaje = mensaje & "</body></html>"
' 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 "<br><br><div align='center'><b>El mensaje ha sido enviado</b>.<br>Gracias por recomendarnos!"
' si existen campos vacíos, envía un mensaje de error
else
response.write "Por favor, es necesario que completes todos los campos.<br>"
response.write "<a href='recomendar.asp'>Pincha aquí</a> para corregir los campos."
end if
end if
%>
</td></tr>
</table>
</body>
</html>
------------------------------------------------
Seguramente esto se deba a algun error que cometo con mi patente torpeza...
Pero veis alguna cosa anormal?
Muchisimas gracias de nuevo!
DaNi