<% 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.mode = 3 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../aspnews.mdb") %>