BUeno lo primero es obtener todos los nombres y correos para guardarlos en una variable como una sola cadena y cuando ya tengas esa cadena la podrás usar como la parte
to de cualquiero objeto que estes usando para enviar correo.
<html>
<body>
<%
Dim correos
Dim conn
Dim comm
Dim oRS
correos = ""
Set conn = Server.CreateObject("ADODB.Connection")
Set comm= Server.CreateObject("ADODB.Command")
conn.ConnectionString = "DRIVER={...};etc"
conn.Open
comm.ActiveConnection
comm.CommandText = "SELECT Nombre,Correo FROM Usuarios"
Set oRS = comm.execute()
While Not oRS.Eof
correos = correos & oRS("Nombre") & "<" &_
oRS("Correo") & ">"
oRS.MoveNext
if Not oRS.Eof Then
correos = correos & ","
End if
Wend
conn.close
Set conn = Nothing
Set comm = Nothing
Set oRS = Nothing
Response.Write "Enviando correo a " & correos
Set mailo = Server.CreateObject("CDONTS.NewMail")
mailo.mailFormat = 0
mailo.bodyFormat = 0
mailo.subject = "Algo"
mailo.to = correos
mailo.from = "[email protected]"
mailo.body = "Hola"
mailo.send
Set mailo = Nothing
%>
</body>
</html>
Si no me equivovo el formato de correos será algo como:
"Diego<
[email protected]>, Pelé<
[email protected]>"
Espero que te sirva este ejemplillo.
Saludos
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2" width="210" height="126">
<param name="movie" value="http://www.unitecos.net/kaiz/agarciaa.swf">