Dim conn
Sub DBOpen()
Dim db : db=ServerMapPath(”zzzmdb”)
Set conn=ServerCreateObject(”AdodbConnection”)
On Error Resume Next
connOpen “Provider=MicrosoftJetOLEDB;Data Source=” & db
If ErrNumber<> then
ErrClear
ResponseWrite(”<h>The Database link is ERROR</h>”)
ResponseEnd()
End If
On Error GoTo
End Sub
Call DBOpen()
… …
connCLose() : Set conn=Nothing
