<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
session.Timeout=50
dim connstr
dim conn
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("XX/#XX.mdb")
conn.Open connstr
%>
<%
sub closeconn()
conn.close
set conn=nothing
end sub
%>