ERROR - Mandar Email a una lista de emails en una BD Quiero q los datos rellenados en un formulario, sean enviados a todos los componentes de mi BD a través de un ASP.
Aqui está el código:
DIM Empresa,Persona,Comentario,Email
Empresa = Request.Form("Empresa")
Persona = Request.Form("Persona")
Comentario = Request.Form("Comentario")
Email = Request.Form("Email")
set oConn=Server.CreateObject("ADODB.Connection")
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Data/clientes.mdb")
oConn.Open "DSN=granada2000.net.ogade"
Set rs = Server.CreateObject("ADODB.RecordSet")
sSQL = "Select * From Usuarios"
RS.Open sql, oConn,3,3
If rs.eof and rs.bof Then
Response.Write "<BR><BR><center><b>No hay Contactos en tu Lista..."</b>
Else
do while not rs.EOF
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Recipient = rs.Fields ("Email")
oMail.Send Empresa, Persona, Email, Comentario
Set oMail = Nothing
rs.MoveNext
Loop
Response.Write "<BR><BR></b>El Mensaje fue Enviado a Toda tu Lista..."
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
End If
%>
Y obtengo el siguiente error:
ADODB.Recordset error '800a0bb9'
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros
En la línea 30 --------> RS.Open sql, oConn,3,3
Una ayudita??
Gracias!
) 
