<%
Response.Buffer = True
Response.Charset = "utf-8"
dim startime,endtime,conn,connstr,db
startime=timer()
db="data/maindata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(db)
conn.Open connstr
Function CloseDatabase
conn.close()
set conn=Nothing
End Function
%>