<%
dim myconn,connstr
connstr="DBQ="+server.mappath("hainanweb.mdb")+ _
";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" + _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" +   _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;"  + _
" SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
set myconn=server.createobject("ADODB.CONNECTION")
myconn.open connstr
%>
