<%
dim conn
dim connstr
connstr="DBQ="+server.mappath("shopping.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.connection")
conn.open connstr
%>
set con=server.createobject("adodb.connection")
con.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("a.mdb")
rs_count=Server.CreateObject("ADODB.Recordset")
sql_count="select id from result"
rs_count.open sql_count,con,1,3