This script will attempt to connect to the database you selected. A success message is shown below if the connection suceeded. Otherwise you will see a ODBC error. <% Dim strConn, Conn strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") & "web\data\nothingtoit.mdb;" strConn = Server.MapPath("\") strConn = Left(strConn, Len(strConn)-3) strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & strConn & "web\data\nothingtoit.mdb;" Response.Write("

" & strConn) Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open strConn Conn.Close Response.Write("

" & "Connection Successful. Please reload this web page to make sure the database is not locked.") %>