<%@ language="vbscript" codepage="936"%>
<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("data.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>