em ASP

[Adilson_Web_2007 0]

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=0dim estilo,conexaoDataBase,ConnString,rsTabela,sqlTabela,dia,hora,msgTexto,nome,objCOSYSMail,objCDOSYSCon,data,semana,hora1,cliente,sqlLogin,rsLoginCall abreConexaosqlTabela = "Select *From agenda"set rsTabela = conexaoDataBase.execute(sqlTabela)do while not rsTabela.eofdia = cdate(rsTabela("data"))+2if dia = date thendata=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") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.UpdateSet objCDOSYSMail.Configuration = objCDOSYSConobjCDOSYSMail.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.SendSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingend ifrsTabela.movenextloopCall fechaConexaoset rsTabela = nothing%>

[jrcardozo 4]

crie uma rotina pra buscar todos os emails no banco de dados e faça um while pra enviar os emails

[Adilson_Web_2007 0]

Pessoal estou precisando fazer esse codigo funcionar, nem sei por onde começar alguém pode me dar uma luz?