Duvida Em Asp

[ADL]

Olá pessoal estou com um script de mandar email, que funciona perfeitamente. Só que o script, manda só um email. Eu gostaria que fosse mandado o mesmo email para todos os usários que estiverem cadastrado no banco de dados.

segue o script

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
%>
<!--#Include file="conexaoBD/conexao.inc"--><%
response.expires=0
dim estilo,conexaoDataBase,ConnString,rsTabela,sqlTabela,dia,hora,msgTexto,nome,objC
OSYSMail,objCDOSYSCon,data,semana,hora1,cliente,sqlLogin,rsLogin
Call abreConexao
sqlTabela = "Select *From agenda"
set rsTabela = conexaoDataBase.execute(sqlTabela)



do while not rsTabela.eof
dia = cdate(rsTabela("data"))+2

if dia = date then
data=rsTabela("data")
semana= rsTabela("semana")
hora1= rsTabela("hora")
cliente=rsTabela("cliente")

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "meu provedor de email"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.Update


Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "audiencia@hondadef.com.br"
objCDOSYSMail.To = rsTabela("email")

objCDOSYSMail.Subject = "AUDIÊNCIA"
objCDOSYSMail.TextBody = "Prezado(a) Estamos informando que faltam 2 dias para AUDIÊNCIA, do cliente, "&cliente&" que ocorrera no dia "&data&" na "&semana&" às "&hora1&"."
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing




end if
rsTabela.movenext
loop

Call fechaConexao
set rsTabela = nothing
%>

[Marcos-rj]

Esta dando algum erro?

o código esta dentro do loop, não esta enviando?

[ADL]

está tudo ok. Eu quero que ele mande email para todos os usuarios que estiver no banco de dados ok. Obrigado cara estou precisando muito disso ok valeu.

[webdeveloper]

Aparentemente o código está correto, para cada registro que ele encontrar ele envia um e-mail, ou você quer mandar para todos de uma vez só???

[ADL]

pode ser. todos tem que receber. o que você acha melhor? obrigado pela ajuda.

[webdeveloper]

Da forma que está já está mandando para todos.

[.Andreia.]

Aparentemente não vejo erro, então verifique se todos estão entrando no IF que voce colocou

[webdeveloper]

Veja essa linha:

dia = cdate(rsTabela("data"))+2

Não deveria ser substituida por isso???

dia = CDate(rsTabela("data")) - 2

Assim você pegará os registos dois dias antes (-2).

Editado Julho 4, 2007 por webdeveloper

[ADL]

então quando eu faço isso aqui dia = CDate(rsTabela("data")) + 2 é para verificar se a data que está no banco + 2 é igual a data do sisitema. Se for então ele manda o email para aqulea data. Por exemplo eu cadastrei uma audiência hoje, para o dia 6-7-2007 então só eu irei receber o email. A minha dúvida e que se a data do banco + 2 for igual a data do sisitema quero que todos os úsuários receban o email . beleza, espero que tenha ficado claro. Muito obrigado pelas dicas.

[webdeveloper]

Então o código está correto.