<%
dim dd,connstr
dd="data.mdb"
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath (""&dd&"")
set bb=server.createobject ("adodb.connection")
bb.open connstr
%>

<%
dim bb,connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath ("data.mdb")
set bb=server.createobject ("adodb.connection")
bb.open connstr
%>