[Recomendar a un amigo] no funciona en un solo archivo

cookie · #1 (**permalink**) 14/05/2005, 22:09

TEngo un codigo (que funciona a la perfeccion) para recomendar pagina a un amigo (que originalmente funciona con 2 archivos) que son los siguientes

form.asp

Cita:

<FORM METHOD="POST" ACTION="recomendar.asp">
<span class="style1">Email de un amigo:</span>
<INPUT NAME="emaildestino" TYPE="text" class="style1" SIZE="30" MAXLENGTH="50"><BR>
<span class="style1">Mensaje adjunto con el mail:</span><BR> <TEXTAREA NAME="el_mensaje" COLS="55" ROWS="3" class="style1"></TEXTAREA><BR>
<INPUT TYPE="Submit" class="style1" VALUE="Enviar recomendacion">
</FORM>

y recomendar.asp

Cita:

<%
emaildestino = Trim(Request.Form("emaildestino"))
el_mensaje = "Un amigo conocio este sitio, 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.Body = el_mensaje
Mail.Send
Set Mail = Nothing
%>

EL PROBLEMA ....

por un requerimiento muy particular necesito que este script funcione en un solo archivo (es decir que se cuando se envie con POST se mande llamar a si mismo).. intente el siguiente codigo, pero no funciona, no aparecen errores, pero lo he probado y no envia los correos.

Archivo llamado form.asp

Cita:

<body>
<%
emaildestino = Trim(Request.Form("emaildestino"))
el_mensaje = "Un amigo conocio este sitio, 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.Body = el_mensaje
Mail.Send
Set Mail = Nothing
%>
<FORM METHOD="POST" ACTION="form.asp">
<span class="style1">Email de un amigo:</span>
<INPUT NAME="emaildestino" TYPE="text" class="style1" SIZE="30" MAXLENGTH="50"><BR>
<span class="style1">Mensaje adjunto con el mail:</span><BR> <TEXTAREA NAME="el_mensaje" COLS="55" ROWS="3" class="style1"></TEXTAREA><BR>
<INPUT TYPE="Submit" class="style1" VALUE="Enviar recomendacion">
</FORM>

<p class="style1"> </p>
</body>

Me podrian ayudar a que funcione el script ??

Gracias

NOTA: Para que mostrar el codigo mas limpio omiti algunas etiquetas HTML

trasgukabi · #2 (**permalink**) 15/05/2005, 04:30

Código:

 <body>
<%
if request.form("emaildestino")<>"" then
 .......envío de mail
else%>
........formulario (con el ACTION apuntando al mismo fichero, como lo tienes)
<%end if%>
</body>

así se supone que tiene que funcionar.
Suerte!!

cookie · #3 (**permalink**) 15/05/2005, 16:36

Hola

Gracias por responder

probe lo que me recomiendas pero no me funcionó :(