% ' ******************************************************************* ' Application Module: IBEEM catch all email ' ******************************************************************* ' DATE INITIALS CHANGES ' 01/01/2002 MT Initial Version ' 09/12/2004 MT Moved to stable code libary ' 28/02/2005 MT Add more database, emails ' 01/08/2005 MT Upgraded email module ' 16/06/2006 MT Upgraded email module all catch formatted ' ******************************************************************** ' DESCRIPTION: This module will format all form values. ' ******************************************************************** ' VARS: request("sendemail")=1 ' REQUIREMENTS: CDONTS ' ******************************************************************** ' ********************************* ' START - Catch all email formatted ' ********************************* if request("sendemail")=1 then if IsEmpty(Session("ASPCAPTCHA")) or Trim(Session("ASPCAPTCHA")) = "" then Response.Write "" else Dim TestValue : TestValue = Trim(Request.Form("txtCaptcha")) TestValue = UCase(TestValue) if StrComp(TestValue, Trim(Session("ASPCAPTCHA")), 1) = 0 then mailbody="" mailbody=mailbody & "
" mailbody=mailbody & "