Buenas que tal? estoy haciendo un envío de email a los usuarios de una Web, el problema esta en que cuando hago el envío con el siguiente código no realiza el envío, pero si cambio la variable "usuario" en oMail.To y pongo un email entre comilas dobles, me envía el email la cantidad de personas que tengo en la BD, osea si hace el recordset...
<%
Dim usuario, oMail, strHTML
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "línea 1.<br /><br />"
strHTML = strHTML & "línea 2<br /><br />"
strHTML = strHTML & "línea 32<br /><br />"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos.mdb")&";"
sql = "select * from emails"
rs.open sql, oConn, 3,1
Do While Not rs.EOF
usuario = rs("email")
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = "
[email protected]"
oMail.To = usuario
oMail.Subject = "Hola"
oMail.Body = strHTML
oMail.Send
Set oMail = Nothing
rs.MoveNext
Loop
Response.Redirect "fin.asp"
%>
lo que deseo es que se envíe a cada uno de los usuarios que estan en la BD, y yo guardo el email en la variable usuario.
Gracias de antemano