utilizando el cdonts....
enviar.asp
<form name="form1" method="post" action="enviando.asp">
<p>
<input name="asunto" type="text" id="asunto">
</p>
<p>
<input name="menasaje" type="text" id="menasaje">
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
enviando.asp
conexion ....
Set registros = conexion.Execute("SELECT * FROM tabla")
Do While Not registros.EOF
Recipient =registros.Fields("EMAIL").Value
Sender = "
[email protected]"
titulo = Request.Form("asunto")
Texto =Request.Form("menasaje")
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Recipient = registros.Fields("EMAIL").Value
oMail.Send Sender, Recipient, titulo, Texto
Set oMail = Nothing
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>