%@LANGUAGE="VBScript"%>
<%
Option Explicit
Dim ShowErrorDetails, ReirectPage
ShowErrorDetails = False 'Set to true for debugging errors
ReirectPage = "" 'If this is filled in, this is the page to redirect to in case of a 404 error
Dim ASPErr
Set ASPErr = Server.GetLastError()
If ASPErr.Description <> "" Then
If ShowErrorDetails Then
Response.Write(Server.HTMLEncode(ASPErr.Category) & " error '" & Server.HTMLEncode(ASPErr.ASPCode) & Server.HTMLEncode(LCase(Hex(ASPErr.Number))) & "'
")
Response.Write(Server.HTMLEncode(ASPErr.Description) & "
")
Response.Write(Server.HTMLEncode(ASPErr.File) & ", line " & Server.HTMLEncode(ASPErr.Line))
Response.End()
Else
%>
The page cannot be displayed |
|
There is a problem with the page you are trying to reach and it cannot be displayed. | |
Please try the following:
HTTP 500 - Internal server
error
|
The page cannot be foundThe page you are looking for might have been removed, had its name changed, or is temporarily unavailable.Please try the following:
HTTP Error 404 - File or directory not found.
|