LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim db As New NotesDatabase("Cathedral/OurServer", "RSmithTest\TestMarkForDelete.nsf") If db.IsOpen Then If db.IsClusterReplication Then db.IsClusterReplication = False Else db.IsClusterReplication = True End If Messagebox db.IsClusterReplication,, _ "Cluster replication is now ..." Else Messagebox "Could not open",, "TestMarkForDelete.nsf" End If End Sub
See Also