Enviar un email a todos los registros de mi BD.

[mamon]

haces un
do while not oRS.eof
xemail = trim(oRS("email")) & ", " xemail
oRS.movenext
loop
xemail = left(xemail,len(xemail)-2)

asi tienes todos los mails separados x comas.. o sino dentro del do while pones el código del aspemail para enviar el mail uno x uno.. asi puedes poner el nombre de cada persona en el mail para decirle x ejemplo:

Hola nombre del cliente