Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<% On Error Resume Next %>
If Err.number <> 0 then
TrapError Err.description 'points to sub within include
End If
EvalErrors 'points to sub within include
<%
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
%>