Por si alguno tiene ganas de echarle un vistazo, indico la linea donde tengo el problema.
Este es el codigo que estoy utilizando:
<%
Option Explicit
'----Declaro variables
Dim sDestinatario, sAsunto, sCuerpo, rs
Dim oMail, emailista, I, J, nomremitente
Dim Ob_Conn, Ob_RS, SQL, conexion, aspmail
Dim Nombre, Email, dsn, remitente
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\misitio\misitio.com\db \newlista.mdb;"
conexion = "mail.misitio"
remitente = "
[email protected]"
nomremitente = "Novedades de Mi sitio"
'----Obtengo el Formulario
sAsunto = Trim(CStr(Request.Form ("asunto")))
sCuerpo = Trim(CStr(Request.Form ("mensaje")))
'----Abro la conexión
set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Ob_Conn.Open dsn '----Nombre de la conexion DSN
SQL="SELECT * FROM listado"
Nom = rs.Fields("Nombre") ‘AQUI ES DONDE ME DICE QUE SE ESPERABA UNA comilla
'----Fuerzo la ejecución del script a 12 minutos
Server.ScriptTimeout = 720
'----Obtengo la tabla con las direcciones de Email en GetRows, y libero la BD.
set Ob_RS = Ob_Conn.Execute(SQL)
emailista = Ob_RS.GetRows
'----Cierro la conexión.
Ob_rs.Close
Ob_Conn.Close
set Ob_rs=nothing
set Ob_Conn=nothing
'---- Le asigno los nombre a los ejes de la matriz, y empiezo a recorrerla
'para mandar cada uno de los e-mails cargados en la BD.
Nombre = 1
Email = 2
%>
<html>
<head>
<title>Correo enviado a la lista</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<center><table border="0" cellpadding="2" cellspacing="0" width="550"><TR><TD>
<p align="center"><font size="3"><b><font face="Verdana, Arial, Helvetica, sans-serif">Enviando
el correo a la lista, dependiendo del tamaño del correo, la operacion
puede tardar unos minutos....</font></b></font><br>
<br>
</TD><TR></TR></TABLE></center>
<center>
<table border="0" cellpadding="2" cellspacing="0" width="400">
<TR>
<TD colspan="2"><font size="3"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">El
correo fue enviado con exito a:</font></b></font><br>
</TD>
<%
for I = 0 to UBound(emailista, 2)
for J = 0 to UBound(emailista, 1)
sDestinatario = emailista(Email, I)
next
set oMail=Server.CreateObject("Persits.MailSender")
oMail.Host = conexion
oMail.From = remitente
oMail.FromName = nomremitente
oMail.AddAddress sDestinatario
oMail.Subject = sAsunto
oMail.IsHTML = True
oMail.Body = "<HTML><body><P><font face=verdana size=2>Estimado <b>"& Nom &"</b></body></HTML>"
'oMail.Body = sCuerpo
On Error Resume Next
oMail.Send
%>
<TR>
<TD width="41">
<div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=I+1%></font></div>
</TD>
<TD width="351"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=sDestinatario%></font></TD>
</TR>
<%
next
'----Cerramos la conexión
set oMail = nothing
%>
</TABLE>
</center>
<center><table border="0" cellpadding="2" cellspacing="0" width="550"><TR><TD>
<p align="center"><a href="<%=Request.ServerVariables("HTTP_REFERER")%> "><b><br>
</b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Volver</b></font><b><br>
</b></a></p>
</TD></TR></TABLE></center>
</body>
</html>
Todo funciona correctamente salvo que no puedo hacer que me traiga el Nombre del usuario desde la BD para insertarlo en el cuerpo delo mail...
Gracias !!
