Domino reads the document with the proxy and generates an XML document.

Write this agent must pay attention to fault tolerance. Otherwise an error can affect the entire XML documentation.

BULIDXML? OPENAGENT

When used:

VAR XML = New ActiveXObject ("Microsoft.xmLDom"); XML.Assync = false; Xml.Load ("BulidXML? OpenAgent");

= - = - = - = - = - = - = - = - = - = - = - = - = - = - = - = - = - =

Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Set view = db.GetView ( "Tasks") Set doc = view.GetFirstDocument Print {Content-Type: text / XML} print {cache-control: no-cache} print {} while not doc is nothing print} while not doc is nothing print {} print {} Username>} Print Doc.Worker (0) Print {} print {} print {} print {} print doc.Universalid print {< / fileID>} Print Doc.content Print {} print {} print doc.starttime (0) Print {} print {} print DOC. Endtime (0) Print {} print {} print doc.statu (0) Print {} print {} = "" "" "" "" Doc.Hours (0) Else Print "0" end if print {} print {} if not doc.leaders (0) = "" "" "" "" "" "" "" "" "" "" Ders (0) Else Print "end if print {} in not doc.pingjia (0) =" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " "End if print {} print {} set doc = view.getnextdocument (doc) Wend Print {} end SUB