
16/01/2002, 20:55
|
 | | | Fecha de Ingreso: mayo-2001 Ubicación: Madrid
Mensajes: 933
Antigüedad: 24 años Puntos: 0 | |
Re: Se puede hacer esto verdad? <pre>
Set oCDO = Server.CreateObject("CDONTS.NewMail")
'oCDO.MailFormat = 0
'oCDO.BodyFormat = 0
oCDO.From = Request.Form("Email")
oCDO.To = Request.Form("suEmail")
oCDO.Subject = Request.Form("Para")
oCDO.Body ="Estimado/a " & Request.Form("Para") & ":" & vbCRLF + vbCRLF & "Su amigo/a " & Request.Form("de") & " le recomienda visitar nuestra página, su mensaje ha sido:" & vbCRLF + vbCRLF & Request.Form("mensaje") & vbCRLF + vbCRLF & Request.Form("de") & " le recomienda visitar : " & vbCRLF + vbCRLF & (Request.Form("url"))
oCDO.Send
Set oCDO = Nothing 'Liberar...
Response.Write (Request.Form("de") & ", tu amigo/a " & Request.Form("Para") & " recibirá en su email " & Request.Form("suemail") & " tu recomendación.")%><p>
<a href="javascript:window.close();">Vol ver</a>
<%Else%>
<form method="POST" action="Enviar.asp" >
<input type="hidden" name="url" value="<%=Request.QueryString("url&qu ot;)%>"><br>
Tu nombre:<br>
<input type="text" name="de" size="20" maxlength"25"><br>
Tu Email:<br>
<input type="text" name="email" size="20" maxlength"30"><br>
Nombre de tu amigo:<br>
<input type="text" name="Para" size="20" maxlength"30"><br>
Email de tu amigo:<br>
<input type="text" name="Suemail" size="20"><br>
Escribe aquí tu mensaje:<br>
<textarea cols="20" rows="5" name="mensaje"></textarea><br>
<input type="submit" value="Envíar" >
</form><%
End If %>
</pre>
Espero te sirva, un saludo, amigo. ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a> |