<%
	' Property of and written by Adam Ford -->
	' Make sure to change the strDBPath variable to include the name of the database

	' Set up the variables for the database connection
	dim strDBPath
	dim strConnectionString 
	dim objDBConn
	dim objRS
	dim strSQL
	dim intStartID
	dim strSortMethod
	dim intCategory ' used for category specific pages

' Establish a connection with data source using ODBC
'	set dbCon = server.createobject("ADODB.Connection")
'	dbCon.open "hv"

	' Establish a connection with data source using OLEDB

	' changed 1/25/02
'	response.write(strDBPath)
'	strDBPath = "d:\inetpub\wwwroot\038195\fojlq10qg\cgi-bin\homevestors.mdb"
	

' this was the original path, but was changed by adam on 12/18/01
'	strDBPath = "d:\inetpub\wwwroot\083195\fojlq10qg\cgi-bin\homevestors.mdb"

	If Application("DBPath") = "" Then
		Application("DBPath") = Server.MapPath("\common\")
	End If
	strDBPath = Application("DBPath") & "\homevestors.mdb"

	strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=hvdb;Data Source=" & strDBPath & ""
	set objDBConn = server.createobject("ADODB.Connection")
	objDBConn.open strConnectionString

	strDBPath = empty
	strConnectionString = empty
%>