Script de Newsletter

[xhelton 0]

Eu gostaria de saber oque esta errado no meu codigo de news letter .. para enviar o e-mail para todos do meu banco de dados..

 

<%dsn="DBQ=d:\www\meusite\db\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("adodb.connection")x = 0sql="select * from news"set rs = conn.execute sql,conndo while not rs.eofset mail = server.createobject("Persits.MailSender")with mailmail.Host = "mail-nt.braslink.net" mail.to = rs("email")mail.from = "Crazybaby"mail.subject = "Newsletter"mail.body = "oi"mail.mailformat = 0mail.bodyformat = 0mail.SendEnd withx = x+1rs.movenextloopset mail = nothing%>

Obrigado

[Marhault 1]

Você só criou a conexão e esqueceu de abrir ela...

Aonde está essa linha:

set conn=server.createobject("adodb.connection")

Você coloca assim:

set conn=server.createobject("adodb.connection")conn.open dsn

Certo?