Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/10/2005, 02:51
Agrey
 
Fecha de Ingreso: octubre-2003
Mensajes: 364
Antigüedad: 21 años, 6 meses
Puntos: 1
Enviar Datos por Correo

Hola a todos,
Tengo una duda k no haber si alguien me puede ayudar.

Yo envio un boletin con el siguiente código:
Código HTML:
<%
fName = server.mappath("boletin.htm")
Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.openTextFile(fName)
	Mensaje = a.readall
	a.Close
	set a = nothing
	set fs = nothing	
%>	
<!--#include file="../conexion.asp"-->
<%
Server.ScriptTimeOut = 10000
express conn

Set rs = Server.CreateObject ("ADODB.RecordSet")
sql="select * from usuarios "
rs.Open sql,conn,3,1

do while not rs.eof

Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "zzzz.xxxx"
Mail.From = "zzz@xxxx"
Mail.FromName = "xxx"
Mail.AddAddress rs("email")
Mail.Subject = Mail.EncodeHeader("xxxxxxxxx")
Mail.IsHTML = True
Mail.body = Mensaje 
Mail.Sendtoqueue
Mail.reset

rs.movenext
loop	


%> 
Y funciona correctamente,

Mi idea ahora, era mandar un correo a todos los usuarios mostrandoles sus datos para si quieren actualizarlos.
Entonces lo que he hecho es donde pone: "boletin.htm" he puesto datos.asp
Y esa página es una página que recoje los datos de la bbdd.

Pero a la hora de mandarlo recibo el email sin los datos, sólo con la palntilla hecha en asp.

Como lo puedo solucioanr