<% '--------------------------- '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.

Close Window
<% set CLASS_cLink = nothing set CLASS_cCategory = nothing set CLASS_cEmail = nothing set CLASS_cEmailTemplate = nothing response.end 'If Not else 'Usually do nothing, as the error message will display lower. end if else CLASS_cRating.idlink = CLASS_cCast.cast(request.QueryString("field_idlink"),"lng","input") end if %>
&field_linkname=<%=server.URLEncode(querystring_linkname)%>" method="post"> " /> " /> " /> " />
<%=PARAM.errorhtml%>
Please rate the restaurant
<%=querystring_linkname%>
Excellent Restaurant:
Very Good Restaurant:
Average Restaurant:
Maybe worth one visit:
Poor Restaurant:
Submit Your Rating

Close Window
<% '--------------------------- 'Clean Up '--------------------------- set CLASS_cLink = nothing set CLASS_cCategory = nothing set CLASS_cEmail = nothing set CLASS_cEmailTemplate = nothing %>