<%
	dim connstr,conn
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("../system/mdb/system.asp")
	'response.write connstr
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr
%>