<!--METADATA
	TYPE="TypeLib"
	NAME="Microsoft ActiveX Data Objects 2.5 Library"
	UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
	VERSION="2.5"
-->
<%
	'************************************************************************************
	'*																					*
	'*	MODIFICATION TO THIS SCRIPT OR ANY FILES INCLUDED WITH 							*
	'*		ONEWORLDSTORE IS DONE AT YOUR OWN RISK!										*
	'*	Product  : OneWorldStore														*
	'*	Version  : 9.0000																*
	'*	Modified : June 2004															*
	'*	Copyright:	Copyright (C) 2004 OneWorldStore.Com								*
	'*				Registration Number: 1024507										*
	'*				http://strategis.ic.gc.ca/											*
	'*																					*
	'************************************************************************************
	Dim sDatabaseConnectionString
	
	'******************ONLY CHANGE THESE SETTINGS*********************
	' The OneWorldSTore.mdb file should be within the /owDatabase/ folder
	' Make sure the path to the .mdb file is from the root of the website (it must start with a "/")
	'	Use this connection string if the others below do not work -- this is the most stable one
	sDatabaseConnectionString	= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/owDatabase/oneworldstore.mdb") & ";" 
 
	' Alternative drivers that may be faster than the one above, but more unstable
	'sDatabaseConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & server.MapPath("\owDatabase\oneworldstore.mdb") 
	'sDatabaseConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("\owDatabase\oneworldstore.mdb")
	
	' Use this connection string to connect to an optional System DSN -- DSN's are slower than the above connection strings
	'sDatabaseConnectionString = "DSN=DSN_NAME" 'Place the DSN where you see DSN_NAME
	'*****************************************************************

	Const pStoreFrontVersion	= "1.020"		' storeFront Version (don't change this constant)

	Dim dbStoreConnection, dbStoreCommand, sSQLText, bOWDoNotRoundMoney

	dim dictError, rsStoreData, rsStoreData2
	Dim sOWCompany, sOWCompanyAddress, sOWCompanyZip, sOWCompanyCity, sOWCompanyStateCode, sOWCompanyCountryCode, sOWCompanyFax
	Dim sOWEmailAdmin, sOWEmailSender, sOWSmtpServer, sOWDebugEmail, sOWEmailComponent
	Dim bOWSFDemo, bOWBackOfficeDemoMode, sOWCurrencySymbol, bOWDisableState, bOWTaxIncluded
	Dim bOWDisableSaveOrderEmail, bOWChangeDecimalPoint
	Dim sOWOrderPrefix, sOWCustomerPrefix, sOWDecimalSymbol, sOWDateFormat, bOWAllowShippingAddress
	Dim bOWGenerateRandPW, bOWAllowNewCustomer, bOWForceToSelectOption, sOWEncryptionPassword
	Dim bOWEnableCategorySort, bOWUseVatNumber, bOWShowBtoBPrice, iOWRowsShown
	Dim sOWOrderFieldName1, sOWOrderFieldName2, sOWOrderFieldName3
	Dim sOWGatewayID, sOWImagesDir, sOWCategoryImage, sOWStoreUrlNonSSL
	Dim bOWAdvancedImages, sOWImageComponent, sOWStoreTableWidth, iOWIDLanguageSchemes, iOWNumPerPage
	Dim sOWCurrencyCode, sOWLanguageCode
	Dim bHasAccount, iLoginAccountUnq
	
	' Browser variables
	Dim sActiveX

	' Global objects
	Set dictError					= server.createObject("scripting.dictionary")
	Set rsStoreData					= CreateObject("ADODB.Recordset")
	Set rsStoreData2				= CreateObject("ADODB.Recordset")
	
	
	'**************************************GLOBAL VARIABLES************************************
	Set objBrowserTest				= Server.CreateObject("MSWC.BrowserType")
	sActiveX   						= objBrowserTest.ActiveXControls
	Set objBrowserTest				= Nothing


	'**************************************GLOBAL CONSTANTS*************************************
	Const	C_PENDING				= 1
	Const	C_DELIVERED				= 2
	Const	C_CANCELLED				= 3
	Const	C_PAID					= 4
	Const	C_CHARGEBACK			= 5
	Const	C_REFUNDED				= 6
	Const	C_UNFINALIZED			= 7
	
	' payment methods (PM = Payment Method) 
	'	these numbers coorespond to the idSettingGroup in the table SettingsGroupNames the payment type belongs to
	'	they must in order for the manager to work
	Const	C_PM_MAILIN				= 12
	Const	C_PM_FAXIN				= 13
	Const	C_PM_PHONEIN			= 14
	
	Const	C_NONMEMBER_ID			= -1
	Const	C_PRIVATE_ADV			= "PRIVATE"
	Const	C_PUBLIC_ADV			= "PUBLIC"
	Const	C_OVERRIDE_ADV			= "OVERRIDE"
	Const	C_TEXT_ADV				= "T"
	Const	C_VARCHAR_ADV			= "V"
	Const	C_DOUBLE				= 1
	Const	C_INTEGER				= 2
	
	' for use w/ owMessage()
	Const	C_ERROR					= 1
	Const	C_SUCCESS				= 2
	
	' account Group constants being used within the store. The values must equal the GroupUnq.
	Const	C_GROUP_ADMIN			= 1
	Const	C_GROUP_RETAIL			= 2
	Const	C_GROUP_WHOLESALE		= 3
	Const	C_GROUP_DISTRIBUTOR		= 6		' for drop-shipping
%>