<% '--------------------------- 'Variables and Class Instantiation '--------------------------- dim message set CLASS_cEmail = new CEmail set CLASS_cEmailtemplate = new CEmailtemplate set CLASS_cLink = new CLink '--------------------------- 'Actions '--------------------------- if PARAM.state = "post" then 'Validate CLASS_cEmail.FillFromForm("cemail_fld") PARAM.ErrorHTML = CLASS_cEmail.Validate("tell friend") 'If Validated, then Save If PARAM.ErrorHTML = "True" then 'Load Template CLASS_cEmailTemplate.LoadFromTemplateName("Tell Friend") 'Setup CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent") CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName") CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat") 'Formulate Email CLASS_cEmail.EmailFrom=CLASS_cEmail.EmailFrom CLASS_cEmail.EmailTo=CLASS_cEmail.EmailTo CLASS_cEmail.EmailBody=CLASS_cEmailTemplate.header&CLASS_cCast.cast(CLASS_cEmail.EmailBody,"str","screen") & CLASS_cEmailTemplate.footer 'Send an email to administrator CLASS_cEmail.sendEmail 'Save CLASS_cEmail.storedata() 'Confirmation Message message = message & "
" message = message & "Thank you for telling your friend.

" message = message & "Your e-mail has been successfully sent.

" message = message & "
" 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 'Load Template CLASS_cLink.LoadFromID(PARAM.ID) CLASS_cEmailTemplate.LoadFromTemplateName("Tell Friend") CLASS_cEmail.EmailSubject = CLASS_cEmailTemplate.subject&" "&CLASS_cLink.url CLASS_cEmail.EmailBody = "Check this out: "&CLASS_cLink.url&vbcrlf&vbcrlf CLASS_cEmail.EmailBody = CLASS_cEmail.EmailBody &"I found it on the restaurants page here: "&CONFIG.Setting("URL_SiteRoot") end if '--------------------------- 'MAIN '--------------------------- %>
" method="post">
Send To A Friend
<%=PARAM.ErrorHTML%>
Email From " />
Email To " />
Subject " name="cemail_fldemailsubject" size="88" maxlength="255" id="cemail_fldemailsubject" class="mytext" />
Message
  Send Message
<% '--------------------------- 'Clean Up '--------------------------- set CLASS_cEmail = nothing set CLASS_cEmailTemplate = nothing set CLASS_cLink = nothing %>