<% 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("strIMGInPosts") = "1" and Request.Form("strAllowForumCode") = "0" then Err_Msg = Err_Msg & "
  • Forum Code Must be Enabled in order to Enable Images
    • " end if if (Request.Form("strHotTopic") = "1" and strHotTopic = "1") or (Request.Form("strHotTopic") = "1" and strHotTopic = "0") then if Request.Form("intHotTopicNum") = "" then Err_Msg = Err_Msg & "
  • You Must Enter a Hot Topic Number
    • " end if if left(Request.Form("intHotTopicNum"), 1) = "-" then Err_Msg = Err_Msg & "
  • You Must Enter a positive Hot Topic Number
    • " end if if left(Request.Form("intHotTopicNum"), 1) = "+" then Err_Msg = Err_Msg & "
  • You Must Enter a positive Hot Topic Number without the +
    • " 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 %>
    <% ' DEM --> Start of Code added for Topic Moderation %> <% ' DEM --> End of Code added for Topic Moderation ' DEM --> Start of Code added for Subscription Services %> <% ' DEM --> End of Code added for Subscription Services.... %>
    Feature Configuration
    Restrict Moderators to  
    moving their own topics:         		 On: "0" then Response.Write(" checked") %>> Off: >
    AutoEmail author  
    when moving topics:         		 On: "0" then Response.Write(" checked") %>> Off: >
    IP Logging:  On: "0" then Response.Write(" checked") %>> Off: >
    Private Forums:  On: "0" then Response.Write(" checked") %>> Off: >
    Show Moderators:  On: "0" then Response.Write(" checked") %>> Off: >
    Allow Forum Code:  On: "0" then Response.Write(" checked") %>> Off: >
    Images in Posts:  On: "0") then Response.Write("checked")%>> Off: >
    Allow HTML:  On: "0" then Response.Write(" checked") %>> Off: >
    Secure Admin Mode:  On: "0" then Response.Write("checked") %>> Off: >
    Non-Cookie Mode:  On: "0" then Response.Write("checked") %>> Off: >
    Edited By on Date:  On: "0" then Response.Write("checked") %>> Off: >
    Hot Topics:  On: "0" or lcase(HotTopic) <> "0") then Response.Write("checked") %>> Off: > ">
    Icons:  On: "0" or lcase(Smiles) <> "0") then Response.Write("checked") %>> Off: >
    Detailed Statistics:  On: "0" then Response.Write("checked") %>> Off: >
    Show Quick Paging:  On: "0" then Response.Write("checked") %>> Off: >
    Show Prev / Next Topic:  On: "0" then Response.Write("checked") %>> Off: >
    Allow Topic Moderation  On: "0" then Response.Write("checked") %>> Off: >
    Highest level of
    Subscription:     
    Items per page:  ">
    Pagenumbers per row:  ">
    <% end if WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) End IF %>