
<% Dim db Set db=Server.CreateObject("ADODB.Connection") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("shop.mdb") %>

<% Dim db Set db=Server.CreateObject("ADODB.Connection") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("shop.mdb") %>