<%
Dim strErrorMessage
Dim binErrors
'Init vars
strErrorMessage = "-Error-" 'or whatever
binErrors = False
Sub TrapError(strError)
binErrors = True 'there was an error detected.
strErrorMessage = strErrorMessage & strError
End Sub
sub EvalErrors()
if binErrors then
'send an e-mail
'display an error message (strErrorMessage)
'whatever else
end if
end sub
%>