Extraño problema con cdon

[trasgukabi]

pues prueba asi...

Código:

nombredb = request.Form("nombredb")

sql = "select * from (encComponeMail inner join encCargaArchivoTxt "
sql = sql + "on id_encta = id_encEnviada) inner join "&nombredb&" on Email is not null"

set rsDestinatario = server.CreateObject("adodb.recordset")
rsDestinatario.open sql , conexion

while not rsDestinatario.eof

texto = ""_ ' composicion del mail

strDESDE = rsDestinatario("Email")
strPARA = rsDestinatario("Email")

Set mailobj = Server.CreateObject("CDONTS.NewMail") ' naca error
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = strDESDE
mailobj.to = strPARA
mailobj.subject = "SE ENCUENTRA DISPONIBLE UNA NUEVA ENCUESTA"
mailobj.body = texto
mailobj.send
mailobj.close
set mailobj=nothing
rsDestinatario.movenext
wend