例: Server property (Database - Java™)

このアクションは、現在のデータベースのサーバーの名前を表示します。

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