Not a very serious one, but the code in line#1171-1172, where now is:
if strPrivateForums = "1" then
strSql = strSql & ", " & Request.Form("AuthType") & ""
should be
if strPrivateForums = "1" then
strSql = strSql & ", " & chkString(Request.Form("AuthType"), "SQLString") & ""
<