Microsoft VBScript compilation error '800a0401'
Expected end of statement
/e-mailallsuccess-cdonts.asp, line 102
sm1.setAttList "<%=(Recordset4.Fields.Item("uploadpath"
.Value)
Although the update behaviour is writing to the database we are getting this error message now constantly on all pages using this extension.
<%
' Smart Mailer 1.0.8
' Send on load
Server.ScriptTimeout = 300
Set sm1 = new SmartMailer
sm1.checkVersion "1.08"
sm1.contentCharset = "us-ascii"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "", "", "", ""
sm1.pickup = ""
sm1.component = "cdonts"
sm1.tmpFolder = ""
sm1.embedImages = false
sm1.progressBar = ""
sm1.ignore_errors = true
sm1.useQueue = false
sm1.setFrom "Support team Onlineinset.net", "
"
Set sm1.toRecord = Recordset1
sm1.toRecordName = "fname"
sm1.toRecordEmail = "email"
sm1.total_mail = sm1.getTotalRecords(Recordset1)
while not sm1.toRecord.EOF
sm1.setTo sm1.toRecord.Fields.Item(sm1.toRecordName).Value, sm1.toRecord.Fields.Item(sm1.toRecordEmail).Value
sm1.Subject = "Message from your Onlineinset tutor, " & (Recordset1.Fields.Item("tutorfname"
.Value) & ""
' using static for body
sm1.setBody_Static_html "" & vbCRLF & "Dear " & (Recordset1.Fields.Item("fname"
.Value) & "" & vbCRLF & "" & vbCRLF & "" & (Recordset4.Fields.Item("emailmessage"
.Value) & "" & vbCRLF & "" & vbCRLF & "This message has been sent using the e-mail server at Onlineinset.net. Please DO NOT REPLY to this message." & vbCRLF & "" & vbCRLF & "Reply to " & (Recordset1.Fields.Item("temail"
.Value) & "" & vbCRLF & "" & vbCRLF & "Thank you." & vbCRLF & "" & vbCRLF & "The Inclusiononline support team."
' Attachments from list
sm1.setAttList "<%=(Recordset4.Fields.Item("uploadpath"
.Value)%>
"
sm1.sendMail "multiple"
Recordset1.MoveNext()
Wend
sm1.done()
%>
Can you offer any suggestions to help?
