<%
  connstring="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
  set conn=server.createobject("adodb.connection")
  conn.open connstring
  function db_close()
    conn.close
    set conn=nothing
  end function
 %>