<%@ 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 %>
<%= L_MULTIPLE_TEXT %>
 
<% if Session("FONTSIZE")="LARGE" then %> <%= heading(36,L_IPADDRESS_TEXT, "ipaddress") %> <% else %> <%= heading(28,L_IPADDRESS_TEXT, "ipaddress") %> <% end if %> <% if Session("FONTSIZE")="LARGE" then %> <%= heading(8,L_IPPORT_TEXT, "ipport") %> <% else %> <%= heading(7,L_IPPORT_TEXT, "ipport") %> <% end if %> <% if Session("FONTSIZE")="LARGE" then %> <%= heading(8,L_SSLPORT_TEXT, "sslport") %> <% else %> <%= heading(10,L_SSLPORT_TEXT, "sslport") %> <% end if %> <% if Session("FONTSIZE")="LARGE" then %> <%= heading(40,L_HOST_TEXT, "host") %> <% else %> <%= heading(30,L_HOST_TEXT, "host") %> <% end if %>
<% end if %>