' Notification Mail Template
sql = "SELECT template_html FROM automail_templates WHERE template_id = ''"
Set rs2 = Conn.execute(sql)
If not rs2.EOF then
templateHTML = rs2.Fields("template_html").Value
End If
rs2.Close
Set rs2 = Nothing
If templateHTML <> Empty then
Set mailer = new spiderMail
mailer.mailApp = "jMail"
mailer.mailOut = "single"
mailer.mailSample = TRUE
mailer.Subject = ""
mailer.FromEmail = appGetKey("config","mail_from")
mailer.FromName = appGetKey("config","name_from")
mailer.ToEmail =
mailer.BodyHTML = templateHTML
mailer.Send()
Set mailer = Nothing
End If
rs.Close
Set rs = nothing
closeDBConn()