<%@ LANGUAGE=VBScript %> <%'Option Explicit %> <% Response.Expires = 0 %> <% Const L_CERR_TEXT ="Custom Errors" Const L_CUSTOMERR_TEXT="Custom Error Messages can be a text stream or a pointer to a file (such as an HTML document or an Active Server Page)" Const L_ERROR_TEXT="HTTP Error" Const L_OUTPUTTYPE_TEXT="Type" Const L_TEXTORFILE_TEXT="Contents" Const L_ACCESSDENIED_TEXT="Access Denied" %> <% function heading(width,thestring) width=width - Len(thestring) for i=width to 0 step -1 thestring=thestring & " " Next heading=thestring end function %>
<%= L_CERR_TEXT %>

<%= L_CUSTOMERR_TEXT %>
 
<% if Session("FONTSIZE")="LARGE" then %> <%= heading(12,L_ERROR_TEXT) %> <% else %> <%= heading(20,L_ERROR_TEXT) %> <% end if %> <% if Session("FONTSIZE")="LARGE" then %> <%= heading(26,L_OUTPUTTYPE_TEXT) %> <% else %> <%= heading(18,L_OUTPUTTYPE_TEXT) %> <% end if %> <% if Session("FONTSIZE")="LARGE" then %> <%= heading(90,L_TEXTORFILE_TEXT) %> <% else %> <%= heading(99,L_TEXTORFILE_TEXT) %> <% end if %>