<% 
dim db,conn,connstr
db="bm.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db/"&db&"")
conn.Open connstr
sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>