Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
town = session.GetEnvironmentString( "HomeTown" )
If source.IsNewDoc Then
Call source.FieldSetText( "HomeTown", town )
End If
End Sub
Sub Querysave(Source As Notesuidocument, _
Continue As Variant)
Dim session As New NotesSession
Call session.SetEnvironmentVar _
("HomeTown",source.FieldGetText("HomeTown"))
End Sub