<%Set Banco = Server.CreateObject("ADODB.Connection") sPath = left(Request.ServerVariables("APPL_PHYSICAL_PATH"), Len(Request.ServerVariables("APPL_PHYSICAL_PATH"))-4) & "dados\nc\unidade.mdb" Banco.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath 'Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.mappath("\bancos\nc\unidade.mdb") Banco.Open%>