<%
'***********************************************************************
'   System     :   ASPBanner Unlimited									
'   Author     :   Christopher Williams of CJWSoft www.CJWSoft.com		
'																		
'                         COPYRIGHT NOTICE								
'																		
'   See attached Software License Agreement								
'																		
'   (c) Copyright 2000 - 2003 by CJWSoft.			 All rights reserved
'***********************************************************************
	
'*** The following code retrieves settings saved in the database and stores them in application variables
'*** It only does this when the web application is started or if the settings are updated via the admin area
	
If Application("Banner_Config_Updated") <> "True" Then
	
	Application.Lock
	
	Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
	Set CmdGetConfiguration = Server.CreateObject("ADODB.Recordset")
	ConnBannerSystem.Open BannerConnectionString
	Config_SQL = "SELECT Banner_Config.* FROM Banner_Config Where ID = 1"
	CmdGetConfiguration.Open Config_SQL, ConnBannerSystem
	
	Application("User_Custom1_Name") = CmdGetConfiguration("User_Custom1_Name")
	Application("User_Custom1_Used") = CmdGetConfiguration("User_Custom1_Used")
	Application("User_Custom2_Name") = CmdGetConfiguration("User_Custom2_Name")
	Application("User_Custom2_Used") = CmdGetConfiguration("User_Custom2_Used")
	Application("User_Custom3_Name") = CmdGetConfiguration("User_Custom3_Name")
	Application("User_Custom3_Used") = CmdGetConfiguration("User_Custom3_Used")
	Application("User_Custom4_Name") = CmdGetConfiguration("User_Custom4_Name")
	Application("User_Custom4_Used") = CmdGetConfiguration("User_Custom4_Used")
	Application("User_Custom5_Name") = CmdGetConfiguration("User_Custom5_Name")
	Application("User_Custom5_Used") = CmdGetConfiguration("User_Custom5_Used")
	Application("User_Custom6_Name") = CmdGetConfiguration("User_Custom6_Name")
	Application("User_Custom6_Used") = CmdGetConfiguration("User_Custom6_Used")
	Application("CDONTS_Installed") = CmdGetConfiguration("CDONTS_Installed")
	Application("JMAIL_Installed") = CmdGetConfiguration("JMAIL_Installed")
	Application("JMAIL_ServerAddress") = CmdGetConfiguration("JMAIL_ServerAddress")
	Application("AspEmail_Installed") = CmdGetConfiguration("AspEmail_Installed")
	Application("AspEmail_MailHost") = CmdGetConfiguration("AspEmail_MailHost")
	Application("SASMTPMAIL_Installed") = CmdGetConfiguration("SASMTPMAIL_Installed")
	Application("SASMTPMAIL_RemoteHost") = CmdGetConfiguration("SASMTPMAIL_RemoteHost")
	Application("EmailNotification") = CmdGetConfiguration("EmailNotification")
	Application("Log_Off_Page") = CmdGetConfiguration("Log_Off_Page")
	Application("BannerRedirectURL") = CmdGetConfiguration("BannerRedirectURL")
	
	Application("Banner_Config_Updated") = "True"
	Application.Unlock
	
	CmdGetConfiguration.Close
Set CmdGetConfiguration = Nothing
	
End If
	
'*** Variable below used in HTML Title tags
App_Name = "HouseViewOnline Banner"
'*** Variable below used in HTML Body tags
BodyTag = " background='images/aspbanner_backgrnd2.gif' topmargin='20' bottommargin='20' leftmargin='20' rightmargin='20'"
	
'*** Special setting added for ASPMail support
'*** Choose SASMTPMAIL_Installed in the setting and set this value below to true to enable the ASPMail component
'*** it sued the same methods and properties as the SASMTPMAIL component so adding support for it was easy
Application("ASPMail_Installed") = false
	
' Used to save and query dates in a  format that will work the same with all server regional settings
Function InternationalDate(ExistingDate)
   If IsDate(ExistingDate) = True Then
      DIM ExistingDay, ExistingMonth, ExistingYear
      ExistingDay = Day(ExistingDate)
      ExistingMonth = Month(ExistingDate)
      ExistingYear   = Year(ExistingDate)
      InternationalDate = ExistingYear & "-" & Right(Cstr(ExistingMonth + 100),2) & "-" & Right(Cstr(ExistingDay + 100),2)
   Else
      InternationalDate = Null
   End If
End Function
%>