<%printReplies=true pagetoemail=true%><%=selectedPage.showTitle%><%if not isLeeg(selectedPage.sApplication) then Response.End%><%if not isLeeg(selectedPage.sApplication) then Response.End dim mailSent, trimEmail mailSent=false if Request.Form ("btnAction")="sendPage" then trimEmail=trim(Request.Form("sEmail")) checkCSRF() session("QS_CMS_email")=trimEmail ' Check for security image If LCase(session("CAPTCHA")) <> LCase(Left(Request.Form("CAPTCHA"),4)) or Request.Form("CAPTCHA")="" Then ' Add mandatory error if security image was not correct message.AddError("err_captcha") elseif not CheckEmailSyntax(trimEmail) then 'geen email ingevuld! message.AddError("err_email") else dim mailBody, mailHeader, mailFooter if isleeg(pagetoemailbody) then 'header mailHeader=""& pageTitle &""& css() &"" mailHeader=mailHeader&"
" 'body mailBody="" & pageTitle & "
" & pagebody 'footer mailFooter="
" mailbody=mailHeader&mailBody&mailFooter else mailbody=pagetoemailbody end if dim pageEMail set pageEMail=new cls_mail_message pageEMail.receiver=trimEmail pageEMail.subject=pageTitle & " " & l("on") & " " & customer.sUrl pageEMail.body=mailbody pageEMail.send set pageEMail=nothing mailSent=true end if end if%><%if mailSent then%>
<%=l("pageIsSent")%>
">
<%else%>
<%=QS_secCodeHidden%>
<%=l("thePage")%> '<%=pageTitle%> <%=l("willBeSent")%>
<%=l("email")%>:*">
<%=l("captcha")%>:* CAPTCHA
 (*) <%=l("mandatory")%>
 " class="button">
<%=message.showAlert()%><%end if%><%cleanUPASP%>