@If(@IsNewDoc;@Return(
"<SCRIPT Language=\"JavaScript\">location.href = location.href;</SCRIPT>");
"<SCRIPT Language=\"JavaScript\">history.go(-1);</SCRIPT>")

---
エージェント1
---
Sub Initialize
'フォームに入力されたユーザIDをtestuser.nsfの内容と照合します
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim db2 As NotesDatabase
	Dim view2 As NotesView
	Dim doc As NotesDocument
	Dim doc2 As NotesDocument
	Dim docprof As NotesDocument
	
	Dim work_s1 As String
	Dim servername As String
	Dim FormName,MyForm As String
	
	Set db = session.CurrentDatabase
	servername = db.Server
	Set doc = session.DocumentContext
	
'UserIDフィールドに入力された値を、同じディレクトリ内にあるtestuser.nsf内の(userid)ビューを
'利用して利用者ID一覧と照合し、一致した人のNamaeフィールドの値をプロフィール文書のNamae
'フィールドに書き出し。

	work_s1 = doc.UserID(0)
	
	fpath = db.FilePath
	fpath = Left(fpath, Len(fpath) - Len(db.FileName))
	fpath = fpath + "testuser.nsf"
	
	Set db2 = session.GetDatabase( servername,fpath)
	Set view2 = db2.GetView("(userid)")
	Set doc2 = view2.GetDocumentByKey(work_s1 , True)

	If doc2 Is Nothing Then
		Print "一致するものがないです。"
		continue = False
		Exit Sub
	Else

'プロフィール文書に名前セット	
		Set docprof = db.GetProfileDocument("ProfileDoc")		
		Set item = docprof.ReplaceItemValue( "Namae", doc2.Namae(0) )		
		Call docprof.save(True,True)

'フォーム名設定
'ここのところが、上で書いた、別の文書を親文書として返答文書を作るところサンプル。
		FormName="FormB?Openform&ParentUNID="+doc.MainUNID(0)

'目的のフォームを開く。
'JavaScriptがOffのクライアントだと、ここで止まるかも(^^;
		Print "<SCRIPT LANGUAGE='JavaScript'>location.href='" + FormName + "';</SCRIPT>"
		continue = False
		Exit Sub		
	End If
End sub
---
エージェント2
---
FIELD Namae := @If(Namae="";@GetProfileField("ProfileDoc"; "Namae");Namae);
@SetProfileField("ProfileDoc"; "Namae"; "");
""

'いちおう宣言も
	Dim Session As New NotesSession
	Dim DB As NotesDatabase
	Set DB = session.CurrentDatabase 

'ここから。fPath4に目的の形で入ります。
	fpath4 = DB.FilePath
	position = Instr(1,fPath4,"\")
	Do While Position >0	
		Mid(fPath4, position, 1)="/"
		position = Instr(position,fPath4,"\")
	Loop
	fPath4="/"+fPath4