<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim strForumName 'Holds the forum name 'Read in the users details for the forum If blnDemoMode = False Then strForumName = Request.Form("forumName") strTitleImage = Request.Form("titleImage") strCSSfile = Request.Form("CSS") strImagePath = Request.Form("imagePath") strNavSpacer = Server.HTMLEncode(Request.Form("navSep")) End If 'Initialise the SQL variable with an SQL statement to get the configuration details from the database strSQL = "SELECT " & strDbTable & "Configuration.* " & _ "From " & strDbTable & "Configuration " & _ "WHERE " & strDbTable & "Configuration.ID = 1;" 'Set the cursor type property of the record set to Dynamic so we can navigate through the record set rsCommon.CursorType = 2 'Set the Lock Type for the records so that the record set is only locked when it is updated rsCommon.LockType = 3 'Query the database rsCommon.Open strSQL, adoCon 'If this is a pre-installed skin slection then setup the details If Request.Form("Submit2") <> "" Then 'Read in the site name If blnDemoMode = False Then strForumName = Request.Form("forumName") strNavSpacer = Request.Form("navSep") Else strForumName = "Web Wiz Forums" strNavSpacer = " > " End If 'Dark skin If Request.Form("skin") = "dark" Then If InStr(strTitleImage, "web_wiz_forums") Then strTitleImage = "forum_images/web_wiz_forums_black.png" strCSSfile = "css_styles/dark/" strImagePath = "forum_images/" 'Vista Blue skin ElseIf Request.Form("skin") = "vistaBlue" Then If InStr(strTitleImage, "web_wiz_forums") Then strTitleImage = "forum_images/web_wiz_forums.png" strCSSfile = "css_styles/vista_blue/" strImagePath = "forum_images/" 'Web Wiz skin ElseIf Request.Form("skin") = "webwiz" Then If InStr(strTitleImage, "web_wiz_forums") Then strTitleImage = "forum_images/web_wiz_forums.png" strCSSfile = "css_styles/web_wiz/" strImagePath = "forum_images/" 'Classic skin ElseIf Request.Form("skin") = "classic" Then If InStr(strTitleImage, "web_wiz_forums") Then strTitleImage = "forum_images/web_wiz_forums.png" strCSSfile = "css_styles/classic/" strImagePath = "forum_images/" 'Default skin Else If InStr(strTitleImage, "web_wiz_forums") Then strTitleImage = "forum_images/web_wiz_forums.png" strCSSfile = "css_styles/default/" strImagePath = "forum_images/" End If End If 'If the user is changing tthe colours then update the database If Request.Form("postBack") AND strForumName <> "" Then 'Update the recordset With rsCommon .Fields("forum_name") = Trim(Mid(strForumName, 1, 50)) .Fields("Title_image") = Trim(Mid(strTitleImage, 1, 70)) .Fields("Skin_file") = Trim(Mid(strCSSfile, 1, 50)) .Fields("Skin_image_path") = Trim(Mid(strImagePath, 1, 50)) .Fields("Skin_nav_spacer") = Mid(strNavSpacer, 1, 15) 'Update the database with the new user's colours .Update 'Re-run the query to read in the updated recordset from the database .Requery End With 'Update variables Application.Lock Application(strAppPrefix & "strMainForumName") = strForumName Application(strAppPrefix & "strTitleImage") = strTitleImage Application(strAppPrefix & "strCSSfile") = strCSSfile Application(strAppPrefix & "strImagePath") = strImagePath Application(strAppPrefix & "strNavSpacer") = strNavSpacer 'Empty the application level variable so that the changes made are seen in the main forum Application(strAppPrefix & "blnConfigurationSet") = false Application.UnLock End If 'Read in the forum colours from the database If NOT rsCommon.EOF Then 'Read in the colour info from the database strForumName = rsCommon("forum_name") strTitleImage = rsCommon("Title_image") strCSSfile = rsCommon("Skin_file") strImagePath = rsCommon("Skin_image_path") strNavSpacer = rsCommon("Skin_nav_spacer") End If If strImagePath <> "" AND isNull(strImagePath) = False Then If Mid(strImagePath, len(strImagePath), 1) <> "/" Then strImagePath = strImagePath & "/" End If If strCSSfile <> "" AND isNull(strCSSfile) = False Then If Mid(strCSSfile, len(strCSSfile), 1) <> "/" Then strCSSfile = strCSSfile & "/" End If 'Reset Server Objects rsCommon.Close Call closeDatabase() %> Forum Skin Configuration <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

Forum Skin Configuration

Control Panel Menu

From here you can apply new skins to to change the look of Web Wiz Forums.


Copyright Notice
The icons and images used within this software are copyright of 'Web Wiz', 'AW Icons' and 'Glyph Lab', if you wish to use any of the icons or images outside of the software package a license will need to be purchased from the copyright owner (This applies to ALL editions including the Free and Premium Editions).

For licensing information please contact 'Web Wiz'.

Custom Skin Settings
Forum Name
The name of your Forum pages eg. 'My Website Forum'.
/>
Forum Banner Image
This replaces the Web Wiz Forums banner logo that is shown on the top of each page. Your own web sites banner logo would be good to place here.
/>
Skin Folder Name
This is the folder nameof where your CSS (Cascading Style Sheet) Files that are used to style Web Wiz Forums are stored
/>
Image Folder Name
This is the folder name of where your images for the skin you are using are stored.
/>
Bread Crumb Navigation Separator*
This is the character that separates the separate links found in the bread crumb navigation found at the top of forum pages.
/>

Pre-installed Skin Selection
/> Default Skin

Default Skin Preview

/> Web Wiz Forums Classic Skin

Web Wiz Forums Classic Skin

/> Dark Skin

Dark Skin Preview

/> Web Wiz Skin

Web Wiz Skin Preview