<%
sub adata(rs,sql)
   set conn=server.createobject("adodb.connection")
   provider="provider=microsoft.jet.oledb.4.0;"
   dbpath="data source="&server.mappath("db1.mdb")
   conn.open provider & dbpath
   set rs=server.createobject("adodb.recordset")
   set rs.activeconnection=conn
   rs.open sql,conn,3,1
end sub
%>