Domino Code Fragment

Code Name*
Error handling using IsOpen		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.144.253.161
Description*
Error handling using IsOpen		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("", _
    Inputbox("File name of databse"))
    Do While Not(db.IsOpen)
         If Messagebox("Bad file name! Try again?", _
         MB_YESNO) = IDYES Then
              Call db.Open("", _
              Inputbox("File name of databse"))
         Else
              Exit Sub
         End If
    Loop
    Messagebox "Title:" & Chr(10) & db.Title
End Sub