%
'---------------------------
'Variables and Class Instantiation
'---------------------------
dim message
dim querystring_linkname
set CLASS_cLink = new CLink
set CLASS_cCategory = new CCategory
set CLASS_cEmail = new CEmail
set CLASS_cRating = new CRating
set CLASS_cEmailtemplate = new CEmailtemplate
querystring_linkname=request.QueryString("field_linkname")
'---------------------------
'Actions
'---------------------------
if PARAM.State = "post" then
'Validate
CLASS_cRating.FillFromForm("crating_fld")
PARAM.errorhtml = CLASS_cRating.Validate("default")
'If Validated, then Save
If PARAM.errorhtml = "True" then
CLASS_cRating.storedata()
CLASS_cLink.LoadFromID(CLASS_cRating.idlink)
'Load category based on the parent ID, to get category information for emails
CLASS_cCategory.LoadFromID(CLASS_cLink.idparent)
If CONFIG.Setting("AutomaticApproval") = "True" or CONFIG.Setting("AutomaticApproval") = "1" Then
'Update Links table with ratings totals and averages if autoupdate set to True
CLASS_cLink.Rating = CLASS_cRating.GetAverageRating(CLASS_cRating.idlink)
CLASS_cLink.NumberOfRatings = CLASS_cRating.GetNumberOfRatings(CLASS_cRating.idlink)
CLASS_cLink.storedata
End if
if CONFIG.Setting("NotifyAdministrator") = "True" or CONFIG.Setting("NotifyAdministrator") = "1" then
'Setup
CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent")
CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName")
CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat")
'Formulate Email
CLASS_cEmail.EmailFrom=CONFIG.Setting("AdministratorsEmail")
CLASS_cEmail.EmailTo=CONFIG.Setting("AdministratorsEmail")
If CONFIG.Setting("AutomaticApprovalRatings") = "True" or CONFIG.Setting("AutomaticApprovalRatings") = "1" Then
CLASS_cEmailTemplate.LoadFromTemplateName("New Rating Added And Approved")
CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & " "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content
Else
CLASS_cEmailTemplate.LoadFromTemplateName("New Rating Added And Needs Approval")
CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & " "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname
CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content
End If
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Rating: " & CLASS_cRating.Rating
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Submitted by: " & CLASS_cRating.ipaddress
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Date/time added: " & PARAM.SafeDateTime(now(),"0")
CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & "
Restaurant Details"
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: "&""&CLASS_cCategory.getHTMLLocation(CLASS_cLink.idparent)&""
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: " & CLASS_cLink.DateAdded
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
%>
Thank you for rating this link.
Your rating has been recorded, it may take some time for your rating to appear on the site. |