<%  
 
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  
 
%>