<%
   dim conn   
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("../../date/date3f.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr    
sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>

