Ver Mensaje Individual
  #2 (permalink)  
Antiguo 01/05/2002, 11:32
Avatar de jpablo52
jpablo52
 
Fecha de Ingreso: marzo-2002
Ubicación: Guatemala
Mensajes: 42
Antigüedad: 23 años, 1 mes
Puntos: 0
Re: Incluir asp en un mail

Lo puedes hacer leyendo como que si fuese un archivo de texto tu pagina.asp y mandas esa variable en el body de tu cdont mail.
Aqui t mando un codigo que lo hice yo mismo y esta buenisimo.

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Archivo= "volante.html" 'el archivo htm a mandar en el 'nesletter'
Dim objTextStream
File = server.MapPath(".") & "/" & Archivo
fsoForReading = 1
sHTML=" "
Set objTextStream = objFSO.OpenTextFile(File, fsoForReading)
sHTML=sHTML & objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing


Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.ContentBase = "http://www.mi.com/"
objMail.ContentLocation = "pruebasp/"
objMail.Body = sHTML
objMail.Send
Set objMail = Nothing
response.write "si"
%>
</body>
</html>

Ojo tus links deben tener toda la direccion
http://www.pagina.com/miasp.asp
http://www.pagina.com/midb.db etc... ;)