You are viewing this page out of context. To see it in the context it is intended please click here.

About This Page

Reply posted by Samantha on Mon 1 Apr 2002 in response to Keeping the boss happy

Re: Agent Done? - Again

Thanks Eric.


I'm not getting "agent done" msg anymore.


However no view data is being returned! If anyone has an idea why my script
does not seem to enter the While loop, I might actually get somewhere!


I used the code given in the example (with Eric's two added lines) & I'm
running Notes 5.0:


Dim sess As New NotesSession
Dim db As NotesDatabase
Dim qs As NotesView
Dim nv As NotesViewNavigator
Dim ne As NotesViewEntry
Set db = sess.CurrentDatabase
Set qs = db.GetView("ByStore2")
Set nv = qs.CreateViewNav
Set ne = nv.GetFirst

Print |Content-Type:application/vnd.ms-excel|

Print |<table border="1"><tr><td
width="80">Quarter</td><td>Sales</td></tr>|

While Not(ne Is Nothing)

Print|<tr><td>| + ne.ColumnValues(1) + |</td><td >| +
ne.ColumnValues(2) + |</td></tr>|

Set ne = nv.GetNext( ne )
Wend