<%
'***********************************************************************
'   System     :   ASPBanner											
'   Author     :   Christopher Williams of CJWSoft www.CJWSoft.com		
'																		
'                         COPYRIGHT NOTICE								
'																		
'   See attached Software License Agreement								
'																		
'   (c) Copyright 2000 - 2001 by CJWSoft.			 All rights reserved
'***********************************************************************
	
'*** The following allows you to name the Zones as you see fit
Zone1Name = "Zone 1"
Zone2Name = "Zone 2"
Zone3Name = "Zone 3"
Zone4Name = "Zone 4"
Zone5Name = "Zone 5"
Zone6Name = "Zone 6"
Zone7Name = "Zone 7"
Zone8Name = "Zone 8"
Zone9Name = "Zone 9"
Zone10Name = "Zone 10"
	
'*** The following code retrieves settings saved in the database
	
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
Set CmdGetConfiguration = Server.CreateObject("ADODB.Recordset")
ConnPasswords.Open BannerConnectionString
SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1"
CmdGetConfiguration.Open SQL, ConnPasswords
	
User_Custom1_Name = CmdGetConfiguration("User_Custom1_Name")
User_Custom1_Used = CmdGetConfiguration("User_Custom1_Used")
User_Custom2_Name = CmdGetConfiguration("User_Custom2_Name")
User_Custom2_Used = CmdGetConfiguration("User_Custom2_Used")
User_Custom3_Name = CmdGetConfiguration("User_Custom3_Name")
User_Custom3_Used = CmdGetConfiguration("User_Custom3_Used")
User_Custom4_Name = CmdGetConfiguration("User_Custom4_Name")
User_Custom4_Used = CmdGetConfiguration("User_Custom4_Used")
User_Custom5_Name = CmdGetConfiguration("User_Custom5_Name")
User_Custom5_Used = CmdGetConfiguration("User_Custom5_Used")
User_Custom6_Name = CmdGetConfiguration("User_Custom6_Name")
User_Custom6_Used = CmdGetConfiguration("User_Custom6_Used")
	
BGCOLOR1 = CmdGetConfiguration("BGCOLOR1")
CDONTS_Installed = CmdGetConfiguration("CDONTS_Installed")
JMAIL_Installed = CmdGetConfiguration("JMAIL_Installed")
JMAIL_ServerAddress = CmdGetConfiguration("JMAIL_ServerAddress")
AspEmail_Installed = CmdGetConfiguration("AspEmail_Installed")
AspEmail_MailHost = CmdGetConfiguration("AspEmail_MailHost")
SASMTPMAIL_Installed = CmdGetConfiguration("SASMTPMAIL_Installed")
SASMTPMAIL_RemoteHost = CmdGetConfiguration("SASMTPMAIL_RemoteHost")
EmailNotification = CmdGetConfiguration("EmailNotification")
Log_Off_Page = CmdGetConfiguration("Log_Off_Page")
BannerRedirectURL = CmdGetConfiguration("BannerRedirectURL")
	
'*** Variable below used in HTML Title tags
App_Name = "ASPBanner"
'*** Variable below used in HTML Body tags
BodyTag = " bgcolor=#FFFFFF margimwidth=0 marginheight=0 leftmargin=0 topmargin=0"
	
CmdGetConfiguration.Close
Set CmdGetConfiguration = Nothing
%>