<% '--------------------------- '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 & "
" Else 'Confirmation Message 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 & "
" End If set CLASS_cCategory = nothing response.Redirect(CONFIG.Setting("URL_SiteRoot")&"/confirmation.asp?message="&server.URLEncode(message)) 'If Not else 'Usually do nothing, as the error message will display lower. end if else CLASS_cLink.idparent = CLASS_cCast.cast(request.QueryString("field_idparent"),"lng","input") end if 'Get List of Categories link_submit_dropdown = CLASS_cCategory.getHTMLDropDownAllCategories("") '--------------------------- 'MAIN '--------------------------- %>
" method="post"> " /> " /> " /> " /> " /> " />
Submit your restaurant to <%=CONFIG.Setting("META_SiteTitle")%>
<% If CONFIG.Setting("AD_Google") = True Then %>
<%End If%>
<%if link_submit_dropdown = "" Then%> <%Else%> <%End If%>
There are no locations to submit to at this time.
Please try again later.
Please fill in the below form with details about your restaurant -
All fields are required.
<%=PARAM.ErrorHTML%>
 
Restaurant " onkeyup="javascript: copyFileNameText('clink_fldlinkname','clink_fldpagename')" onchange="javascript: copyFileNameText('clink_fldlinkname','clink_fldpagename')" />
Address " />
City " />
State " />
Zip " />
Phone " />
URL  HTTP:// " />
Restaurant Description
" /> Characters left for Description
Location <%=CONFIG.Setting("AllowTopCategorySub")%>
Contact Name " />
Contact Email " />
  Submit Your Restaurant
<% '--------------------------- 'Clean Up '--------------------------- set CLASS_cLink = nothing set CLASS_cCategory = nothing set CLASS_cEmail = nothing set CLASS_cEmailTemplate = nothing %>