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