Examples: IsInService property (NotesDatabase - LotusScript®)

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