Как вывести результаты работы LS на страницу

[Guest_lek]

Здравствуйте.
Хочу чтобы при открытии базы на странице была некоторая статистика: число документов, размеры вложений и т.д.
Создал вычисляемое поле, в нём вывожу:
имя пользователя: @Name([CN]; @UserName),
почтовый файл: @Subset(@MailDbName; -1),
почтовый сервер: @Subset(@MailDbName; 1),
имя базы данных: @Subset(@DbName; -1)

На LS получил число документов и их размер:

Sub Onload(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim n As Integer
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
n = collection.Count
Messagebox(n & " documents in database")
i=0

Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
i=i+doc.Size
Set doc = collection.GetNextDocument(doc)
Wend
Messagebox("All size of documents: " & i & " bytes")
End Sub

Не могу разобраться, как вывести их на странице, а не в MessageBox

 

[GROMILA]

Боюсь, что для LS-вычислений ты не сможешь использовать возможности страницы, так как там есть только Computed Text, который ограничен формулами.

Можно использовать вместо страницы форму и хранить отдельный документ со всей логикой вычислений.

Если нужно совместить отображение Формы+Страница (outline) то прийдется дробить на соответствующие фреймы.

Может и лучше способ есть, пусть люди скажут.

 

[nor]

вместо страницы используй форму, создай скрытое вычисляемое при создании поле SaveOptions со значением "0".