111luis
Usuario Novato
Usuario Novato

Hola,
Me gustaría instalar en una web que mantengo la posibilidad "Envíar esta página a un amigo". Como es sabido, es una opción muy corriente en todo tipo de páginas que visitamos en Internet. ¿Alguien me puede decir cómo se hace o donde me puedo enterar?
Muchas gracias.

Avatar Image
Moderador
Moderador

hace tiempo tengo este, y lo he probado ya que no lo necesito . Pero veamos si te funciona

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

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


%>
</body></html>



Puedes agregar más variables en la caja de texto, como "tu nombre", "e_mail", en fin etc, se puede , y luego debes cambiarlo en el "Mailer"
De interés Público
NO AGREGARME COMO AMIGO, gracias
Asuntos claros en los temas
Consultas en temas no afines serán borradas
Tratemos de expresarnos bien, que así da gusto leer


Avatar Image
@man / @woman
@man / @woman

Con php es muy simple y en mi@ funciona.

Pasate por el foro de www.tuarroba.com, tiene un subforo de php y allí esta el script.

Avatar Image
Moderador
Moderador

Donde tengo la cabeza, era un asp , mis disculpas .

Lo muevo a php

De interés Público
NO AGREGARME COMO AMIGO, gracias
Asuntos claros en los temas
Consultas en temas no afines serán borradas
Tratemos de expresarnos bien, que así da gusto leer


ATENCIÓN: Este tema no tiene actividad desde hace más de 6 MESES,
te recomendamos abrir un nuevo tema en lugar de responder al actual
Opciones:
Ir al subforo:
Permisos:
TU NO PUEDES Escribir nuevos temas
TU NO PUEDES Responder a los temas
TU NO PUEDES Editar tus propios mensajes
TU NO PUEDES Borrar tus propios mensajes
Temas similares
TemaUsuariosRespuestasVisitasActividad
Por: , el 01/Ago/2006, 07:12
nico1623 angelismo NoSetup.org tluu.sansano34kAug/06