<%
dim cn,rs,connstr
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("../pubcenter.mdb") 
public function cnopen()
	set cn=server.CreateObject("adodb.connection")
	cn.open connStr
end function
public function cnclose()
	if typename(cn)="Connection" then
		if cn.state<>0 then cn.close
		set cn=nothing
	end if
end function
%>