%
'---------------------------
'Variables and Class Instantiation
'---------------------------
dim message
dim link_submit_dropdown
dim link_submit_categorylocation
set CLASS_cLink = new CLink
set CLASS_cCategory = new CCategory
set CLASS_cEmail = new CEmail
set CLASS_cEmailtemplate = new CEmailtemplate
'---------------------------
'Actions
'---------------------------
if PARAM.state = "post" then
'Validate
CLASS_cLink.FillFromForm("CLink_fld")
PARAM.ErrorHTML = CLASS_cLink.Validate("default")
'If Validated, then Save
If PARAM.ErrorHTML = "True" then
CLASS_cLink.storedata()
'Load category based on the parent ID, to get category information for emails
CLASS_cCategory.LoadFromID(CLASS_cLink.idparent)
'Get complete hierarchy of category location, to place in emails.
link_submit_categorylocation = CLASS_cCategory.getHTMLLocation(CLASS_cLink.idparent)
'Setup
CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent")
CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName")
CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat")
'Administrator Email
if CONFIG.Setting("NotifyAdministrator") = "True" or CONFIG.Setting("NotifyAdministrator") = "1" then
'Formulate Email
CLASS_cEmail.EmailFrom=CLASS_cLink.ContactEmail
CLASS_cEmail.EmailTo=CONFIG.Setting("AdministratorsEmail")
If CONFIG.Setting("AutomaticApproval") = "True" or CONFIG.Setting("AutomaticApproval") = "1" Then
CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Approved")
Else
CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Needs Approval")
End If
CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & " "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
URL: " & CLASS_cLink.url & ""
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Restaurant: " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Description: " & CLASS_cLink.linkdescription
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Location: "&""&link_submit_categorylocation&""
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Contact Name: " & CLASS_cLink.contactname
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Contact e-Mail: " & CLASS_cLink.contactemail
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Date/time added: " & PARAM.SafeDateTime(now(),"0")
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Admin Login: " & ""&CONFIG.Setting("URL_SiteRoot")&"/admin"
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & CLASS_cEmailTemplate.footer
'Send an email to administrator
CLASS_cEmail.sendEmail
End If
'User Email
CLASS_cEmail.EmailFrom=CONFIG.Setting("AdministratorsEmail")
CLASS_cEmail.EmailTo=CLASS_cLink.ContactEmail
If CONFIG.Setting("AutomaticApproval") = "True" or CONFIG.Setting("AutomaticApproval") = "1" Then
CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Approved User")
Else
CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Needs Approval User")
End If
CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & " "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
URL: " & CLASS_cLink.url & ""
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Restaurant: " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Description: " & CLASS_cLink.linkdescription
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Location: "&""&link_submit_categorylocation&""
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Contact Name: " & CLASS_cLink.contactname
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Contact e-Mail: " & CLASS_cLink.contactemail
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Date/time added: " & PARAM.SafeDateTime(now(),"0")
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & CLASS_cEmailTemplate.footer
'Send a copy to the person who submitted the link
CLASS_cEmail.EmailTo=CLASS_cLink.ContactEmail
CLASS_cEmail.sendEmail
If CONFIG.Setting("AutomaticApproval") = "True" or CONFIG.Setting("AutomaticApproval") = "1" Then
'Confirmation Message
message = message & "
"
message = message & "Thank you for submitting your link to "&CONFIG.Setting("META_SiteTitle")&". " message = message & "Your link has been successfully added and is now live on our site. " message = message & " |
"
message = message & "Thank you for submitting your link to "&CONFIG.Setting("META_SiteTitle")&". " message = message & "Your link will be reviewed shortly and upon approval, will be added to our site. " message = message & " |