<% option explicit response.buffer=true dim conn dim connstr dim db db="../database/datashop.mdb" set conn = server.createobject("adodb.connection") connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db) conn.open connstr sub closeconn() conn.close set conn=nothing end sub %>