Domino Code Fragment

Code Name*
Error handling with Open		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.217.60.35
Description*
Error handling with Open		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Declarations:
%INCLUDE "lsconst.lss"

Sub Initialize
    Dim db As New NotesDatabase("", "")
    Do While Not(db.IsOpen)
         If Messagebox("Open database?", _
         MB_YESNO) = IDYES Then
              Call db.Open("", _
              Inputbox("File name of database"))
         Else
              Exit Sub
         End If
    Loop
    Messagebox "Title:" & Chr(10) & db.Title
End Sub