EzASPSite Scheme

<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** EzASPSite™ '** '** Copyright 2003-2004 VSBrown All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** and use it both privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to EzASPSite™ and Powered By EzASPSite™ link must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** No official support is available for EzASPSite™ but you may post support questions at: '** http://www.ezaspsite.com/forum '** '**************************************************************************************** %> EzASPSite Scheme <% Dim strMode Dim intschemeID 'Global on Each Page '--------------------------------------------------------------------------------- Dim strschemeName 'schemes name Dim strBgColour 'Forum page colour Dim strBgImage 'Forum bacground image path Dim strTextColour 'Text colour Dim strNavSpacer 'Navigation sepporator in bread crumb navigation 'Avatar Size '--------------------------------------------------------------------------------- Dim intAvatarHeight 'Avatar hieght Dim intAvatarWidth 'Avatar width 'Table colours '--------------------------------------------------------------------------------- Dim strTableColour 'Table colour Dim strTableBgImage 'Table background image path Dim strTableBgColour 'Table background colour Dim strTableBorderColour 'Table border colour Dim strTableVariableWidth 'Variable table size Dim strTableTitleColour 'Table title colour Dim strTableTitleBgImage 'Table background image path Dim strTableTitleColour2 'Colour of second title if more than one title in a table Dim strTableTitleBgImage2 'Background image path if more than one title in a table Dim strTableEvenRowColour 'Even table row colour Dim strTableOddRowColour 'Odd table row colour Dim strTableBottomRowColour 'This is the bottom row colour for things like buttons on forms 'Posts table colours (forum_posts.asp) '--------------------------------------------------------------------------------- Dim strTablePostsColour 'Posts table colour Dim strTablePostsBgImage 'Posts table background image path Dim strTablePostsBgColour 'Posts table background colour Dim strTablePostsBorderColour 'Posts table border colour Dim strTablePostsVariableWidth 'Posts variable table size Dim strTablePostsTitleColour 'Posts table title colour Dim strTablePostsTitleBgImage 'Posts table background image path Dim strTablePostsEvenRowColour 'Posts even post background colour Dim strTablePostsOddRowColour 'Posts odd posts background colour Dim strTablePostsSideEvenRowColour 'Posts even side post background colour Dim strTablePostsSideOddRowColour 'Posts odd side posts background colour Dim strTablePostsSeporatorColour 'Colour of the table row that sepporates the posts Dim strTableQuoteBorderColour 'Quoted Posts table border colour (This is quotes within a post) Dim strTableQuoteColour 'Quoted Posts table colour 'Poll table colours (poll_display_inc.asp) '--------------------------------------------------------------------------------- Dim strTablePollColour 'Poll table colour Dim strTablePollBgImage 'Poll table background image path Dim strTablePollBgColour 'Poll table background colour Dim strTablePollBorderColour 'Poll table border colour Dim strTablePollVariableWidth 'Poll variable table size Dim strTablePollTitleColour 'Poll table title colour Dim strTablePollTitleBgImage 'Poll table background image path Dim strTablePollColumnHeadingColour 'Poll second title row colour Dim strTablePollColumnHeadingBgImage 'Poll second title row background image path Dim strTablePollEvenRowColour 'Poll even post background colour Dim strTablePollOddRowColour 'Poll odd posts background colour Dim strTablePollBottomRowColour 'Poll bottom row colour, the one displaying the cast vote button and vote status 'Private Msg display box (pm_show_message.asp) '--------------------------------------------------------------------------------- Dim strTablePMBgColour 'PM table colour Dim strTablePMBgImage 'PM table background image path Dim strTablePMBoxBgColour 'PM table background colour Dim strTablePMBoxSideBgColour 'PM table side background colour Dim strTablePMTitleColour 'PM table title colour Dim strTablePMTitleBgImage 'PM table background image path 'Profile table colours (poll_display_inc.asp) '--------------------------------------------------------------------------------- Dim strTableProfileColour 'Profile table colour Dim strTableProfileBgImage 'Profile table background image path Dim strTableProfileBgColour 'Profile table background colour Dim strTableProfileBorderColour 'Profile table border colour Dim strTableRowProfileColour 'Profile row background colour Dim strTableProfileTitleColour 'Profile table title colour Dim strTableProfileTitleBgImage 'Profile table background image path 'Misc '--------------------------------------------------------------------------------- Dim strIETextBoxColour 'Colour of the IE WYSIWYG Post Editor Box Dim strImagePath 'Path to the forum images Dim strTitleImage Dim strNoCalendarDayColor Dim strPastCalendarDayColor Dim strCurrentCalendarDayColor Dim strFutureCalendarDayColor Dim strEventCalendarDayColor Dim StyleSheetPathName Dim sitebgcolor 'This Is The Site Background Color Dim headercolor 'This Is The Site Header Color Dim minimenucolor 'This Is The Mini Horizontal Menu Background Color Dim menucolor 'This Is The Site Navigation Menu Color Dim pagecolor 'This Is The Site Main Contents Color Dim footercolor 'This Is The Site Footer Contents Color Dim bordercolor 'This Is The Site Border Color strMode = Request.QueryString("mode") intSchemeID = Request.QueryString("scheme_id") 'Response.Write("

") 'Response.Write("

Scheme Administration
") 'Response.Write("Return to the the Administration Menu
") 'Response.Write("
") 'Response.Write("Using this facility you can manage schemes available to your users.

") 'Response.Write("

") Select Case strMode Case "create" Response.Write("

") Response.Write("

Create Scheme
") Response.Write("Use the form below to create a new scheme.
") Response.Write("When entering colors (for which you should use hexadecimal notation) you must include the initial #, i.e.. #CCCCCC is valid, CCCCCC is not.
") Response.Write("Return to the the Administration Menu
") Response.Write("

") 'Response.Write("") 'Response.Write(" ") 'Response.Write("

") 'Response.Write("

Create Scheme

") 'Response.Write("Use the form below to create a new scheme. When entering colors (for which you should use hexadecimal notation) you must include the initial #, i.e.. #CCCCCC is valid, CCCCCC is not") 'Response.Write("

") Case "edit" Response.Write("

") Response.Write("

Edit Scheme
") Response.Write("Return to the the Administration Menu
") Response.Write("Use the form below to edit an existing scheme. When entering colors (for which you should use hexadecimal notation) you must include the initial #, i.e.. #CCCCCC is valid, CCCCCC is not.
") Response.Write("

") 'Response.Write("") 'Response.Write(" ") 'Response.Write("

") 'Response.Write("

Edit scheme

") 'Response.Write("Use the form below to edit an existing scheme. When entering colors (for which you should use hexadecimal notation) you must include the initial #, i.e.. #CCCCCC is valid, CCCCCC is not") 'Response.Write("

") Set rsCommon = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblScheme.* FROM tblScheme WHERE tblScheme.Scheme_ID = " & intSchemeID rsCommon.Open strSQL, strCon If NOT rsCommon.EOF Then strBgColour = rsCommon("strBgColour") strBgImage = rsCommon("strBgImage") strTextColour = rsCommon("strTextColour") strNavSpacer = rsCommon("strNavSpacer") intAvatarHeight = rsCommon("intAvatarHeight") intAvatarWidth = rsCommon("intAvatarWidth") strTableColour = rsCommon("strTableColour") strTableBgImage = rsCommon("strTableBgImage") strTableBgColour = rsCommon("strTableBgColour") strTableBorderColour = rsCommon("strTableBorderColour") strTableVariableWidth = rsCommon("strTableVariableWidth") strTableTitleColour = rsCommon("strTableTitleColour") strTableTitleBgImage = rsCommon("strTableTitleBgImage") strTableTitleColour2 = rsCommon("strTableTitleColour2") strTableTitleBgImage2 = rsCommon("strTableTitleBgImage2") strTableEvenRowColour = rsCommon("strTableEvenRowColour") strTableOddRowColour = rsCommon("strTableOddRowColour") strTableBottomRowColour = rsCommon("strTableBottomRowColour") strTablePostsColour = rsCommon("strTablePostsColour") strTablePostsBgImage = rsCommon("strTablePostsBgImage") strTablePostsBgColour = rsCommon("strTablePostsBgColour") strTablePostsBorderColour = rsCommon("strTablePostsBorderColour") strTablePostsVariableWidth = rsCommon("strTablePostsVariableWidth") strTablePostsTitleColour = rsCommon("strTablePostsTitleColour") strTablePostsTitleBgImage = rsCommon("strTablePostsTitleBgImage") strTablePostsEvenRowColour = rsCommon("strTablePostsEvenRowColour") strTablePostsOddRowColour = rsCommon("strTablePostsOddRowColour") strTablePostsSideEvenRowColour = rsCommon("strTablePostsSideEvenRowColour") strTablePostsSideOddRowColour = rsCommon("strTablePostsSideOddRowColour") strTablePostsSeporatorColour = rsCommon("strTablePostsSeporatorColour") strTableQuoteBorderColour = rsCommon("strTableQuoteBorderColour") strTableQuoteColour = rsCommon("strTableQuoteColour") strTablePollColour = rsCommon("strTablePollColour") 'Poll table colour strTablePollBgImage = rsCommon("strTablePollBgImage") 'Poll table background image path strTablePollBgColour = rsCommon("strTablePollBgColour") 'Poll table background colour strTablePollBorderColour = rsCommon("strTablePollBorderColour") 'Poll table border colour strTablePollVariableWidth = rsCommon("strTablePollVariableWidth") 'Poll variable table size strTablePollTitleColour = rsCommon("strTablePollTitleColour") 'Poll table title colour strTablePollTitleBgImage = rsCommon("strTablePollTitleBgImage") 'Poll table background image path strTablePollColumnHeadingColour = rsCommon("strTablePollColumnHeadingColour") 'Poll second title row colour strTablePollColumnHeadingBgImage = rsCommon("strTablePollColumnHeadingBgImage") 'Poll second title row background image path strTablePollEvenRowColour = rsCommon("strTablePollEvenRowColour") 'Poll even post background colour strTablePollOddRowColour = rsCommon("strTablePollOddRowColour") 'Poll odd posts background colour strTablePollBottomRowColour = rsCommon("strTablePollBottomRowColour") 'Poll bottom row colour, the one displaying the cast vote button and vote status strTablePMBgColour = rsCommon("strTablePMBgColour") 'PM table colour strTablePMBgImage = rsCommon("strTablePMBgImage") 'PM table background image path strTablePMBoxBgColour = rsCommon("strTablePMBoxBgColour") 'PM table background colour strTablePMBoxSideBgColour = rsCommon("strTablePMBoxSideBgColour") 'PM table side background colour strTablePMTitleColour = rsCommon("strTablePMTitleColour") 'PM table title colour strTablePMTitleBgImage = rsCommon("strTablePMTitleBgImage") 'PM table background image path strTableProfileColour = rsCommon("strTableProfileColour") 'Profile table colour strTableProfileBgImage = rsCommon("strTableProfileBgImage") 'Profile table background image path strTableProfileBgColour = rsCommon("strTableProfileBgColour") 'Profile table background colour strTableProfileBorderColour = rsCommon("strTableProfileBorderColour") 'Profile table border colour strTableRowProfileColour = rsCommon("strTableRowProfileColour") 'Profile row background colour strTableProfileTitleColour = rsCommon("strTableProfileTitleColour") 'Profile table title colour strTableProfileTitleBgImage = rsCommon("strTableProfileTitleBgImage") 'Profile table background image path strIETextBoxColour = rsCommon("strIETextBoxColour") 'Colour of the IE WYSIWYG Post Editor Box strImagePath = rsCommon("strImagePath") 'Path to the forum images StyleSheetPathName = rsCommon("StyleSheetPathName") strTitleImage = rsCommon("strTitleImage") strNoCalendarDayColor = rsCommon("strNoCalendarDayColor") strPastCalendarDayColor = rsCommon("strPastCalendarDayColor") strCurrentCalendarDayColor = rsCommon("strCurrentCalendarDayColor") strFutureCalendarDayColor = rsCommon("strFutureCalendarDayColor") strEventCalendarDayColor = rsCommon("strEventCalendarDayColor") strSchemeName = rsCommon("SchemeName") sitebgcolor = rsCommon("sitebgcolor") headercolor = rsCommon("headercolor") minimenucolor = rsCommon("minimenucolor") menucolor = rsCommon("menucolor") pagecolor = rsCommon("pagecolor") footercolor = rsCommon("footercolor") bordercolor = rsCommon("bordercolor") End If End Select %>

<% Select Case strMode Case "create" Response.Write("Create a new scheme") Case "edit" Response.Write("Edit an existing scheme") End Select %>
Globals on each page
Scheme Name
Global page color
Global background image
Text color
Navigation sepporator in bread crumb navigation ie; :, ::
Avatars size
Avatar height
Avatar width
Table Colors
Table Color
Table background image path
Table background color
Table border color
Variable table size
Table title color
Table background image path
Colour of second title if more than one title in a table
Background image path if more than one title in a table
Even table row color
Odd table row color
Bottom row color for buttons on forms
Posts table colors (forum_posts.asp)
Posts table color
Posts table background image path
Posts table background color
Posts table border color
Posts variable table size
Posts table title color
Posts table background image path
Posts even post background color
Posts odd posts background color
Posts even side post background color
Posts odd side posts background color
Color of the table row that sepporates the posts
Quoted Posts table border color (This is quotes within a post)
Quoted Posts table color
Poll table colors (poll_display_inc.asp)
Poll table color
Poll table background image path
Poll table background color
Poll table border color
Poll variable table size
Poll table title color
Poll table background image path
Poll second title row color
Poll second title row background image path
Poll even post background color
Poll odd posts background color
Poll bottom row color, the one displaying the cast vote button and vote status
Private Msg display box (pm_show_message.asp)
PM table color
PM table background image path
PM table background color
PM table side background color
PM table title color
PM table background image path
Profile table colors (pop_up_profile.asp)
Profile table color
Profile table background image path
Profile table background color
Profile table border color
Profile row background color
Profile table title color
Profile table background image path
Calendar
Calendar square color for a 'No day'
Calendar square color for a 'Past day'
Calendar square color for the 'Current Day'
Calendar square color for a 'Future day'
Calendar square color for a 'Day Color'?
Misc.
Color of the IE WYSIWYG Post Editor Box
Path to the forum images
Path to CSS file
Main Site Colors
Site Background Color This Is The Site Background Color
Site Header Color This Is The Site Header Color
Site Mini Menu Color This Is The Mini Horizontal Menu Background Color
Site Menu Color This Is The Site Navigation Menu Color
Site Page Color This Is The Site Main Contents Color
Site Footer Color This Is The Site Footer Contents Color
Site Border Color This Is The Site Modules Border Color