<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&_
"data source="&server.mappath("../database/data.mdb")
conn.open

sub closedb()
conn.close
set rs=nothing
set conn=nothing
end sub
%>