<% '*********************************************************************** '** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved '** '** By using this program, you are agreeing to the terms of the '** GNU General Public License. '** '** This program is free software; you can redistribute it and/or '** modify it under the terms of the GNU General Public License '** as published by the Free Software Foundation; either version 2 '** of the License, or any later version. '** '** All copyright notices regarding MaxWebPortal must remain intact '** in the scripts and in the outputted HTML. '** The "powered by" text/logo with a link back to '** http://www.maxwebportal.com in the footer of the pages MUST '** remain visible when the pages are viewed on the internet or intranet. '** '** Support can be obtained from support forums at: '** http://www.maxwebportal.com '** '** Email: maxwebportal@hotmail.com '** ICQ: 148111300 '*********************************************************************** '** This Page Contains source code of Snitz Forums 2000 '*********************************************************************** '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %>
 Home
 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 '## Forum_SQL strSql = "UPDATE " & strTablePrefix & "CONFIG " strSql = strSql & " SET C_STRMOVETOPICMODE = " & Request.Form("strMoveTopicMode") & "" strSql = strSql & ", C_STRIPLOGGING = " & Request.Form("strIPLogging") & "" strSql = strSql & ", C_STRPRIVATEFORUMS = " & Request.Form("strPrivateForums") & "" strSql = strSql & ", C_STRSHOWMODERATORS = " & Request.Form("strShowModerators") & "" strSql = strSql & ", C_STRALLOWFORUMCODE = " & Request.Form("strAllowForumCode") & "" strSql = strSql & ", C_STRIMGINPOSTS = " & Request.Form("strIMGInPosts") & "" strSql = strSql & ", C_STRALLOWHTML = " & Request.Form("strAllowHTML") & "" strSql = strSql & ", C_STRHOTTOPIC = " & Request.Form("strHotTopic") & "" if (Request.Form("strHotTopic") = "1" and strHotTopic = "1") or (Request.Form("strHotTopic") = "1" and strHotTopic = "0") then strSql = strSql & ", C_INTHOTTOPICNUM = " & Request.Form("intHotTopicNum") & "" end if strSql = strSql & ", C_STRICONS = " & Request.Form("strIcons") & "" strSql = strSql & ", C_STRSECUREADMIN = " & Request.Form("strSecureAdmin") & "" strSql = strSql & ", C_STRNOCOOKIES = " & Request.Form("strNoCookies") & "" strSql = strSql & ", C_STREDITEDBYDATE = " & Request.Form("strEditedByDate") & "" strSql = strSql & ", C_STRSHOWSTATISTICS = " & Request.Form("strShowStatistics") & "" strSql = strSql & ", C_STRSHOWPAGING = " & Request.Form("strShowPaging") & "" strSql = strSql & ", C_STRSHOWTOPICNAV = " & Request.Form("strShowTopicNav") & "" strSql = strSql & ", C_STRPAGESIZE = " & Request.Form("strPageSize") & "" strSql = strSql & ", C_STRPAGENUMBERSIZE = " & Request.Form("strPageNumberSize") & "" strSql = strSql & ", C_STRFLOODCHECK = " & Request.Form("strFloodCheck") & "" strSql = strSql & ", C_STRFLOODCHECKTIME = " & Request.Form("strFloodCheckTime") & "" strSql = strSql & ", C_STRQUICKREPLY = " & Request.Form("strQuickReply") & "" strSql = strSql & " WHERE CONFIG_ID = " & 1 my_Conn.Execute (strSql) Application(strCookieURL & "ConfigLoaded") = "" %>

    Feature Configuration Updated!

    Back To Admin Home

    <% else %>

    There Was A Problem With Your Details

      <% =Err_Msg %>

    >Go Back To Enter Data

    <% end if %> <% else %>
    Feature Configuration
    Restrict Moderators to  
    moving their own 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: >
    Show Quick Reply Box:  On: "0" then Response.Write("checked") %>> Off: >
    Flood Check:  On: "0" then Response.Write(" checked") %>> Off: >
    Items per page:  ">
    Pagenumbers per row:  ">
    <% end if %> <% Else %> <% Response.Redirect "admin_login.asp" %> <% End IF %>