<!--#include file="dbpath.asp" -->
<!--#include file="../forum/language_files/language_file_inc.asp" -->
<!--#include file="../forum/functions/functions_common.asp"-->
<!--#include file="../forum/functions/functions_filters.asp" -->
<!--#include file="../forum/includes/active_users_inc.asp" -->
<%
Dim blncssforum
Dim blncsspage
Dim blncssroot
blncssforum = False
blncsspage = False
blncssroot = True
%>
<!--#include file="../forum/includes/skin_file.asp" -->
<%
'****************************************************************************************
'**  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
'**
'****************************************************************************************
'Root Settings

'Variables				
Dim strMode			'This Is The Page Mode
Dim strCon                      'This Is The Database Connection
Dim rsCommon
Dim strSQL
Dim strConSS

Dim sitetitle                   'This Is Your Site Title
Dim keywords                    'This Is The Meta Keywords For Your Site
Dim webmaster                   'This Is Your Contact Email
Dim sitepath                    'This Is The Path To Your Site
Dim sitelogo                    'This Is Your Site Logo
Dim sitelaunch                  'This Is The Date Your Site Was Launched/Started
Dim copyrightyear               'This Is The Copyright Year That Appears At Page Bottom
Dim pagedefaulttitle            'This Is Default Home Page Title
Dim page1title                  'This Is Page 1 Title
Dim page1path                   'This Is The Path To Page 1
Dim page2title                  'This Is Page 2 Title
Dim page2path                   'This Is The Path To Page 2
Dim page3title                  'This Is Page 3 Title
Dim page3path                   'This Is The Path To Page 3
Dim page4title                  'This Is Page 4 Title
Dim page4path                   'This Is The Path To Page 4
Dim page5title                  'This Is Page 5 Title
Dim page5path                   'This Is The Path To Page 5
Dim minimenu                    'This Is The Mini Menu Bar That Will Appear 
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 minimenuimage               'This Is The Mini Horizontal Menu Background Image
Dim menucolor                   'This Is The Site Navigation Menu Color
Dim bullet                      'This Is The Site Navigation Menu Bullet Image
Dim pagecolor                   'This Is The Site Main Contents Color
Dim footercolor                 'This Is The Site Footer Contents Color
Dim homepage                    'This Is The Default(Home) page Contents
Dim page1                       'This Is Page 1 Contents
Dim page2                       'This Is Page 2 Contents
Dim page3                       'This Is Page 3 Contents
Dim page4                       'This Is Page 4 Contents
Dim page5                       'This Is Page 5 Contents
Dim UserID                      'This Is The Admin User ID
Dim Password                    'This Is The Admin Password
Dim sitelogoonoff               'This Is The Site Logo On/Off Variable
Dim bulletonoff                 'This Is The Bullet Image On/Off Variable
Dim guestbookon                 'This Is To Allow Guestbook In The Menu
Dim forumon                     'This Is To Allow Forum In The Menu
Dim partners                    'This Is The Site Partners
Dim bordercolor                 'This Is The Site Border Color
Dim googleon                    'This Is The Google Module On/Off Variable
Dim page1onoff                  'This Is Page 1 On/Off Variable
Dim page2onoff                  'This Is Page 2 On/Off Variable
Dim page3onoff                  'This Is Page 3 On/Off Variable
Dim page4onoff                  'This Is Page 4 On/Off Variable
Dim page5onoff                  'This Is Page 5 On/Off Variable
Dim blnseparateforums           'This Is To Separate Forums Yes/No
Dim strLoggedInUserCode         'Holds Logged In User Name From Cookie
Dim pagetitles                  'This Turns Page Titles On/Off
Dim nocalendar                  'This Is To Turn Calendar On/Off
Dim nopartners                  'This Is To Turn Partners On/Off
Dim sitestats                   'This Is The Site Stats Module  On/Off Feature
Dim lngSetDefault               'This Is The Site Default Scheme
Dim noscheme                    'This Turns Scheme Selector On/Off
Dim logotype                    'This Is The Logo Type Text/Graphic
Dim roundview                   'This Allow Round/Box View
Dim homepage_3                  'This Is The Homepage 3 Column On/Off
Dim noChat                      'This Turns Chat Link On/Off
Dim logopos                     'This Positions Site Logo Left/Center/Right
Dim prview                      'This Turns PageRank Feature On/Off
Dim blnGrapLinks		'This Changes From Text To Graphic Powered By Link
Dim ads                         'This Turns VSAN Ads On/Off
'========For Active Users Feature=========
Dim blnActiveUsers              'Active Users
Dim strMainForumName            'Forum Name
Dim strForumEmailAddress        'Forum Email Address
Dim lngLoggedInUserID
Dim strDatabaseType
Dim strDbTable
Dim intActiveUsers
Dim intActiveGuests
Dim intActiveMembers

Dim blnLCode1

'Pull Data From Database

'--------------------- Path And Name Of Database --------------------------------------------------------------------------------

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strEzDBPath1) ' "db/ez.mdb"
strConSS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strEzDBPath1) ' "db/ez.mdb"

'Alternative Drivers Faster Than The Default One Above
'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath("db/ez.mdb") 'This one is if you convert the database to Access 97
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ez.mdb")  'This one is for Access 2000/2002

'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers)
'strCon = "DSN = DSN_NAME" 'Place the DSN where you see DSN_NAME

'NOTE: For extra security it is highly recommended you change the name of the database, db/ez.mdb, to another name and then
'replace the db/ez.mdb found above with the name you changed the EzASPSite database to.
'---------------------------------------------------------------------------------------------------------------------------------------------
Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblscheme.* From tblscheme Where tblscheme.blnSetDefault = True;"
rsCommon.Open strSQL, strCon

lngSetDefault = rsCommon("scheme_ID")

rsCommon.close
%>
<!--#include file="../functions/scheme.asp" -->
<%
Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblSettings.* From tblsettings;"
rsCommon.Open strSQL, strCon

If Not rsCommon.EOF Then
	sitetitle = rsCommon("sitetitle")
	keywords = rsCommon("keywords")
	webmaster = rsCommon("webmaster")
	sitepath = rsCommon("sitepath")
	sitelogo = rsCommon("sitelogo")
	sitelaunch = rsCommon("sitelaunch")
	copyrightyear = rsCommon("copyrightyear")
	pagedefaulttitle = rsCommon("pagedefaulttitle")
	page1title = rsCommon("page1title")
	page1path = rsCommon("page1path")
	page2title = rsCommon("page2title")
	page2path = rsCommon("page2path")
	page3title = rsCommon("page3title")
	page3path = rsCommon("page3path")
	page4title = rsCommon("page4title")
	page4path = rsCommon("page4path")
	page5title = rsCommon("page5title")
	page5path = rsCommon("page5path")
	minimenu = rsCommon("minimenu")
	minimenuimage = rsCommon("minimenuimage")
	bullet = rsCommon("bullet")
        homepage = rsCommon("homepage")
        page1 = rsCommon("page1")
        page2 = rsCommon("page2")
        page3 = rsCommon("page3")
        page4 = rsCommon("page4")
        page5 = rsCommon("page5")
        sitelogoonoff = rsCommon("sitelogoonoff")
        bulletonoff = rsCommon("bulletonoff")
        guestbookon = rsCommon("guestbookon")
        forumon = rsCommon("forumon")
        partners = rsCommon("partners")
        googleon = rsCommon("googleon")
        page1onoff = rsCommon("page1onoff")
        page2onoff = rsCommon("page2onoff")
        page3onoff = rsCommon("page3onoff")
        page4onoff = rsCommon("page4onoff")
        page5onoff = rsCommon("page5onoff")
        blnseparateforums = rsCommon("blnseparateforums")
        pagetitles = rsCommon("pagetitles")
        nocalendar = rsCommon("nocalendar")
        nopartners = rsCommon("nopartners")
        sitestats = rsCommon("sitestats")
        noscheme = rsCommon("noscheme")
        logotype = rsCommon("logotype")
        roundview = rsCommon("roundview")
        homepage_3 = rsCommon("homepage_3")
        noChat = rsCommon("noChat")
        logopos = rsCommon("logopos")
        prview = rscommon("prview")
        ads = rsCommon("ads")
End If
rsCommon.close

Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblScheme.* FROM tblScheme WHERE tblScheme.Scheme_ID = " & intSchemeToUse
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 backgroud image path
	strTablePollBgColour = rsCommon("strTablePollBgColour")				'Poll table backgroud 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 backgroud image path
	strTablePollColumnHeadingColour = rsCommon("strTablePollColumnHeadingColour")	'Poll second title row colour
	strTablePollColumnHeadingBgImage = rsCommon("strTablePollColumnHeadingBgImage")	'Poll second title row backgroud image path
	strTablePollEvenRowColour = rsCommon("strTablePollEvenRowColour")		'Poll even post background colour
	strTablePollOddRowColour = rsCommon("strTablePollOddRowColour")			'Poll odd posts backgroud 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 backgroud image path
	strTablePMBoxBgColour = rsCommon("strTablePMBoxBgColour")			'PM table backgroud colour
	strTablePMBoxSideBgColour = rsCommon("strTablePMBoxSideBgColour")		'PM table side backgroud colour
	strTablePMTitleColour = rsCommon("strTablePMTitleColour")			'PM table title colour
	strTablePMTitleBgImage = rsCommon("strTablePMTitleBgImage")			'PM table backgroud image path
	strTableProfileColour = rsCommon("strTableProfileColour")			'Profile table colour
	strTableProfileBgImage = rsCommon("strTableProfileBgImage")			'Profile table backgroud image path
	strTableProfileBgColour = rsCommon("strTableProfileBgColour")			'Profile table backgroud colour
	strTableProfileBorderColour = rsCommon("strTableProfileBorderColour")		'Profile table border colour
	strTableRowProfileColour = rsCommon("strTableRowProfileColour")			'Profile row backgroud colour
	strTableProfileTitleColour = rsCommon("strTableProfileTitleColour")		'Profile table title colour
	strTableProfileTitleBgImage = rsCommon("strTableProfileTitleBgImage")		'Profile table backgroud image path
	strIETextBoxColour = rsCommon("strIETextBoxColour")				'Colour of the IE WYSIWYG Post Editor Box
	strImagePath = "forum/" & rsCommon("strImagePath")	                                'Path to the forum images
'====Begin CSS File Switch====
Response.Write(vbCrLf & "<link href=""forum/" & rsCommon("StyleSheetPathName") & """ rel=""stylesheet"" type=""text/css"" />")
'====End CSS File Switch====
	'strTitleImage = rsCommon("strTitleImage")
	strNoCalendarDayColor = rsCommon("strNoCalendarDayColor")
	strPastCalendarDayColor = rsCommon("strPastCalendarDayColor")
	strCurrentCalendarDayColor = rsCommon("strCurrentCalendarDayColor")
	strFutureCalendarDayColor = rsCommon("strFutureCalendarDayColor")
	strEventCalendarDayColor = rsCommon("strEventCalendarDayColor")

        sitebgcolor = rsCommon("sitebgcolor")
	headercolor = rsCommon("headercolor")
	minimenucolor = rsCommon("minimenucolor")
        menucolor = rsCommon("menucolor")
        pagecolor = rsCommon("pagecolor")
	footercolor = rsCommon("footercolor")
        bordercolor = rsCommon("bordercolor")
End If
rsCommon.close

Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblHitCount.* From tblHitCount;"
rsCommon.Open strSQL, strCon

If Not rsCommon.EOF Then

blnLCode1 = CBool(rsCommon("L_Code"))

End If
rsCommon.close

Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblConfiguration.* From tblConfiguration;"
rsCommon.Open strSQL, strCon

If Not rsCommon.EOF Then

blnGrapLinks = CBool(rsCommon("Text_link"))

End If
rsCommon.close
%>
<script language="JavaScript" src="<% response.write sitepath %>/forum/includes/default_javascript.js" type="text/javascript"></script>