Hola, necesitaria ayuda a ver si alguien me puede decir como resolver esto:
Al mandar un newsletters a todos los usuarios de mi web me aparece este error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near ')'.
/admin/home_newsletter_sending.asp, line 35
La web esta alojada en un servidor IIS y la BBDD es en Sql server
Y este es el codigo completo:
<form action="<%=SM_mailAction%>" method="post" name="sending_newsletter" id="sending_newsletter">
</form>
<!--#include file="../Connections/connDUportalPro.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
If LCASE(Session("MM_UserAuthorization")) <> "admin" Then Response.Redirect("default.asp")
%>
<!--#include file="../includes/inc_config.asp" -->
<!--#include file="../ScriptLibrary/incSmartMailer.asp" -->
<%
Dim rsNewsLetter
Dim rsNewsLetter_numRows
Set rsNewsLetter = Server.CreateObject("ADODB.Recordset")
rsNewsLetter.ActiveConnection = MM_connDUportalPro_STRING
rsNewsLetter.Source = "SELECT * FROM LETTERS WHERE LET_ID = " & Request.Form("iData")
rsNewsLetter.CursorType = 0
rsNewsLetter.CursorLocation = 2
rsNewsLetter.LockType = 1
rsNewsLetter.Open()
rsNewsLetter_numRows = 0
strBody = rsNewsLetter.Fields.Item("LET_DESCRIPTION").Value
strSubject = rsNewsLetter.Fields.Item("LET_NAME").Value
rsNewsLetter.Close()
Set rsNewsLetter = Nothing
Dim rsMembersEmails
Dim rsMembersEmails_numRows
Set rsMembersEmails = Server.CreateObject("ADODB.Recordset")
rsMembersEmails.ActiveConnection = MM_connDUportalPro_STRING
rsMembersEmails.Source = "SELECT * FROM MEMBERS WHERE MEM_ID IN (" & Request.Form("iMem") & ")"
rsMembersEmails.CursorType = 0
rsMembersEmails.CursorLocation = 2
rsMembersEmails.LockType = 1
rsMembersEmails.Open()
rsMembersEmails_numRows = 0
' Smart Mailer 1.0.5
' Send on load
Server.ScriptTimeout = 1000
Set sm1 = new SmartMailer
sm1.checkVersion "1.05"
sm1.contentCharset = "us-ascii"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "", "", "", ""
sm1.pickup = ""
sm1.component = "aspemail"
sm1.tmpFolder = ""
sm1.embedImages = true
sm1.progressBar = ""
sm1.ignore_errors = true
sm1.useQueue = true
sm1.setFrom strPageTitle, strAdminEmail
Set sm1.toRecord = rsMembersEmails
sm1.toRecordName = "MEM_FIRST"
sm1.toRecordEmail = "MEM_EMAIL"
sm1.total_mail = sm1.getTotalRecords(rsMembersEmails)
while not sm1.toRecord.EOF
sm1.setTo sm1.toRecord.Fields.Item(sm1.toRecordName).Value, sm1.toRecord.Fields.Item(sm1.toRecordEmail).Value
sm1.Subject = "" & strSubject & ""
' using static for body
sm1.setBody_Static_html "" & "Dear " & sm1.toRecord.Fields.Item(sm1.toRecordName).Value & ", " & vbCLRF & strBody & ""
' Attachments none
sm1.sendMail "multiple"
rsMembersEmails.MoveNext()
Wend
sm1.done()
set cmdUpdateNewsLetter = Server.CreateObject("ADODB.Command")
cmdUpdateNewsLetter.ActiveConnection = MM_connDUportalPro_STRING
cmdUpdateNewsLetter.CommandText = "UPDATE LETTERS SET LET_SENT = LET_SENT + 1 WHERE LET_ID = " & Request.Form("iData")
cmdUpdateNewsLetter.CommandType = 1
cmdUpdateNewsLetter.CommandTimeout = 0
cmdUpdateNewsLetter.Prepared = true
cmdUpdateNewsLetter.Execute()
Response.Redirect "home_newsletter.asp"
rsMembersEmails.Close()
Set rsMembersEmails = Nothing
%>
Muchas gracias de antemano.
Un saludo
Eso quiere decir que no esta llegando ningun valor Request.Form("iMem"), verifica que llegue algo.
no alcanzo ese nivel de jerarquia 
Ejecución Aurora...nunca falla 
ese es el otro, para mi seria Cien Dragones De Rojan
