<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	'==FrontPage Generated - startspan==
	Dim FrontPage_UrlVars(9)
	'--Project Data Connection
		Application("CommitteeMembers_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/CommitteeMembers.mdb"
		FrontPage_UrlVars(0) = "CommitteeMembers_ConnectionString"
		Application("CommitteeMembers_ConnectionTimeout") = 15
		Application("CommitteeMembers_CommandTimeout") = 30
		Application("CommitteeMembers_CursorLocation") = 3
		Application("CommitteeMembers_RuntimeUserName") = ""
		Application("CommitteeMembers_RuntimePassword") = ""
	'--Project Data Connection
		Application("TownMeetingMembers_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/TownMeetingMembers.mdb"
		FrontPage_UrlVars(1) = "TownMeetingMembers_ConnectionString"
		Application("TownMeetingMembers_ConnectionTimeout") = 15
		Application("TownMeetingMembers_CommandTimeout") = 30
		Application("TownMeetingMembers_CursorLocation") = 3
		Application("TownMeetingMembers_RuntimeUserName") = ""
		Application("TownMeetingMembers_RuntimePassword") = ""
	'--Project Data Connection
		Application("PropertyValuations_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/PropertyValuations.mdb"
		FrontPage_UrlVars(2) = "PropertyValuations_ConnectionString"
		Application("PropertyValuations_ConnectionTimeout") = 15
		Application("PropertyValuations_CommandTimeout") = 30
		Application("PropertyValuations_CursorLocation") = 3
		Application("PropertyValuations_RuntimeUserName") = ""
		Application("PropertyValuations_RuntimePassword") = ""
	'--Project Data Connection
		Application("ADASelfEvaluationChecklist_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/ADASelfEvaluationChecklist02.mdb"
		FrontPage_UrlVars(3) = "ADASelfEvaluationChecklist_ConnectionString"
		Application("ADASelfEvaluationChecklist_ConnectionTimeout") = 15
		Application("ADASelfEvaluationChecklist_CommandTimeout") = 30
		Application("ADASelfEvaluationChecklist_CursorLocation") = 3
		Application("ADASelfEvaluationChecklist_RuntimeUserName") = ""
		Application("ADASelfEvaluationChecklist_RuntimePassword") = ""
	'--Project Data Connection
		Application("Database1_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/TestFinance.mdb"
		FrontPage_UrlVars(4) = "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/database3.mdb"
		FrontPage_UrlVars(5) = "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/database4.mdb"
		FrontPage_UrlVars(6) = "Database3_ConnectionString"
		Application("Database3_ConnectionTimeout") = 15
		Application("Database3_CommandTimeout") = 30
		Application("Database3_CursorLocation") = 3
		Application("Database3_RuntimeUserName") = ""
		Application("Database3_RuntimePassword") = ""
	'--Project Data Connection
		Application("testfinance_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/TestFinance.mdb"
		FrontPage_UrlVars(7) = "testfinance_ConnectionString"
		Application("testfinance_ConnectionTimeout") = 15
		Application("testfinance_CommandTimeout") = 30
		Application("testfinance_CursorLocation") = 3
		Application("testfinance_RuntimeUserName") = ""
		Application("testfinance_RuntimePassword") = ""
	'--Project Data Connection
		Application("submission_form_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/submission_form.mdb"
		FrontPage_UrlVars(8) = "submission_form_ConnectionString"
		Application("submission_form_ConnectionTimeout") = 15
		Application("submission_form_CommandTimeout") = 30
		Application("submission_form_CursorLocation") = 3
		Application("submission_form_RuntimeUserName") = ""
		Application("submission_form_RuntimePassword") = ""
	'--
	Application("FrontPage_UrlVars") = FrontPage_UrlVars
	'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
	FrontPage_StartSession '==FrontPage Generated==
	FrontPage_ConvertFromODBC '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
	On Error Resume Next
	if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub
	
	sFile = "global.asa"
	sRootPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
	if Left(sRootPath,1) = "/" then sSep = "/" else sSep = "\"
	if Right(sRootPath,1) <> sSep then sRootPath = sRootPath & sSep
	sRootPath = sRootPath & sFile
	
	' discover the VRoot for the current page;
	' walk back up VPath until we match VRoot
	Vroot = Request.ServerVariables("PATH_INFO")
	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 Server.MapPath(Vroot & sFile) = sRootPath 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
Sub FrontPage_ConvertFromODBC
	On Error Resume Next
	if Len(Application("ASP_OS")) > 0 then exit sub
	str = "_ConnectionString"
	slen = Len(str)
	set oKnown = Server.CreateObject("Scripting.Dictionary")
	oKnown.Add "DRIVER",""
	oKnown.Add "DBQ",""
	oKnown.Add "SERVER",""
	oKnown.Add "DATABASE",""
	oKnown.Add "UID",""
	oKnown.Add "PWD",""
	Application.Lock
	For each item in Application.Contents
		if UCase(Right(item,slen)) = UCase(str) then
			sName = Left(item,Len(item)-slen)
			sConn = Application(item)
			if InStr(LCase(sConn),"provider=") < 1 and Len(Application(sName & "_ConnectionTimeout"))>0 then
				sArr = Split(sConn,";")
				set oDict = Server.CreateObject("Scripting.Dictionary")
				bUnknown = False
				for i = 0 to UBound(sArr)
					s = sArr(i)
					idx = InStr(s,"=")
					sKey = UCase(Trim(Left(s,idx-1)))
					sVal = Trim(Mid(s,idx+1))
					oDict.Add sKey, sVal
					if Not oKnown.Exists(sKey) then bUnknown = True
				next
				if bUnknown = False and oDict.Exists("DRIVER") then
					sDrv = oDict.Item("DRIVER")
					sNew = ""
					if InStr(sDrv,"Microsoft Access") > 0 and oDict.Exists("DBQ") and not (oDict.Exists("UID") or oDict.Exists("PWD")) then
						sNew = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oDict.Item("DBQ")
					elseif InStr(sDrv,"SQL Server") > 0 and oDict.Exists("SERVER") and oDict.Exists("DATABASE") then
						sNew = "Provider=SQLOLEDB;Data Source=" & oDict("SERVER") & ";Initial Catalog=" & oDict("DATABASE")
						if oDict.Exists("UID") then sNew = sNew & ";User ID=" & oDict("UID")
						if oDict.Exists("PWD") then sNew = sNew & ";Password=" & oDict("PWD")
					end if
					if sNew <> "" then
						Application(item) = sNew
					end if
				end if
				set oDict = Nothing
			end if
		end if
	Next
	Application.Unlock
	Set oKnown = Nothing
End Sub
</SCRIPT>
<head><title>Web Site Settings for Active Server Pages</title><html xmlns:mso="urn:schemas-microsoft-com:office:office" xmlns:msdt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882">
<!--[if gte mso 9]><xml>
<mso:CustomDocumentProperties>
<mso:connectionstatus msdt:dt="string">CommitteeMembers=1 TownMeetingMembers=1 PropertyValuations=1 ADASelfEvaluationChecklist=1</mso:connectionstatus>
</mso:CustomDocumentProperties>
</xml><![endif]-->
<meta name="Microsoft Theme" content="copy-of-blends 011, default">
</head>