LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim db As New NotesDatabase("Cathy/Otus", _ "Test\TestMarkForDelete.nsf") If db.IsOpen Then If db.IsInService Then db.IsInService = False Else db.IsInService = True End If Messagebox db.IsInService,, "In service is now ..." Else Messagebox "Could not open",, "TestMarkForDelete.nsf" End If End Sub
See Also