<% 'Initialise variables Dim blnCAPTCHAabout '***** Change this if to false if you do NOT want the CAPTCHA code to be case sensitive ***** Const blnCAPTCHAcaseSensitive = true '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Const strCAPTCHAversion = "2.01" blnCAPTCHAabout = false blnCAPTCHAabout = true '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Initialise variables Dim blnCAPTCHAcodeCorrect 'Set to true if the CAPTCHA code entered is correct Dim strCAPTCHAenteredCode 'Holds the code entered by the user 'Initilise the security code bulleon to false blnCAPTCHAcodeCorrect = false 'Check CAPTCHA ocde is correct (case sensitive) If blnCAPTCHAcaseSensitive Then If Session("strSecurityCode") = Request("securityCode") AND Session("strSecurityCode") <> "" Then blnCAPTCHAcodeCorrect = true 'Check CAPTCHA ocde is correct (non-case sensitive) Else If LCase(Session("strSecurityCode")) = LCase(Request("securityCode")) AND Session("strSecurityCode") <> "" Then blnCAPTCHAcodeCorrect = true End If 'Reset the security code session variable so it can not be reused 'Clear session variable Session.Contents.Remove("strSecurityCode") If Request("securityCode") <> "" Then If blnCAPTCHAcodeCorrect Then Response.write "Code is Correct!" Else Response.write "Code is Wrong!" End If End If %>