Como hacer un Recomienda este sitio en asp

[lisseth]

salu2 a todos, he estado intentando hacer lo siguiente sin exito:

tengo una pagina hecha en dreamweaver puro html con css, la misma tiene una opcion de recomendar la pagina a un amigo ingresando un mail aqui esta el codigo html:

<div id="recomienda"><form name="frm_recomienda" method="post" action="recomendar.asp" target="_blank" id="frm_recomienda"><i>¡Recomienda este sitio!</i><span class="amigo">E-mail:</span><input name="email_destino" type="text" class="fdv_texto" />&nbsp;&nbsp;<input name="envia" type="image" src="imagenes/boton_siguiente.gif" alt="Enviar" value="enviar" /></form>

ahora yo no he programado en asp asi que no tengo idea que como hacer ese envio les pido ayuda para hacer el recomendar.asp, please.

Además de recomendar ese sitio que estoy haciendo tengo otra pagina sencilla hecha en dreamweaver que se la envia por correo y esa tambien tiene una opción pero en cambio es de reenviar esa sencilla pagina a un amigo pero le tiene que llegar obviamente la pagina al correo de la persona recomendada quisiera saber como hacer eso, please!

[Shiryu_Libra]

entonces utiliza algo similar en la pagina RECOMENDAR.ASP

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
v1=request.Form("para") <-- PARA QUIEN
v2=request.Form("nom_para") <-- NOMBRE PARA QUIEN SE LE ENVIA
v3=request.Form("de") <-- DE QUIEN
v4=request.Form("nom_de") <-- NOMBRE QUIEN ENVIA

Option Explicit 
Dim Mail
Set Mail=CreateObject("CDO.Message")
Mail.To = v1
Mail.From = v3
Mail.Subject = "Tu Amigo"&v4&", te recomienda esta pagina"
Mail.HTMLBody = "y en esta parte pones el enlace. http://www.tusitio.com.mx, solo borra las palabras que te estoy poniendo aki"
Mail.Send
if Err=0 then Response.Write "Enviado...."
Set Mail=Nothing
%> 
   

suerte

[lisseth]

gracias por contestar mi inquietud, disculpa la molestia pero no entiendo bien tu codigo:

v1=request.Form("para") <-- PARA QUIEN
v2=request.Form("nom_para") <-- NOMBRE PARA QUIEN SE LE ENVIA
v3=request.Form("de") <-- DE QUIEN
v4=request.Form("nom_de") <-- NOMBRE QUIEN ENVIA

como capturaria el mail que la persona que recomienda esta ingresando en el text de la pagina a recomendar?

espero no ser muy confusa...pero no logro entender como capturar ese correo.

[Shiryu_Libra]

supongamos que el codigo que te escribi, es de una pagina(RECOMENDAR:ASP), que su unica funcion seria mandar el MAIL, sale

de ahi, que...
tu crearias una pequeña pagina HTML o un DIV con el formulario que llenaria el usuario.. quedando de esta manera

Código PHP:

  <div>
<form method="post" action="recomendar.asp">
<table>
<tr>
    <td>Datos de tu amigo(a)</td>
    <td>Nombre:<input type="text" name="nom_para" value="" /></td>
    <td>Correo:<input type="text" name="para" value="" /></td>
</tr>
<tr>
    <td>Tus Datos</td>
    <td>Para:<input type="text" name="nom_de" value="" /></td>
    <td>Para:<input type="text" name="de" value="" /></td>
</tr>
</table>
</form>
</div> 
   

entonces cuando el usuario haya llenado todo el formulario, mandaria llamar la pagina que enviara el correo

cualquier duda, aki estamos

suerte

[lisseth]

hola nuevamente gracias por contestarme, tal como yo pensé si tengo todo bien pero me sigue saliendo un error mira:

Error Type:
CDO.Message.1 (0x8004020C)
At least one recipient is required, but none were found.
/francodevita/recomienda.asp, line 10


y aqui esta mi codigo html:

<form name="fdv_form" method="post" action="recomienda.asp" id="fdv_form"><i>¡Recomienda este sitio!</i><span class="amigo">E-mail:</span><input name="email_destino" type="text" class="fdv_texto" />&nbsp;&nbsp;<input name="enviar" type="image" src="imagenes/boton_siguiente.gif" alt="Enviar" value="enviar" /></form>

y aqui esta el asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Dim mail
Set mail = CreateObject("CDO.Message")
mail.To= Request.Form("email_destino")
mail.From= "[email protected]"
mail.Subject = "Un amigo te recomienda esta página."
mail.HTMLBody = "http://www.francodevitaenecuador.com"
mail.Send
if Err=0 then Response.Write "Enviando....."
set mail=nothing

response.Redirect("gracias/")

%>

porfis que puede ser?

[Shiryu_Libra]

al parecer no recibes los datos del formulario
mail.To= Request.Form("email_destino")

habria que investigar mas esa parte