cdont

[(W)M IM 0]

ola amigo,estou fazendo um sistema para enviar e-mail para todos as pessoas do meu banco de dados mas ta dando um erro...Erro e o seguinte ele envia e-mail correto para a primeira pessoa do banco de dados mas os outros registro quando vai enviar da erro...O codigo:

if request("enviar")="ok" thenDim Coon, rs, NovoEmailset Coon = CreateObject("ADODB.Connection")Coon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../fpdb/bd.mdb")set rs = CreateObject("ADODB.Recordset")rs.open "Select * FROM test " ,Coon,3,3email=rs("email")senha=rs("senha")Set NovoEmail = Server.CreateObject("CDONTS.NewMail")NovoEmail.from = "im@hp.com.br"NovoEmail.Subject = "MG 2004"NovoEmail.MailFormat = 0NovoEmail.BodyFormat = 0while not rs.eofNovoEmail.to = emailNovoEmail.Body = "Sua senha é " & senhaNovoEmail.sendrs.movenextwend   end if

[*Marcinha* 0]

if request("enviar")="ok" then

 

Dim Coon, rs, NovoEmail

 

set Coon = CreateObject("ADODB.Connection")

Coon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../fpdb/bd.mdb")

set rs = CreateObject("ADODB.Recordset")

rs.open "Select * FROM test " ,Coon,3,3

while not rs.eof

email=rs("email")

senha=rs("senha")

 

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

NovoEmail.from = "im@hp.com.br"

NovoEmail.Subject = "MG 2004"

NovoEmail.MailFormat = 0

NovoEmail.BodyFormat = 0

 

 

NovoEmail.to = email

NovoEmail.Body = "Sua senha é " & senha

NovoEmail.send

rs.movenext

wend

end if

[Wild 0]

Falow ae Marcinha...Mandow bem B)

[(W)M IM 0]

valew marcinha era isso mesmo.....!!!