<%
'****************************************************************************************
'** 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
'**
'****************************************************************************************
Dim strMode
Dim intschemeID
Dim strschemeImportFileName
'Global on Each Page
'---------------------------------------------------------------------------------
Dim strschemeName 'scheme 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 backgroud image path
Dim strTableBgColour 'Table backgroud colour
Dim strTableBorderColour 'Table border colour
Dim strTableVariableWidth 'Variable table size
Dim strTableTitleColour 'Table title colour
Dim strTableTitleBgImage 'Table backgroud 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 backgroud image path
Dim strTablePostsBgColour 'Posts table backgroud colour
Dim strTablePostsBorderColour 'Posts table border colour
Dim strTablePostsVariableWidth 'Posts variable table size
Dim strTablePostsTitleColour 'Posts table title colour
Dim strTablePostsTitleBgImage 'Posts table backgroud image path
Dim strTablePostsEvenRowColour 'Posts even post background colour
Dim strTablePostsOddRowColour 'Posts odd posts backgroud colour
Dim strTablePostsSideEvenRowColour 'Posts even side post background colour
Dim strTablePostsSideOddRowColour 'Posts odd side posts backgroud 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 backgroud image path
Dim strTablePollBgColour 'Poll table backgroud colour
Dim strTablePollBorderColour 'Poll table border colour
Dim strTablePollVariableWidth 'Poll variable table size
Dim strTablePollTitleColour 'Poll table title colour
Dim strTablePollTitleBgImage 'Poll table backgroud image path
Dim strTablePollColumnHeadingColour 'Poll second title row colour
Dim strTablePollColumnHeadingBgImage 'Poll second title row backgroud image path
Dim strTablePollEvenRowColour 'Poll even post background colour
Dim strTablePollOddRowColour 'Poll odd posts backgroud 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 backgroud image path
Dim strTablePMBoxBgColour 'PM table backgroud colour
Dim strTablePMBoxSideBgColour 'PM table side backgroud colour
Dim strTablePMTitleColour 'PM table title colour
Dim strTablePMTitleBgImage 'PM table backgroud image path
'Profile table colours (poll_display_inc.asp)
'---------------------------------------------------------------------------------
Dim strTableProfileColour 'Profile table colour
Dim strTableProfileBgImage 'Profile table backgroud image path
Dim strTableProfileBgColour 'Profile table backgroud colour
Dim strTableProfileBorderColour 'Profile table border colour
Dim strTableRowProfileColour 'Profile row backgroud colour
Dim strTableProfileTitleColour 'Profile table title colour
Dim strTableProfileTitleBgImage 'Profile table backgroud 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
strMode = Request.Form("mode")
strschemeImportFileName = Request.Form("selectImportscheme")
If strMode = "" Then
strMode = Request.QueryString("mode")
End If
intschemeID = Request.Form("scheme_id")
If intschemeID = "" Then
intschemeID = Request.QueryString("scheme_id")
End If
If strMode = "create" Or strMode = "edit" Then
strBgColour = Request.Form("strBgColour")
strBgImage = Request.Form("strBgImage")
strTextColour = Request.Form("strTextColour")
strNavSpacer = Request.Form("strNavSpacer")
intAvatarHeight = CInt(Request.Form("intAvatarHeight"))
intAvatarWidth = CInt(Request.Form("intAvatarWidth"))
strTableColour = Request.Form("strTableColour")
strTableBgImage = Request.Form("strTableBgImage")
strTableBgColour = Request.Form("strTableBgColour")
strTableBorderColour = Request.Form("strTableBorderColour")
strTableVariableWidth = Request.Form("strTableVariableWidth")
strTableTitleColour = Request.Form("strTableTitleColour")
strTableTitleBgImage = Request.Form("strTableTitleBgImage")
strTableTitleColour2 = Request.Form("strTableTitleColour2")
strTableTitleBgImage2 = Request.Form("strTableTitleBgImage2")
strTableEvenRowColour = Request.Form("strTableEvenRowColour")
strTableOddRowColour = Request.Form("strTableOddRowColour")
strTableBottomRowColour = Request.Form("strTableBottomRowColour")
strTablePostsColour = Request.Form("strTablePostsColour")
strTablePostsBgImage = Request.Form("strTablePostsBgImage")
strTablePostsBgColour = Request.Form("strTablePostsBgColour")
strTablePostsBorderColour = Request.Form("strTablePostsBorderColour")
strTablePostsVariableWidth = Request.Form("strTablePostsVariableWidth")
strTablePostsTitleColour = Request.Form("strTablePostsTitleColour")
strTablePostsTitleBgImage = Request.Form("strTablePostsTitleBgImage")
strTablePostsEvenRowColour = Request.Form("strTablePostsEvenRowColour")
strTablePostsOddRowColour = Request.Form("strTablePostsOddRowColour")
strTablePostsSideEvenRowColour = Request.Form("strTablePostsSideEvenRowColour")
strTablePostsSideOddRowColour = Request.Form("strTablePostsSideOddRowColour")
strTablePostsSeporatorColour = Request.Form("strTablePostsSeporatorColour")
strTableQuoteBorderColour = Request.Form("strTableQuoteBorderColour")
strTableQuoteColour = Request.Form("strTableQuoteColour")
strTablePollColour = Request.Form("strTablePollColour") 'Poll table colour
strTablePollBgImage = Request.Form("strTablePollBgImage") 'Poll table backgroud image path
strTablePollBgColour = Request.Form("strTablePollBgColour") 'Poll table backgroud colour
strTablePollBorderColour = Request.Form("strTablePollBorderColour") 'Poll table border colour
strTablePollVariableWidth = Request.Form("strTablePollVariableWidth") 'Poll variable table size
strTablePollTitleColour = Request.Form("strTablePollTitleColour") 'Poll table title colour
strTablePollTitleBgImage = Request.Form("strTablePollTitleBgImage") 'Poll table backgroud image path
strTablePollColumnHeadingColour = Request.Form("strTablePollColumnHeadingColour") 'Poll second title row colour
strTablePollColumnHeadingBgImage = Request.Form("strTablePollColumnHeadingBgImage") 'Poll second title row backgroud image path
strTablePollEvenRowColour = Request.Form("strTablePollEvenRowColour") 'Poll even post background colour
strTablePollOddRowColour = Request.Form("strTablePollOddRowColour") 'Poll odd posts backgroud colour
strTablePollBottomRowColour = Request.Form("strTablePollBottomRowColour") 'Poll bottom row colour, the one displaying the cast vote button and vote status
strTablePMBgColour = Request.Form("strTablePMBgColour") 'PM table colour
strTablePMBgImage = Request.Form("strTablePMBgImage") 'PM table backgroud image path
strTablePMBoxBgColour = Request.Form("strTablePMBoxBgColour") 'PM table backgroud colour
strTablePMBoxSideBgColour = Request.Form("strTablePMBoxSideBgColour") 'PM table side backgroud colour
strTablePMTitleColour = Request.Form("strTablePMTitleColour") 'PM table title colour
strTablePMTitleBgImage = Request.Form("strTablePMTitleBgImage") 'PM table backgroud image path
strTableProfileColour = Request.Form("strTableProfileColour") 'Profile table colour
strTableProfileBgImage = Request.Form("strTableProfileBgImage") 'Profile table backgroud image path
strTableProfileBgColour = Request.Form("strTableProfileBgColour") 'Profile table backgroud colour
strTableProfileBorderColour = Request.Form("strTableProfileBorderColour") 'Profile table border colour
strTableRowProfileColour = Request.Form("strTableRowProfileColour") 'Profile row backgroud colour
strTableProfileTitleColour = Request.Form("strTableProfileTitleColour") 'Profile table title colour
strTableProfileTitleBgImage = Request.Form("strTableProfileTitleBgImage") 'Profile table backgroud image path
strIETextBoxColour = Request.Form("strIETextBoxColour") 'Colour of the IE WYSIWYG Post Editor Box
strImagePath = Request.Form("strImagePath") 'Path to the forum images
StyleSheetPathName = Request.Form("StyleSheetPathName")
strTitleImage = Request.Form("strTitleImage")
strNoCalendarDayColor = Request.Form("strNoCalendarDayColor")
strPastCalendarDayColor = Request.Form("strPastCalendarDayColor")
strCurrentCalendarDayColor = Request.Form("strCurrentCalendarDayColor")
strFutureCalendarDayColor = Request.Form("strFutureCalendarDayColor")
strEventCalendarDayColor = Request.Form("strEventCalendarDayColor")
strschemeName = Request.Form("strschemeName")
sitebgcolor = Request.Form("sitebgcolor")
headercolor = Request.Form("headercolor")
minimenucolor = Request.Form("minimenucolor")
menucolor = Request.Form("menucolor")
pagecolor = Request.Form("pagecolor")
footercolor = Request.Form("footercolor")
bordercolor = Request.Form("bordercolor")
End If
Select Case strMode
Case "create"
strSQL = "SELECT tblscheme.* FROM tblscheme;"
With rsCommon
.CursorType = 2
.LockType = 3
.Open strSQL, adoCon
.AddNew
.Fields("schemeName") = strschemeName
.Fields("strBgColour") = strBgColour
.Fields("strBgImage") = strBgImage
.Fields("strTextColour") = strTextColour
.Fields("strNavSpacer") = strNavSpacer
.Fields("intAvatarHeight") = intAvatarHeight
.Fields("intAvatarWidth") = intAvatarWidth
.Fields("strTableColour") = strTableColour
.Fields("strTableBgImage") = strTableBgImage
.Fields("strTableBgColour") = strTableBgColour
.Fields("strTableBorderColour") = strTableBorderColour
.Fields("strTableVariableWidth") = strTableVariableWidth
.Fields("strTableTitleColour") = strTableTitleColour
.Fields("strTableTitleBgImage") = strTableTitleBgImage
.Fields("strTableTitleColour2") = strTableTitleColour2
.Fields("strTableTitleBgImage2") = strTableTitleBgImage2
.Fields("strTableEvenRowColour") = strTableEvenRowColour
.Fields("strTableOddRowColour") = strTableOddRowColour
.Fields("strTableBottomRowColour") = strTableBottomRowColour
.Fields("strTablePostsColour") = strTablePostsColour
.Fields("strTablePostsBgImage") = strTablePostsBgImage
.Fields("strTablePostsBgColour") = strTablePostsBgColour
.Fields("strTablePostsBorderColour") = strTablePostsBorderColour
.Fields("strTablePostsVariableWidth") = strTablePostsVariableWidth
.Fields("strTablePostsTitleColour") = strTablePostsTitleColour
.Fields("strTablePostsTitleBgImage") = strTablePostsTitleBgImage
.Fields("strTablePostsEvenRowColour") = strTablePostsEvenRowColour
.Fields("strTablePostsOddRowColour") = strTablePostsOddRowColour
.Fields("strTablePostsSideEvenRowColour") = strTablePostsSideEvenRowColour
.Fields("strTablePostsSideOddRowColour") = strTablePostsSideOddRowColour
.Fields("strTablePostsSeporatorColour") = strTablePostsSeporatorColour
.Fields("strTableQuoteBorderColour") = strTableQuoteBorderColour
.Fields("strTableQuoteColour") = strTableQuoteColour
.Fields("strTablePollColour") =strTablePollColour
.Fields("strTablePollBgImage") = strTablePollBgImage
.Fields("strTablePollBgColour") = strTablePollBgColour
.Fields("strTablePollBorderColour") = strTablePollBorderColour
.Fields("strTablePollVariableWidth") =strTablePollVariableWidth
.Fields("strTablePollTitleColour") = strTablePollTitleColour
.Fields("strTablePollTitleBgImage") = strTablePollTitleBgImage
.Fields("strTablePollColumnHeadingColour") = strTablePollColumnHeadingColour
.Fields("strTablePollColumnHeadingBgImage") =strTablePollColumnHeadingBgImage
.Fields("strTablePollEvenRowColour") = strTablePollEvenRowColour
.Fields("strTablePollOddRowColour") = strTablePollOddRowColour
.Fields("strTablePollBottomRowColour") = strTablePollBottomRowColour
.Fields("strTablePMBgColour") = strTablePMBgColour
.Fields("strTablePMBgImage") = strTablePMBgImage
.Fields("strTablePMBoxBgColour") = strTablePMBoxBgColour
.Fields("strTablePMBoxSideBgColour") = strTablePMBoxSideBgColour
.Fields("strTablePMTitleColour") = strTablePMTitleColour
.Fields("strTablePMTitleBgImage") = strTablePMTitleBgImage
.Fields("strTableProfileColour") = strTableProfileColour
.Fields("strTableProfileBgImage") = strTableProfileBgImage
.Fields("strTableProfileBgColour") =strTableProfileBgColour
.Fields("strTableProfileBorderColour") = strTableProfileBorderColour
.Fields("strTableRowProfileColour") = strTableRowProfileColour
.Fields("strTableProfileTitleColour") = strTableProfileTitleColour
.Fields("strTableProfileTitleBgImage") =strTableProfileTitleBgImage
.Fields("strIETextBoxColour") = strIETextBoxColour
.Fields("strImagePath") = strImagePath
.Fields("strTitleImage") = strTitleImage
.Fields("strNoCalendarDayColor") = strNoCalendarDayColor
.Fields("strPastCalendarDayColor") = strPastCalendarDayColor
.Fields("strCurrentCalendarDayColor") = strCurrentCalendarDayColor
.Fields("strFutureCalendarDayColor") = strFutureCalendarDayColor
.Fields("strEventCalendarDayColor") =strEventCalendarDayColor
.Fields("StyleSheetPathName") = StyleSheetPathName
.Fields("sitebgcolor") = sitebgcolor
.Fields("headercolor") = headercolor
.Fields("minimenucolor") = minimenucolor
.Fields("menucolor") = menucolor
.Fields("pagecolor") = pagecolor
.Fields("footercolor") = footercolor
.Fields("bordercolor") = bordercolor
.Update
.Requery
.Close
End With
Response.Write("")
Response.Write("")
Response.Write("
")
Case "disable"
strSQL = "SELECT tblscheme.scheme_ID, tblscheme.Enabled FROM tblscheme WHERE tblscheme.scheme_ID = " & intschemeID & ";"
With rsCommon
.CursorType = 2
.LockType = 3
.Open strSQL, adoCon
If strDatabase = "SQLServer" Then
.Fields("Enabled") = 0
Else
.Fields("Enabled") = False
End If
.Update
.Requery
.Close
End With
Response.Redirect "admin_scheme.asp?mode=management"
Case "enable"
strSQL = "SELECT tblscheme.scheme_ID, tblscheme.Enabled FROM tblscheme WHERE tblscheme.scheme_ID = " & intschemeID & ";"
With rsCommon
.CursorType = 2
.LockType = 3
.Open strSQL, adoCon
If strDatabase = "SQLServer" Then
.Fields("Enabled") = 1
Else
.Fields("Enabled") = True
End If
.Update
.Requery
.Close
End With
Response.Redirect "admin_scheme.asp?mode=management"
Case "delete"
strSQL = "SELECT tblscheme.scheme_ID, tblscheme.Enabled FROM tblscheme WHERE tblscheme.scheme_ID = " & intschemeID & ";"
With rsCommon
.LockType = 3
.Open strSQL, adoCon
.Delete
.Close
End With
Response.Redirect "admin_scheme.asp?mode=management"
Case "export"
Exportscheme(intschemeID)
Case "import"
Importscheme(strschemeImportFileName)
Case Else
Response.Write("caught else")
End Select
%>