Fixed problems with URLEncoding:
<%If Request.ServerVariables("QUERY_STRING") <> "" then
strChkQuery = UCase(URLDecode(Request.ServerVariables("QUERY_STRING")))
If Instr(strChkQuery,"FORUM_MEMBERS") OR Instr(strChkQuery,"UNION") _
OR Instr(strChkQuery,"SELECT") OR Instr(strChkQuery,"M_PASSWORD") _
OR Instr(strChkQuery,"M_LEVEL") oR Instr(strChkQuery,"M_EMAIL") Then
Response.Redirect("http://www.bored.com")
Response.End
End If
End If
%>
<script language=JavaScript RUNAT=SERVER>
function URLDecode(psEncodeString)
{
return unescape(psEncodeString);
}
</script>