<% '################################################################################# '## Snitz Forums 2000 v3.4.07 '################################################################################# '## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## 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 (at your option) 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 our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if Session(strCookieURL & "Approval") <> "15916941253" then scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Font/Table Color Code Configuration
" & vbNewLine if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" if Request.Form("strTopicWidthLeft") = "" then Err_Msg = Err_Msg & "
  • You Must enter a value for the Topic Left Column Width
    • " end if if Request.Form("strTopicWidthRight") = "" then Err_Msg = Err_Msg & "
  • You Must enter a value for the Topic Right Column Width
    • " 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") = "" Response.Write "

    Configuration Posted!

    " & vbNewLine & _ " " & vbNewLine & _ "

    Congratulations!

    " & vbNewLine & _ "

    Back To Admin Home

    " & vbNewLine else Response.Write "

    There Was A Problem With Your Details

    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
      " & Err_Msg & "
    " & vbNewLine & _ "

    Go Back To Enter Data

    " & vbNewLine end if else Response.Write "
    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    Font/Table Color Code Configuration
    Font Face Type: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & " 
    Default Font Size: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Header Font Size: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Footer Font Size: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Base Background Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Default Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Visited Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Visited Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "" & vbNewLine & _ "
    Active Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Active Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "" & vbNewLine & _ "
    Hover Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Hover Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Header Background Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Header Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Category Background Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Category Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    First Cell Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    First Alternating Cell Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Second Alternating Cell Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Visited Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Visited Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "" & vbNewLine & _ "
    In Forum Active Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Active Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "" & vbNewLine & _ "
    In Forum Hover Link Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    In Forum Hover Link Decoration: " & vbNewLine & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Table Border Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Pop-Up Table Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Pop-Up Table Border Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    New Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    HighLight Font Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Search HighLight Color: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Page Background Image URL: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & " 
    Table Size Configuration
    Topic Left Column Width: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Topic NOWRAP Left: " & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Topic Right Column Width: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    Topic NOWRAP Right: " & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
    " & vbNewLine & _ "
    " & vbNewLine & _ "
    " & vbNewLine end if WriteFooter Response.End %>