<%Response.Buffer = True

		On Error Resume Next

'### DO NOT MODIFY THIS SECTION! ###
'==========================================================================================================================
		Dim key, dbFolder, imgLocation, upload, logo, adminkey, verify_user, moderate, bnrLocation, mysql, mssql, msaccess
		Dim objFile, catFolder, logFolder, logPATH, dbPATH, catPATH, emailMethod, admin_email, mailHost, notify_email, isIE
		Dim htextcolor, maxChr, s, sf, sg, ss, web_site, web_name, pp, SMTPID, SMTPPAss, rFile, largeimage, catpos, timeOffset
		Dim isnotfree, uOpt(7), uOptD(7), strConn, rs, advArray(28), ppArray(30), resetLocale, server_locale, Wysiwyg_type
		Dim meta_description, meta_keywords, detectMultipleIP, scr_Name, result_web_name, result_meta_description, imagelimit
		Dim result_meta_keywords, full_description, default_to_cat, ad_cache, IsCache, uOptType(6), uOptSearch(6), optCatList
		Dim cat3rdName, catName, subCatName, isTurningNumber, seclog, isEvents, eventsArray(21), ispack, istn, listalpha
		Dim tablPfx, tablUPfx, strUnique, strSUnique, rcver, IP, Sess_Array(100), objConn, uagent, adminPage, isXLT, cfg_reply, cfg_view

		databaseType = "msaccess"
		msaccess = True
		IP = Request.ServerVariables("REMOTE_ADDR")
		If Len(Request.ServerVariables("HTTP_X_FORWARDED_FOR")) > 0 Then IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
		uagent = Request.ServerVariables("HTTP_USER_AGENT")
'==========================================================================================================================


'**************************************************************************************************************************
'********************************            START CONFIGURATION             **********************************************
'**************************************************************************************************************************

'### SECURITY ###

 ' Display admin menu on all administation pages. Replace [True] with [False] to hide.
 
		showAdminMenu = True
		
 ' Display "Admin" link within the general menu at the top navigation bar. Replace [True] with [False] to hide.
 
 		showAdminLink = True
 		
 ' Admin Logon page name. After changing this value, make sure to rename current admin logon page reflecting the change. 
 ' This variable only reflects the page name. Physical page should always have .asp extention.
 
 		adminPage = "admin_logon"
 		

'### SELECT CLIENT LOCALE ###

		setLocale "1033"

'==========================================================================================================================
		
'### SELECT TIME OFFSET (Difference between server time and your location time. Can be positive or negative number.) ###

		timeOffset = 0
		
'==========================================================================================================================


'### CHANGE FOLLOWING VALUES TO REFLECT THE CORRECT PATH TO FOLDERS ###

		dbFolder = "db/"
		upload = "cl_upload/"
		bnrLocation = "banners/"	'Not used in this version. Do not change!
		ad_cache = "ads/"			'Not used in this version. Do not change!
		logo = "img/logo.png"

'**************************************************************************************************************************
'********************************              END CONFIGURATION             **********************************************
'**************************************************************************************************************************

		strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
		strConn = strConn & Server.MapPath(dbFolder & "cldb.mdb") & ";"
		Set objConn = Server.CreateObject("ADODB.Connection")
		objConn.CursorLocation = 3
		objConn.open strConn
		resetLocale = getLocale
		server_locale = "1033" 'DO NOT MODIFY THIS
		s = chr(15)
		sf = chr(166)
		sg = chr(164)
		ss = chr(14)

%><!--#include file="unique.asp"--><!--#include file="version.asp"-->