Scheduled Agent Not Working

Max points on this one, Experts.

I have an agent that works fine when activated in the UI, but not as a scheduled agent.  I believe I have removed all references to any UI coding, and the agent log shows it as having run without error, yet...the results that take place when run manually do not happen when run scheduled.

I realize that this code could be written far more efficiently, as I had forgotten about the UnprocessedDocuments property when I wrote this (it's been a little while with my Lotusscript skills); additionally, I need to reacquaint myself with FTSearch.  Still, while inefficient, I do not see barriers to the script performing on a scheduled basis rather than a manual one.


WHAT THE CODE SHOULD DO:
Essentially, what should happen (and DOES happen when run via a button) is that the database ACL entries are scanned to see which users have the "[Forum]" role.  If they do, then a search is done of all documents in particular view based on other matching criteria, and those documents matching are placed in a folder noted in the acl entry's profile document.  Again, this happens when I call the agent from a button; but when run on a scheduled basis, the documents are not placed into these folders.

SERVER RIGHTS AND AGENT LOG:
According to the log, the agent is running and I get no error messages in the log mentioning limited rights. Remote bugging is not turned on, and I just began this work for a multinational organization and am still trying to establish a relationship with my server admins, so I don't yet have much recourse there. Here is the text from the agent log:

Started running agent 'FindNewSubs' on 07/01/2008 08:23:29 PM
Running on all documents in database: 1084 total
Found 1084 document(s) that match search criteria
Ran LotusScript code
Done running agent 'FindNewSubs' on 07/01/2008 08:23:30 PM

I'll attach here the code snippet.  Feel free, All, to have at my code and point out any flaws even if they do not pertain to the question; I've no pride here whatsoever, and have already nailed the planks together and assumed the position :-)

Thanks to all who respond

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim acl As NotesACL
	Dim aclEntry As NotesACLEntry
	Dim vc As NotesViewEntryCollection
	Dim fdoc  As NotesViewEntry
	Dim bdoc As NotesDocument
	Dim pView As NotesView
	Dim pDoc As NotesDocument
	Dim pItem As NotesItem	
	Dim vItem As NotesItem
	Dim tf As String
 
	Set db = session.CurrentDatabase
	Set view = db.GetView("(byProduct)")	
	Set acl = db.ACL
	Set aclentry = ACL.GetFirstEntry	
	Goto FindForumMembers
	
PutDocsInFolder:	
	Forall role In aclentry.roles
		Set vc = view.GetAllEntriesByKey(role)
		Set fdoc = vc.GetFirstEntry	
		Do While Not fdoc Is Nothing
			Set bdoc = fdoc.Document
			Set vitem = bdoc.GetFirstItem("lstVoters")
			p = vitem.contains(aName) 
			If p = False Then
			   Call bdoc.PutInFolder( tf)		
			End If
			Set fdoc = vc.GetNextEntry(fdoc)	
		Loop
	End Forall		
	Return
	
FindForumMembers:
	Do While Not aclentry Is Nothing
		Forall role In aclentry.Roles
			aName = aclentry.name
			Select Case role
			Case Is = "[Forum]"			
				Set pView = db.GetView("Profiles")
				Set pDoc = pview.GetDocumentByKey(aName)
				Set pItem = pdoc.GetFirstItem("txtSubFolder")
				tf = pItem.text
				Gosub PutDocsInFolder
				Exit Forall
			End Select
		End Forall
		Set aclEntry= acl.GetNextEntry(aclentry)	
	Loop	
End Sub