<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_ENTERINTEGER_ERRORMESSAGE = "Please enter an integer" Const L_FILTERS_TEXT = "ISAPI Filters" Const L_FILTERORDER_TEXT = "Filters installed here are active for this Web site only. Filters are executed In the order listed below." Const L_FILTER_TEXT = "Filter" Const L_STATUS_TEXT = "Status" Const L_EXE_TEXT = "Executable" Const L_PRIORITY_TEXT = "Priority" Const L_ACCESSDENIED_TEXT = "Access Denied" Const L_HIGH_TEXT = "High" Const L_MEDIUM_TEXT = "Medium" Const L_LOW_TEXT = "Low" Const L_SELECTITEM_TEXT = "Please select a filter to delete." Const L_LOADED_TEXT = "Loaded" Const L_LOADING_TEXT = "Loading" Const L_UNLOADED_TEXT = "Unloaded" Const L_UNLOADING_TEXT = "Unloading" On Error Resume Next Dim path, currentobj path = Session("spath") Session("path") = Session("spath") Set currentobj = GetObject(path) Session("SpecObj")=path & "/Filters" Session("SpecProps")="" function heading(width,thestring) Dim i width = width - len(thestring) for i = width to 0 step -1 thestring = thestring & " " Next heading = thestring end function %>
<%= L_FILTERS_TEXT %>

<%= L_FILTERORDER_TEXT %>

<%= heading(9,L_STATUS_TEXT) %> <%= heading(9,L_PRIORITY_TEXT) %> <%= heading(25,L_FILTER_TEXT) %> <%= heading(65,L_EXE_TEXT) %>
<% end if %>