<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
 All Forums
 Admin Section
 Feature Configuration
<% if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" if (Request.Form("strBadWordFilter") = "1" and strBadWordFilter = "1") or (Request.Form("strBadWordFilter") = "1" and strBadWordFilter = "0") then if Request.Form("strBadWords") = "" then Err_Msg = Err_Msg & "
  • You Must Enter Words for the Bad Word Filter to Work
    • " end if end if if Err_Msg = "" then for each key in Request.Form if left(key,3) = "str" or left(key,3) = "int" then strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring")) end if next Application(strCookieURL & "ConfigLoaded") = "" %>

    Configuration Posted!

    Congratulations!

    Back To Admin Home

    <% else %>

    There Was A Problem With Your Details

      <% =Err_Msg %>

    >Go Back To Enter Data

    <% end if %> <% else %>
    Bad Word Feature Configuration
    Bad Word Filter:  On: "0" then Response.Write("checked")%>> Off: > ">
    <% end if WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) End IF %>