a investiga sobre cdont lo utilizas de la sig manera
donde con el while sacas los mail desde la tabla de tus clientes o usuarios a kienes les enviaras el mail
while not rsDestinatario.eof
texto = ""_
&" <table width='74%' border='0' cellspacing='0' cellpadding='0'>"_
&" <tr>"_
&" <td width='19%' rowspan='6'> </td>"_
&" <td colspan='2' bgcolor='#EBEBEB'>Estimado : "&rsDestinatario("nombre")&" </td>"_
&" </tr>"_
&" <tr>"_
&" <td height='30' colspan='2'> </td>"_
&" </tr>"_
&" <tr>"_
&" <td width='45%'><p>Este e-mail es para informarle que ya esta disponible una nueva encuesta para que siga acumulando puntaje para cambiarlos por nuestros fantasticos premios. </p>"_
&" <p>Puede acceder al sistema de Encuestas 2006 directamente desde el link que se encuentra mas abajo, o puede contestarla en otro momento. </p></td>"_
&" <td width='36%'> </td>"_
&" </tr>"_
&" <tr>"_
&" <td colspan='2'> </td>"_
&" </tr>"_
&" <tr>"_
&" <td colspan='2' bgcolor='#EBEBEB'>Haga click <a href='#'>AQUI</a> para responder la encuesta ahora. </td>"_
&" </tr>"_
&" </table>"
strDESDE = "
[email protected]"
strPARA = rsDestinatario("email")
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = strDESDE
mailobj.to = strPARA
mailobj.subject = "SE ENCUENTRA DISPONIBLE UNA NUEVA ENCUESTA"
mailobj.body = texto
mailobj.send
rsDestinatario.movenext
wend
cdont viene hasta la nt de windows pero puedes buscar la libreria esta en internet para las versiones mas actuales de windows 2000 por ejemplo, y instalar la libreria, eso no lo se, pero investiga.