Web Agent that out puts XML ------->

Sub Initialize

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView

Set db = s.currentDatabase
Set view = db.GetView( "Color Jumps" )
Set doc = view.GetFirstDocument

Print "Content-type: text/xml" 'Prevents Domino from sending default headers.

Print |<?xml version="1.0" encoding="utf-8"?>| 'xml header

Print "<JumpLog>" 'JumpLog is the root element of the XML document.

While Not ( doc Is Nothing )
'Loop as long as there are document objects available.
Print "<Jump>"
'Send the parent element for each Jump document.
Print "<JumpNumber>"+doc.number(0)+"</JumpNumber>"
Print "<date>"+doc.Date(0)+"</date>"
Print "<Altitude>"+Cstr(doc.Altitude(0))+"</Altitude>"
Print "<FreeFallTime>"+Cstr(doc.FF_Time(0))+"</FreeFallTime>"
Print "</Jump>"
'Close the Jump element tag.
Set doc = view.GetNextDocument( doc )
'Get the next document in the view.
Wend
Print "</JumpLog>"
End Sub