%
'---------------------------
'Variables and Class Instantiation
'---------------------------
dim contact_brokenlink_message
dim contact_brokenlink_email
set CLASS_cEmail = new CEmail
set CLASS_cEmailtemplate = new CEmailtemplate
set CLASS_cLink = new CLink
set CLASS_cCategory = new CCategory
'---------------------------
'Actions
'---------------------------
if PARAM.state = "post" then
'Validate
CLASS_cEmail.FillFromForm("cemail_fld")
PARAM.ErrorHTML = CLASS_cEmail.Validate("broken link")
'If Validated, then Save
If PARAM.ErrorHTML = "True" then
'Load Template
CLASS_cEmailTemplate.LoadFromTemplateName("Broken Link")
'Load Link
CLASS_cLink.LoadFromID(PARAM.ID)
'Setup
CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent")
CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName")
CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat")
'Formulate Email
CLASS_cEmail.EmailTo=CONFIG.Setting("AdministratorsEmail")
contact_brokenlink_email=CLASS_cEmailTemplate.header
'Content from form
contact_brokenlink_email=contact_brokenlink_email & CLASS_cEmail.EmailBody
'Fill in extra details for admin
contact_brokenlink_email=contact_brokenlink_email & "
Restaurant Details"
contact_brokenlink_email=contact_brokenlink_email & "
URL: " & CLASS_cLink.url & ""
contact_brokenlink_email=contact_brokenlink_email & "
Restaurant: " & CLASS_cLink.linkname
contact_brokenlink_email=contact_brokenlink_email & "
Description: " & CLASS_cLink.linkdescription
contact_brokenlink_email=contact_brokenlink_email & "
Location: "&""&CLASS_cCategory.getHTMLLocation(CLASS_cLink.idparent)&""
contact_brokenlink_email=contact_brokenlink_email & "
Contact Name: " & CLASS_cLink.contactname
contact_brokenlink_email=contact_brokenlink_email & "
Contact e-Mail: " & CLASS_cLink.contactemail
contact_brokenlink_email=contact_brokenlink_email & "
Date/time added: " & CLASS_cLink.dateadded
contact_brokenlink_email=contact_brokenlink_email & "
Admin Login: " & ""&CONFIG.Setting("URL_SiteRoot")&"/admin"
contact_brokenlink_email=contact_brokenlink_email & CLASS_cEmailTemplate.footer
CLASS_cEmail.EmailBody = contact_brokenlink_email
'Send an email to administrator
CLASS_cEmail.sendEmail
'Save
CLASS_cEmail.storedata()
'Confirmation Message
contact_brokenlink_message = contact_brokenlink_message & "
"
contact_brokenlink_message = contact_brokenlink_message & "Thank you for telling us about the broken link. " contact_brokenlink_message = contact_brokenlink_message & "Your e-mail has been successfully sent. " contact_brokenlink_message = contact_brokenlink_message & " |