Test

<html>
<head>
<title>Test</title>
</head>
<body>

<%
Dim strDBPath, strConnString, my_Conn, rs

strDBPath = Server.MapPath("******/******.mdb")
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath

on error Resume Next
Set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Errors.Clear
my_Conn.Open strConnString

If my_conn.Errors.Count <> 0 Then
    For counter = 0 To my_conn.Errors.Count -1
        ConnErrorNumber = my_conn.Errors(counter).Number
        ConnErrorDesc = my_conn.Errors(counter).Description
        If ConnErrorNumber <> 0 Then
            strtemp = "<p>" & ConnErrorNumber & " : " & ConnErrorDesc & "</p>"
        End If
    Next
    my_conn.Errors.Clear

    Set my_Conn = Nothing
    on error goto 0
    Response.Write strtemp
End If
%>
</body>
</html>