<% 
   dim conn 
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("jjhmdb/mdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
%>