Forums

This topic is locked

Smart mailer vs 1.0.8

Posted 04 Dec 2009 13:46:06
1
has voted
04 Dec 2009 13:46:06 Nicholas Maloney posted:
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?

Replies

Replied 04 Dec 2009 17:07:29
04 Dec 2009 17:07:29 Nicholas Maloney replied:
Altering the code resolves the probel clearly i.e. removing the extra statement punctuations ...

sm1.setAttList (Recordset4.Fields.Item("uploadpath".Value)
sm1.sendMail "one"
%>
Replied 06 Dec 2009 22:08:57
06 Dec 2009 22:08:57 Patrick Julicher replied:
Hi Nicholas,

I'm using the Smart Mailer myself but am not experiencing this issue. Thanks for your feedback on how your problem was solved. I will test to see when this happens.

Kind regards, Patrick

Reply to this topic