<%
	strcon="Provider = Microsoft.jet.OLEDB.4.0;Data Source="&Server.MapPath("%%DB##/db.mdb")
	set conn=server.CreateObject("ADODB.connection")
	conn.open strcon
	Sub closeConn()
		conn.Close
		Set conn=Nothing
	End sub
%>