subroutine w3Admin.InsertErrors( messages)
***********************************************************************
* w3Admin.InsertErrors: Displays error messages in the form
*
* in: messages, @am delimited list of messages to include
*
***********************************************************************
* [00] 18Sep00 jr Initial creation
*
Include wbp w3Include
Include bp w3Admin.Include
* Insert messages
msgs = dcount(messages, @am)
CRT "w3Admin.InsertErrors"
if msgs > 0 then
call w3HtmlInsertSection("w3Config", "", "Messages.start")
for i = 1 to msgs
text = trim(messages<i>)
if text # "" then
subs = "#text#":@vm:messages<i>
call w3HtmlInsertSection("w3Config", subs, "Messages.text")
end
next i
call w3HtmlInsertSection("w3Config", "", "Messages.end")
end
return