Lista de correos con CDONTS

[Adler]

Hola

Prueba así

If Not rs.EOF Then
Do While Not rs.EOF
Email = rs("Email")
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = ""&Email&""
OBJ_EMAIL.Subject = "Lista de correo"
OBJ_EMAIL.Body = "Mensaje" & vbcrlf&_
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
rs.MoveNext
Loop
End If

Response.Redirect "confirmacion_envio.asp"

rs.Close
Set rs = Nothing
oConn.Close()

Suerte