Foros del Web - Ver Mensaje Individual

MARKWEB · #3 (**permalink**) 31/08/2002, 01:38

Bueno te voy a dar dos ejemplos de recomendar

EN ASP CON CONPONENTE ASPMail DE LA CIA Persist:(para los otros componentes no tengo)

Código:

 &lt;html&gt;&lt;head&gt;&lt;title&gt;Recomendar pagina&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;center&gt;
&lt;% If Request.Form(&quot;adress&quot;)=&quot;&quot; Then %&gt;
&lt;form method=&quot;post&quot; action=&quot;recomendar.asp&quot;&gt;&lt;table&gt;&lt;tr&gt;&lt;td&gt;Recomendar a:&lt;/td&gt;
&lt;td&gt;&lt;input type=&quot;text&quot; size=&quot;24&quot; maxlength=&quot;70&quot; name=&quot;adress&quot;&gt;&lt;/td&gt;&lt;td&gt;
&lt;input type=&quot;submit&quot; value=&quot;Recomendar&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/form&gt;
&lt;% Else
Dim adress
adress=Request.Form(&quot;adress&quot;)

Set Mailer = Server.CreateObject(&quot;SMTPsvg.Mailer&quot;)
Mailer.FromName = &quot;Tuweb.com&quot;
Mailer.FromAddress= &quot;[email protected]&quot;
Mailer.RemoteHost = &quot;mail.servidor.com&quot;
Mailer.AddRecipient &quot; &quot;, adress
Mailer.Subject = &quot;Pagina recomendada&quot;
Mailer.BodyText = &quot;Un amigo te recomienda que visites esta pagina&quot; &amp; VbCrLf &amp; &quot;http://www.tuweb.com&quot;
if Mailer.SendMail then
Response.Write &quot;Correo enviado... -&gt;&quot;
else
Response.Write &quot;Error en el envio de correo. El error fue: &quot; &amp; Mailer.Response
end if
End If


%&gt;
&lt;/body&gt;&lt;/html&gt;

Y EN PHP:

Código:

 &lt;?php 
$asunto=&quot;Un amigo te Recomendia ......&quot;;
$mensaje=&quot;hola &quot;.$nombre2.&quot;!. &quot;.$nombre1.&quot; este amigo te recomienda que entres a http://www.tuweb.com en el cual podrás encontrar gran cantidad de servicios ideas o afines&quot;;
mail($email2, $asunto, $mensaje, &quot;FROM: &quot;.$email1);
?&gt;

ojala te sirvan [/B]