<%
' Generic Database - Error Message
' Notice: (c) 1998, 1999, 2000 Eli Robillard, All Rights Reserved.
' E-Mail: erobillard@ofifc.org
' URL: http://www.ofifc.org/Eli/ASP/
' Revision History:
' 29 Oct 1999 - Improved error handling during Edits
' 30 Jun 1999 - First created or released
Response.Buffer = True
If txtError = "" Then
' Default Error message text
txtError = "Error"
txtErrorMsg1 = "An Error Occurred"
txtErrorMsg2 = "Possible causes:"
txtErrorMsg3 = "You do not have permission to view this page."
txtErrorMsg4 = "Your session timed out."
txtErrorMsg5 = "If this problem continues, please notify your system administrator. "
txtErrorMsg6 = "Please report the above error to your system administrator. "
txtErrorMsg7 = "Your system administrator will want to know what you clicked to receive this message."
txtErrorMsg8 = "Scripting error."
End If
%>
<%=txtError%>
<%=txtErrorMsg1%>
<%=txtErrorMsg2%>
<% If Session("ErrNumber") = 0 Then %>
- <%=txtErrorMsg4%>
- <%=txtErrorMsg3%>
<%=txtErrorMsg5%> <%=txtErrorMsg7%>
<% ElseIf Session("ErrNumber") = 99 Then %>
<%= Session("ErrDesc") %>
<% Else %>
<%=txtErrorMsg6%> <%=txtErrorMsg7%>
<% End If %>
<% If Session("ErrNumber") <> 0 Then %>
Error: <%= Session("ErrDesc") %> (<%= Session("ErrNumber") %>)
Source: <%= Session("ErrSource") %>
Line: <%= Session("ErrLine") %>
<%= Session("ErrMsg") %>
<% Session("ErrorNumber") = 0
End If %>