Dim conn Sub DBOpen() Dim db : db=Server.MapPath(”zzz.mdb”) Set conn=Server.CreateObject(”Adodb.Connection”) On Error Resume Next conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=” & db If Err.Number<>0 then Err.Clear Response.Write(”<h1>The Database link is ERROR</h1>”) Response.End() End If On Error GoTo 0 End Sub Call DBOpen() … … conn.CLose() : Set conn=Nothing
