yo lo utilizo así y no tengo problemas:
<%
Dim oMail, oConn, oRs, aMail, I
Set oConn = Server.Crea...
'Creo los dos objetos y hago la consulta
'paso los datos por GetRows
aMail = oRs.GetRows
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
Set oMail = Server.CreateObject("CDONTS.NewMail")
For I = LBound(aMail, 2) To UBound(aMail, 2)
oMail.To = aMail(0, I)
oMail...
oMail.Send
Next
Set oMail = Nothing
'Listo, se enviaron todos los mails...
%>
Yo les estoy enviando a 368 email y lo hace sin problemas (creería).
Espero que haya servido de algo.
Hasta pronto!
Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>