Ver Mensaje Individual
  #6 (permalink)  
Antiguo 16/01/2002, 20:55
Avatar de Aston
Aston
 
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(&quot;CDONTS.NewMail&quot;)

'oCDO.MailFormat = 0
'oCDO.BodyFormat = 0
oCDO.From = Request.Form(&quot;Email&quot;)
oCDO.To = Request.Form(&quot;suEmail&quot;)
oCDO.Subject = Request.Form(&quot;Para&quot;)
oCDO.Body =&quot;Estimado/a &quot; &amp; Request.Form(&quot;Para&quot;) &amp; &quot;:&quot; &amp; vbCRLF + vbCRLF &amp; &quot;Su amigo/a &quot; &amp; Request.Form(&quot;de&quot;) &amp; &quot; le recomienda visitar nuestra página, su mensaje ha sido:&quot; &amp; vbCRLF + vbCRLF &amp; Request.Form(&quot;mensaje&quot;) &amp; vbCRLF + vbCRLF &amp; Request.Form(&quot;de&quot;) &amp; &quot; le recomienda visitar : &quot; &amp; vbCRLF + vbCRLF &amp; (Request.Form(&quot;url&quot;))
oCDO.Send

Set oCDO = Nothing 'Liberar...

Response.Write (Request.Form(&quot;de&quot;) &amp; &quot;, tu amigo/a &quot; &amp; Request.Form(&quot;Para&quot;) &amp; &quot; recibirá en su email &quot; &amp; Request.Form(&quot;suemail&quot;) &amp; &quot; tu recomendación.&quot;)%&gt;&lt;p&gt;
&lt;a href=&quot;javascript:window.close();&quot;&gt;Vol ver&lt;/a&gt;

&lt;%Else%&gt;
&lt;form method=&quot;POST&quot; action=&quot;Enviar.asp&quot; &gt;
&lt;input type=&quot;hidden&quot; name=&quot;url&quot; value=&quot;&lt;%=Request.QueryString(&quot;url&qu ot;)%&gt;&quot;&gt;&lt;br&gt;
Tu nombre:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;de&quot; size=&quot;20&quot; maxlength&quot;25&quot;&gt;&lt;br&gt;
Tu Email:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;email&quot; size=&quot;20&quot; maxlength&quot;30&quot;&gt;&lt;br&gt;
Nombre de tu amigo:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;Para&quot; size=&quot;20&quot; maxlength&quot;30&quot;&gt;&lt;br&gt;
Email de tu amigo:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;Suemail&quot; size=&quot;20&quot;&gt;&lt;br&gt;
Escribe aquí tu mensaje:&lt;br&gt;
&lt;textarea cols=&quot;20&quot; rows=&quot;5&quot; name=&quot;mensaje&quot;&gt;&lt;/textarea&gt;&lt;br&gt;
&lt;input type=&quot;submit&quot; value=&quot;Envíar&quot; &gt;
&lt;/form&gt;&lt;%
End If %&gt;
</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>