%
If (Request.ServerVariables("REQUEST_METHOD") = "POST") OR (Request.QueryString.Count >= 4) then
Dim SessionCAPTCHA, CheckCAPTCHA, HDWCaptchaBack, HDWname
SessionCAPTCHA = Trim(CStr(Session("HDWCAPTCHA")))
Session("CAPTCHA") = ""
HDWCaptchaBack = Request.Form("hdwfail")
If (HDWCaptchaBack = "") Then HDWCaptchaBack = Request.QueryString("hdwfail")
For Each HDWname in Request.QueryString
Response.Cookies("hdw" & HDWname) = Request.QueryString(HDWname)
Next
For Each HDWname in Request.Form
Response.Cookies("hdw" & HDWname) = Request.Form(HDWname)
Next
For Each HDWname in Request.Cookies
If (Left(name,3) = "hdw") AND (Request.QueryString(Right(HDWname,Len(HDWname)-3)) = "") AND (Request.Form(Right(HDWname,Len(HDWname)-3)) = "") Then
Response.Cookies("hdw_" & HDWname) = ""
End If
Next
If (Len(SessionCAPTCHA) < 1) OR ((Request.Form("hdcaptcha") = "") AND (Request.QueryString("hdcaptcha") = "")) OR ((SessionCAPTCHA <> CStr(Request.Form("hdcaptcha"))) AND (SessionCAPTCHA <> CStr(Request.QueryString("hdcaptcha")))) Then Response.Redirect HDWCaptchaBack
End If
%>