Enviar E-Mail con datos de una DB

[masnsaq]

Como puedo hacer para enviar e-mail obteniendo los datos desde una DB Oracle y donde el mensaje es para varios usuarios.

Estoy trabajando en una maquina con Windows 2000

[maestro]

Imaginate que quieres enviar una lista de registros de una base de datos a un destinatario de correo.
Despues modificalo como quieras.
PD: Usa ASPEMAIL y ADO-OLEDB

correo.asp

<%
email=request("email")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.Open SQL, oConn,1,2

'envio mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.tudominio.net"
Mail.From = "[email protected]"
Mail.FromName = "Departamento de Novedades"
Mail.AddAddress "[email protected]"

Mail.Subject = "Lista de novedades en www.Musicatotal.es.vg"
do while not rs.eof
cuerpo= cuerpo & rs("campo1") & rs("campo2") &"<br>"
rs.movenext
loop
Mail.body = cuerpo

'Limpiamos objetos y cerramos las conexion con la BD
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

On Error Resume Next
response.write("El correo ha sido enviado a [email protected] & "<br>" & "Gracias por visitarnos")
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>

[masnsaq]

Donde obtengo el ASPMail

[maestro]

http://www.aspemail.com