<% 
 db="data/data.mdb"              
 connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
 set conn=server.CreateObject("ADODB.Connection")
 conn.open connstr
Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub connclose()
    conn.close()
	set conn=nothing
End Sub
%>
