Dim s As New NotesSession
Dim view As NotesView
Dim context As NotesDocument
Dim arg As String
Dim doc As notesdocument
Dim db As NotesDatabase
Set db = s.currentdatabase
Set context = s.DocumentContext
arg = s.DocumentContext.Query_String(0)
p1 = Instr(arg, "&")
If p1 <> 0 Then
arg = Lcase(Mid$(arg, p1 + 1))
Else
arg = ""
End If
If arg = "" Then
Set view = db.GetView( "XML" )
Call view.Refresh
Set doc = view.GetFirstDocument
Else
Set doc = db.GetDocumentByUNID(arg)
End If
XML = doc.XML(0)
Print "Content-type: text/xml; charset=windows-1251"
Print XML
End Sub
Please help me to find any full text operation here.