Foros del Web » Programando para Internet » ASP Clásico »

Hacer PÁgina De RecomendaciÓn

Estas en el tema de Hacer PÁgina De RecomendaciÓn en el foro de ASP Clásico en Foros del Web. Me gustaría hacer una página en mi sitio web de tal manera que pudieran recomendar mi pagina a los amigos a través del correo electronico ...
  #1 (permalink)  
Antiguo 19/01/2002, 05:38
 
Fecha de Ingreso: diciembre-2001
Ubicación: Valladolid
Mensajes: 18
Antigüedad: 22 años, 5 meses
Puntos: 0
Hacer PÁgina De RecomendaciÓn

Me gustaría hacer una página en mi sitio web de tal manera que pudieran recomendar mi pagina a los amigos a través del correo electronico necesito un sitio web donde se explique bién y con buena documentación. Un saludo
  #2 (permalink)  
Antiguo 19/01/2002, 11:18
 
Fecha de Ingreso: enero-2002
Mensajes: 5
Antigüedad: 22 años, 4 meses
Puntos: 0
Re: Hacer PÁgina De RecomendaciÓn

Proba con esto:

Copia y pega este codigo a una pagina .asp
---------------------------------------
<%page = Request.ServerVariables("URL")
%>
<p><a href="mailto:?body=http://www.tusitio.com<%=page%>&subject=Me parecio interesante este articulo publicado por ...com"><font face="Arial" size="1">Enviar
este articulo a un amigo</font></a></p>
<b>
----------------------------------------
Salu2

;)
  #3 (permalink)  
Antiguo 19/01/2002, 14:47
Avatar de Aston  
Fecha de Ingreso: mayo-2001
Ubicación: Madrid
Mensajes: 933
Antigüedad: 23 años, 1 mes
Puntos: 0
Re: Hacer PÁgina De RecomendaciÓn

Hola tigre:

Este es el código de enviar a un amigo y que sirve perfectamente para lo que quieres. Además, funcionando sin problemas.

<%@ Language=VBScript%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Fernando Ortiz</title>
</head>
<body><%
Dim cBody, n

'For Each n In Request.Form
' cBody = cBody & n & ": " & Request.Form(n) & chr(13)
'Next

Set oCDO = Server.CreateObject("CDONTS.NewMail")

'Asignamos las propiedades al objeto
oCDO.From = "[email protected]"
oCDO.To = "[email protected]"
oCDO.Subject = "Asunto del mensaje"
oCDO.Body = "Este es el cuepo del mensaje"
'oCDO.Cc = "[email protected];[email protected]& quot;
oCDO.Bcc = "[email protected]"
'oCDO.MailFormat = 0

oCDO.Send

Set oCDO = Nothing 'Liberar...
Response.Write Replace(cBody, chr(13), "<br>") & "¡¡¡Vale...!!!"

%>
</body>
</html>

Espero que le saques partido, 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>
  #4 (permalink)  
Antiguo 19/01/2002, 14:50
Avatar de Curiosa  
Fecha de Ingreso: enero-2002
Ubicación: En el mas allá...
Mensajes: 178
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Hacer PÁgina De RecomendaciÓn

Hola :) ...

Te recomiendo :


<a href='ir.asp?http://www.ademails.com' target='_blank'>http://www.ademails.com...</a>

suerte, bye.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:49.