<% Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb")) Response.Write("Conexión con la base de datos conseguida.
") oConn.Close set oConn = nothing %>