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"
%>
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
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