%@ LANGUAGE=VBScript %> <%'Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_MULTIPLE_TEXT="Multiple identities for this web site." Const L_IPADDRESS_TEXT="IP Address" Const L_IPPORT_TEXT="TCP Port" Const L_SSLPORT_TEXT="SSL Port" Const L_HOST_TEXT="Host Header Name" Const L_ACCESSDENIED_TEXT="Access Denied" Const L_SELECTITEM_TEXT="Please select an item to delete." dim listSort listSort = Session("ListSort") function heading(width,thestring,sortstr) dim i width = width - len(thestring) for i = width to 0 step -1 thestring = thestring & " " Next if listSort and (sortstr <> "") then thestring = "" & thestring & "" end if heading = thestring end function %>