<% @LANGUAGE=VBScript %>
<%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
		Dim htextcolor, maxChr, s, sf, sg, web_site, web_name, pp, SMTPID, SMTPPAss, rFile, largeimage, catpos, timeOffset
		Dim isnotfree, uOpt(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
		Dim tablPfx, tablUPfx, strUnique, strSUnique, rcver
		rcver = 311
'==========================================================================================================================


'**************************************************************************************************************************
'********************************            START CONFIGURATION             **********************************************
'**************************************************************************************************************************

'### SHOW ADMIN MENU AND LINK ###

 ' 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 = False


'### SELECT CLIENT LOCALE ###

		setLocale "1033"

'==========================================================================================================================
		
'### SELECT TIME OFFSET (Difference between server time and your location time. Can be positive or negative number.) ###

		timeOffset = -5
		
'==========================================================================================================================


'### CHANGE FOLLOWING VALUES TO REFLECT THE CORRECT PATH TO FOLDERS ###

		dbFolder = "../../database/db/"
		upload = "/classifieds/cl_upload/"
		bnrLocation = "/classifieds/banners/"
		ad_cache = "/classifieds/ads/"
		logo = "/classifieds/img/logo.gif"

'==========================================================================================================================

'### SELECT DATABASE TYPE ###

		'databaseType = "msaccess"
		databaseType = "mssql"
		'databaseType = "mysql"

'==========================================================================================================================

'### CONNECTION STRINGS CONFIGURATION ###

		Select Case databaseType
		
	'*** ACCESS DATABASE ***		

			Case "msaccess"
					msaccess = True
					
					strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
					strConn = strConn & Server.MapPath(dbFolder & "cldb.mdb") & ";"
				
	'*** MSSQL DATABASE ***				
				
			Case "mssql"
				Dim SQLServer
					mssql = true
					
				'# SQL SERVER NAME (PROVIDED BY YOUR HOST)

					SQLServer = "rhdb109.readyhosting.com,1433"

				'# SQL USER ID (AUTHENTICATION)

					SQLUser = "bigfundb"

				'# SQL PASSWORD (AUTHENTICATION)

					SQLPassword = "bigislanddb"

				'# SQL DATABASE NAME

					SQLDBName = "adsdb"
					
				'# If you choose to modify connection string make sure to change the connection string in mssql_tbl_setup.asp
				
					strConn = "Provider=SQLOLEDB;Server=" & SQLServer
					strConn = strConn & ";User ID=" & SQLUser
					strConn = strConn & ";Password=" & SQLPassword
					strConn = strConn & ";Database=" & SQLDBName & ";"

	'*** MySQL DATABASE ***	
					
			Case "mysql"
				Dim MySQLServer
				
					mysql = true
				
				'# MySQL SERVER IP ADDRESS (PROVIDED BY YOUR HOST)

					MySQLServer = "server_name/IP"

				'# MySQL USER ID (AUTHENTICATION)

					MySQLUser = "user_name"

				'# MySQL PASSWORD (AUTHENTICATION)

					MySQLPassword = "password"

				'# MySQL DATABASE NAME

					MySQLDBName = "database_name"
					
				'# If you choose to modify connection string make sure to change the connection string in mysql_tbl_setup.asp
				
					strConn = "Driver={MySQL ODBC 3.51 Driver};server=" & MySQLServer
					strConn = strConn & ";uid=" & MySQLUser
					strConn = strConn & ";pwd=" & MySQLPassword
					strConn = strConn & ";database=" & MySQLDBName & ";"
					
		End Select
				
'**************************************************************************************************************************
'********************************              END CONFIGURATION             **********************************************
'**************************************************************************************************************************

		Set objConn = Server.CreateObject("ADODB.Connection")
		Set rs = Server.CreateObject("ADODB.Recordset")
		objConn.CursorLocation = 3
		objConn.open strConn
		resetLocale = getLocale
		server_locale = "1033" 'DO NOT MODIFY THIS
		s = chr(15)
		sf = chr(166)
		sg = chr(164)
		
%><!--#include file="unique.asp"-->