<%
on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath(""&datamdb&"")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>