Exception
<% switch Web.getExn () of
Fail msg => %>
Fail: <% Web.htmlNl msg %>
<% | Init.C.Sql msg => %>
SQL: <% Web.htmlNl msg %>
<% | Init.Access msg => %>
Authorization error: <% Web.htmlNl msg %>
<% | Web.Format s => %>
Format: <% Web.htmlNl s %>
<% | ex => %>
Unknown exception kind. Backtrace:
<% foreach s in SMLofNJ.exnHistory ex do %>
<% Web.html s %>
<% end
end %>