<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_NOTIMPLEMENTED_ERRORMESSAGE = "This feature is not yet implemented." Const L_FILETYPES_TEXT = "File Types" Const L_REGTYPES_TEXT = "Registered file types:" Const L_NEWTYPE_TEXT = "New Type..." Const L_REMOVE_TEXT = "Remove" Const L_EDIT_TEXT = "Edit..." Const L_EXT_TEXT = "Extension" Const L_CONENTTYPE_TEXT = "Content Type (MIME)" Const L_SELECTITEM_TEXT="Select a mime type to delete." 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_REGTYPES_TEXT %>

<%= heading(18,L_EXT_TEXT) %> <%= heading(36,L_CONENTTYPE_TEXT) %>
<% end if %>