<%
		Dim objConn
		Set objConn=Server.CreateObject("ADODB.Connection")
		objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
		Server.MapPath ("../access_db/ecommpro65.mdb") & ";"
		objConn.Open
%>