Examples: Server property (Database - Java)

This action displays the name of the server for the current database.

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim server As String
	Dim title As String
	Set db = session.CurrentDatabase
	server = db.Server
	title = db.Title
	If server = ""  Then
		Messagebox "This database is local.",, title
	Else
		Messagebox "This database resides on " + server + ".",, title
	End If
End Sub