<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% On Error Resume Next Dim path, currentobj, ipsecobj path=Session("dpath") Session("path")=path Set currentobj=GetObject(path) Set ipsecobj=currentobj.IPSecurity Session("SpecObj")="IPSecurity" Session("SpecProps")="GrantbyDefault,IPDeny,IPGrant,DomainGrant,DomainDeny" %> <% ' Do not use top.title.Global.update flag if page is loaded into a dialog bUpdateGlobal = false %> " LINK="#000000" VLINK="#000000" ALINK="navy" LEFTMARGIN=5 TOPMARGIN=5 onLoad="loadList();loadHelp();">

<%= sFont("","","",True) %><%= L_TCPRESTRICT_TEXT %>

<%= sFont("","","",True) %> <%= L_BYDEFAULT_TEXT %>

<%= sFont("","","",True) %> <%= sFont("","","",True) %> <% if ipsecobj.GrantbyDefault then %> <% else %> <% end if %> <%= sFont("","","",True) %> <%= L_GRANTED_TEXT %>

<%= sFont("","","",True) %> <%= sFont("","","",True) %> <% if ipsecobj.GrantbyDefault then %> <% else %> <% end if %> <%= sFont("","","",True) %> <%= L_DENIED_TEXT %>

<%= sFont("","","",True) %><%= L_EXCEPTBELOW_TEXT %>

<% end if %>