<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	'==FrontPage Generated - startspan==
	Dim FrontPage_UrlVars(36)
	'--Project Data Connection
		Application("april15connect_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/april15final.mdb"
		FrontPage_UrlVars(0) = "april15connect_ConnectionString"
		Application("april15connect_ConnectionTimeout") = 15
		Application("april15connect_CommandTimeout") = 30
		Application("april15connect_CursorLocation") = 3
		Application("april15connect_RuntimeUserName") = ""
		Application("april15connect_RuntimePassword") = ""
	'--Project Data Connection
		Application("april30connect_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/april30.mdb"
		FrontPage_UrlVars(1) = "april30connect_ConnectionString"
		Application("april30connect_ConnectionTimeout") = 15
		Application("april30connect_CommandTimeout") = 30
		Application("april30connect_CursorLocation") = 3
		Application("april30connect_RuntimeUserName") = ""
		Application("april30connect_RuntimePassword") = ""
	'--Project Data Connection
		Application("wishlistconnection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=wishlist.mdb"
		FrontPage_UrlVars(2) = "wishlistconnection_ConnectionString"
		Application("wishlistconnection_ConnectionTimeout") = 15
		Application("wishlistconnection_CommandTimeout") = 30
		Application("wishlistconnection_CursorLocation") = 3
		Application("wishlistconnection_RuntimeUserName") = ""
		Application("wishlistconnection_RuntimePassword") = ""
	'--Project Data Connection
		Application("may15connect_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=may15.mdb"
		FrontPage_UrlVars(3) = "may15connect_ConnectionString"
		Application("may15connect_ConnectionTimeout") = 15
		Application("may15connect_CommandTimeout") = 30
		Application("may15connect_CursorLocation") = 3
		Application("may15connect_RuntimeUserName") = ""
		Application("may15connect_RuntimePassword") = ""
	'--Project Data Connection
		Application("may31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=may31.mdb"
		FrontPage_UrlVars(4) = "may31connection_ConnectionString"
		Application("may31connection_ConnectionTimeout") = 15
		Application("may31connection_CommandTimeout") = 30
		Application("may31connection_CursorLocation") = 3
		Application("may31connection_RuntimeUserName") = ""
		Application("may31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("june15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=june15.mdb"
		FrontPage_UrlVars(5) = "june15connection_ConnectionString"
		Application("june15connection_ConnectionTimeout") = 15
		Application("june15connection_CommandTimeout") = 30
		Application("june15connection_CursorLocation") = 3
		Application("june15connection_RuntimeUserName") = ""
		Application("june15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("june30connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=june30.mdb"
		FrontPage_UrlVars(6) = "june30connection_ConnectionString"
		Application("june30connection_ConnectionTimeout") = 15
		Application("june30connection_CommandTimeout") = 30
		Application("june30connection_CursorLocation") = 3
		Application("june30connection_RuntimeUserName") = ""
		Application("june30connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("americanpotteryconnection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=americanpottery.mdb"
		FrontPage_UrlVars(7) = "americanpotteryconnection_ConnectionString"
		Application("americanpotteryconnection_ConnectionTimeout") = 15
		Application("americanpotteryconnection_CommandTimeout") = 30
		Application("americanpotteryconnection_CursorLocation") = 3
		Application("americanpotteryconnection_RuntimeUserName") = ""
		Application("americanpotteryconnection_RuntimePassword") = ""
	'--Project Data Connection
		Application("july15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=july15.mdb"
		FrontPage_UrlVars(8) = "july15connection_ConnectionString"
		Application("july15connection_ConnectionTimeout") = 15
		Application("july15connection_CommandTimeout") = 30
		Application("july15connection_CursorLocation") = 3
		Application("july15connection_RuntimeUserName") = ""
		Application("july15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("july31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=july31.mdb"
		FrontPage_UrlVars(9) = "july31connection_ConnectionString"
		Application("july31connection_ConnectionTimeout") = 15
		Application("july31connection_CommandTimeout") = 30
		Application("july31connection_CursorLocation") = 3
		Application("july31connection_RuntimeUserName") = ""
		Application("july31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("august15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=august15.mdb"
		FrontPage_UrlVars(10) = "august15connection_ConnectionString"
		Application("august15connection_ConnectionTimeout") = 15
		Application("august15connection_CommandTimeout") = 30
		Application("august15connection_CursorLocation") = 3
		Application("august15connection_RuntimeUserName") = ""
		Application("august15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("august31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=august31.mdb"
		FrontPage_UrlVars(11) = "august31connection_ConnectionString"
		Application("august31connection_ConnectionTimeout") = 15
		Application("august31connection_CommandTimeout") = 30
		Application("august31connection_CursorLocation") = 3
		Application("august31connection_RuntimeUserName") = ""
		Application("august31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("september15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=september15.mdb"
		FrontPage_UrlVars(12) = "september15connection_ConnectionString"
		Application("september15connection_ConnectionTimeout") = 15
		Application("september15connection_CommandTimeout") = 30
		Application("september15connection_CursorLocation") = 3
		Application("september15connection_RuntimeUserName") = ""
		Application("september15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("september30connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=september30.mdb"
		FrontPage_UrlVars(13) = "september30connection_ConnectionString"
		Application("september30connection_ConnectionTimeout") = 15
		Application("september30connection_CommandTimeout") = 30
		Application("september30connection_CursorLocation") = 3
		Application("september30connection_RuntimeUserName") = ""
		Application("september30connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("october15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=october15.mdb"
		FrontPage_UrlVars(14) = "october15connection_ConnectionString"
		Application("october15connection_ConnectionTimeout") = 15
		Application("october15connection_CommandTimeout") = 30
		Application("october15connection_CursorLocation") = 3
		Application("october15connection_RuntimeUserName") = ""
		Application("october15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("october31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=october31.mdb"
		FrontPage_UrlVars(15) = "october31connection_ConnectionString"
		Application("october31connection_ConnectionTimeout") = 15
		Application("october31connection_CommandTimeout") = 30
		Application("october31connection_CursorLocation") = 3
		Application("october31connection_RuntimeUserName") = ""
		Application("october31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("november15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=november15.mdb"
		FrontPage_UrlVars(16) = "november15connection_ConnectionString"
		Application("november15connection_ConnectionTimeout") = 15
		Application("november15connection_CommandTimeout") = 30
		Application("november15connection_CursorLocation") = 3
		Application("november15connection_RuntimeUserName") = ""
		Application("november15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("november30connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=november30.mdb"
		FrontPage_UrlVars(17) = "november30connection_ConnectionString"
		Application("november30connection_ConnectionTimeout") = 15
		Application("november30connection_CommandTimeout") = 30
		Application("november30connection_CursorLocation") = 3
		Application("november30connection_RuntimeUserName") = ""
		Application("november30connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("december15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=december15.mdb"
		FrontPage_UrlVars(18) = "december15connection_ConnectionString"
		Application("december15connection_ConnectionTimeout") = 15
		Application("december15connection_CommandTimeout") = 30
		Application("december15connection_CursorLocation") = 3
		Application("december15connection_RuntimeUserName") = ""
		Application("december15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("december31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=december31.mdb"
		FrontPage_UrlVars(19) = "december31connection_ConnectionString"
		Application("december31connection_ConnectionTimeout") = 15
		Application("december31connection_CommandTimeout") = 30
		Application("december31connection_CursorLocation") = 3
		Application("december31connection_RuntimeUserName") = ""
		Application("december31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("january15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=january15.mdb"
		FrontPage_UrlVars(20) = "january15connection_ConnectionString"
		Application("january15connection_ConnectionTimeout") = 15
		Application("january15connection_CommandTimeout") = 30
		Application("january15connection_CursorLocation") = 3
		Application("january15connection_RuntimeUserName") = ""
		Application("january15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("january31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=january31.mdb"
		FrontPage_UrlVars(21) = "january31connection_ConnectionString"
		Application("january31connection_ConnectionTimeout") = 15
		Application("january31connection_CommandTimeout") = 30
		Application("january31connection_CursorLocation") = 3
		Application("january31connection_RuntimeUserName") = ""
		Application("january31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("febuary15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=febuary15.mdb"
		FrontPage_UrlVars(22) = "febuary15connection_ConnectionString"
		Application("febuary15connection_ConnectionTimeout") = 15
		Application("febuary15connection_CommandTimeout") = 30
		Application("febuary15connection_CursorLocation") = 3
		Application("febuary15connection_RuntimeUserName") = ""
		Application("febuary15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("february28connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=February28.mdb"
		FrontPage_UrlVars(23) = "february28connection_ConnectionString"
		Application("february28connection_ConnectionTimeout") = 15
		Application("february28connection_CommandTimeout") = 30
		Application("february28connection_CursorLocation") = 3
		Application("february28connection_RuntimeUserName") = ""
		Application("february28connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("march15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=march15.mdb"
		FrontPage_UrlVars(24) = "march15connection_ConnectionString"
		Application("march15connection_ConnectionTimeout") = 15
		Application("march15connection_CommandTimeout") = 30
		Application("march15connection_CursorLocation") = 3
		Application("march15connection_RuntimeUserName") = ""
		Application("march15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("march31connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=march31.mdb"
		FrontPage_UrlVars(25) = "march31connection_ConnectionString"
		Application("march31connection_ConnectionTimeout") = 15
		Application("march31connection_CommandTimeout") = 30
		Application("march31connection_CursorLocation") = 3
		Application("march31connection_RuntimeUserName") = ""
		Application("march31connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("april15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=april15.mdb"
		FrontPage_UrlVars(26) = "april15connection_ConnectionString"
		Application("april15connection_ConnectionTimeout") = 15
		Application("april15connection_CommandTimeout") = 30
		Application("april15connection_CursorLocation") = 3
		Application("april15connection_RuntimeUserName") = ""
		Application("april15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("april30connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=april30.mdb"
		FrontPage_UrlVars(27) = "april30connection_ConnectionString"
		Application("april30connection_ConnectionTimeout") = 15
		Application("april30connection_CommandTimeout") = 30
		Application("april30connection_CursorLocation") = 3
		Application("april30connection_RuntimeUserName") = ""
		Application("april30connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("may15connection_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=may15.mdb"
		FrontPage_UrlVars(28) = "may15connection_ConnectionString"
		Application("may15connection_ConnectionTimeout") = 15
		Application("may15connection_CommandTimeout") = 30
		Application("may15connection_CursorLocation") = 3
		Application("may15connection_RuntimeUserName") = ""
		Application("may15connection_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database1_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=february15.mdb"
		FrontPage_UrlVars(29) = "Database1_ConnectionString"
		Application("Database1_ConnectionTimeout") = 15
		Application("Database1_CommandTimeout") = 30
		Application("Database1_CursorLocation") = 3
		Application("Database1_RuntimeUserName") = ""
		Application("Database1_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database2_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/febuary28.mdb"
		FrontPage_UrlVars(30) = "Database2_ConnectionString"
		Application("Database2_ConnectionTimeout") = 15
		Application("Database2_CommandTimeout") = 30
		Application("Database2_CursorLocation") = 3
		Application("Database2_RuntimeUserName") = ""
		Application("Database2_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database3_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/november15mdb.mdb"
		FrontPage_UrlVars(31) = "Database3_ConnectionString"
		Application("Database3_ConnectionTimeout") = 15
		Application("Database3_CommandTimeout") = 30
		Application("Database3_CursorLocation") = 3
		Application("Database3_RuntimeUserName") = ""
		Application("Database3_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database4_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=zfebuary29.mdb"
		FrontPage_UrlVars(32) = "Database4_ConnectionString"
		Application("Database4_ConnectionTimeout") = 15
		Application("Database4_CommandTimeout") = 30
		Application("Database4_CursorLocation") = 3
		Application("Database4_RuntimeUserName") = ""
		Application("Database4_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database5_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/may15.mdb"
		FrontPage_UrlVars(33) = "Database5_ConnectionString"
		Application("Database5_ConnectionTimeout") = 15
		Application("Database5_CommandTimeout") = 30
		Application("Database5_CursorLocation") = 3
		Application("Database5_RuntimeUserName") = ""
		Application("Database5_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database6_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/november15-old.mdb"
		FrontPage_UrlVars(34) = "Database6_ConnectionString"
		Application("Database6_ConnectionTimeout") = 15
		Application("Database6_CommandTimeout") = 30
		Application("Database6_CursorLocation") = 3
		Application("Database6_RuntimeUserName") = ""
		Application("Database6_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database7_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/db1_november15-old.mdb"
		FrontPage_UrlVars(35) = "Database7_ConnectionString"
		Application("Database7_ConnectionTimeout") = 15
		Application("Database7_CommandTimeout") = 30
		Application("Database7_CursorLocation") = 3
		Application("Database7_RuntimeUserName") = ""
		Application("Database7_RuntimePassword") = ""
	'--
	Application("FrontPage_UrlVars") = FrontPage_UrlVars
	'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
	FrontPage_StartSession '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
	On Error Resume Next
	if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub
	' discover the VRoot for the current page;
	' walk back up VPath until we find global.asa
	Vroot = Request.ServerVariables("PATH_INFO")
	strG1 = "global.asa"
	strG2 = "Global.asa"
	iCount = 0
	do while Len(Vroot) > 1
		idx = InStrRev(Vroot, "/")
		if idx > 0 then
			Vroot = Left(Vroot,idx)
		else
			' error; assume root web
			Vroot = "/"
		end if
		if FrontPage_FileExists(Server.MapPath(Vroot & strG1)) then exit do
		if FrontPage_FileExists(Server.MapPath(Vroot & strG2)) then exit do
		if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1)
		iCount = iCount + 1
		if iCount > 100 then
			' error; assume root web
			Vroot = "/"
			exit do
		end if
	loop
	' map all URL= attributes in _ConnectionString variables
	Application.Lock
	if Len(Application("FrontPage_VRoot")) = 0 then
		Application("FrontPage_VRoot") = Vroot
		UrlVarArray = Application("FrontPage_UrlVars")
		for i = 0 to UBound(UrlVarArray)
			if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i))
		next
	end if
	Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
	' convert URL attribute in conn string to absolute file location
	strVal = Application(AppVarName)
	strKey = "URL="
	idxStart = InStr(strVal, strKey)
	If idxStart = 0 Then Exit Sub
	strBefore = Left(strVal, idxStart - 1)
	idxStart = idxStart + Len(strKey)
	idxEnd = InStr(idxStart, strVal, ";")
	If idxEnd = 0 Then
		strAfter = ""
		strURL = Mid(strVal, idxStart)
	Else
		strAfter = ";" & Mid(strVal, idxEnd + 1)
		strURL = Mid(strVal, idxStart, idxEnd - idxStart)
	End If
	strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL) & strAfter
	Application(AppVarName) = strOut
End Sub
Function FrontPage_FileExists(fspath)
	On Error Resume Next
	FrontPage_FileExists = False
	set fs = CreateObject("Scripting.FileSystemObject")
	Err.Clear
	set istream = fs.OpenTextFile(fspath)
	if Err.Number = 0 then
		FrontPage_FileExists = True
		istream.Close
	end if
	set istream = Nothing
	set fs = Nothing
End Function
</SCRIPT>