<% '--------------------------- '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 & "
" response.Redirect(CONFIG.Setting("URL_SiteRoot")&"/confirmation.asp?message="&server.URLEncode(contact_brokenlink_message)) 'If Not else 'Usually do nothing, as the error message will display lower. end if else CLASS_cLink.LoadFromID(PARAM.ID) 'Load Template CLASS_cEmailTemplate.LoadFromTemplateName("Broken Link") CLASS_cEmail.EmailSubject = CLASS_cEmailTemplate.subject&" "&CLASS_cLink.url CLASS_cEmail.EmailBody = "There appears to be a broken Link for: "& CLASS_cLink.url end if '--------------------------- 'MAIN '--------------------------- %>
" method="post">
Report Broken Link
<%=PARAM.ErrorHTML%>
Email From " />
Subject " name="cemail_fldemailsubject" size="88" maqxlength="255" id="cemail_fldemailsubject" class="mytextreadonly" />
Additional Comments
  Send Message
<% '--------------------------- 'Clean Up '--------------------------- set CLASS_cEmail = nothing set CLASS_cEmailTemplate = nothing set CLASS_cLink = nothing set CLASS_cCategory = nothing %>