<%
   dim conn   
   dim strconn

   on error resume next
  strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("yjh610.mdb") 
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open strconn 
 
%>


