<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const HTTPCOMPRESSIONPATH = "IIS://localhost/w3svc/Filters/Compression/Parameters" On Error Resume Next Dim path,currentobj,Inst path=Session("spath") Session("path")=path Session("SpecObj")="IIS://localhost/w3svc/Filters/Compression/Parameters" Session("SpecProps")="HCDoStaticCompression,HCDoDynamicCompression,HCCompressionDirectory,HCDoDiskSpaceLimiting,HCMaxDiskSpaceUsage" Set currentobj=GetObject(path) %> <% if Session("canBrowse") then %> <% end if %> " TOPMARGIN=5 TEXT="#000000">
<%= sFont("","","",True) %> <%= L_MASTERPROPS_TEXT %>

<%= L_DEFAULTWEBSITE_TEXT %> HEIGHT=2 BORDER=0 ALIGN="middle">

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

<%= writeSelect("DownlevelAdminInstance", "","top.title.Global.updated=true;", false) %> <% For Each Inst in currentobj if isNumeric(Inst.Name) then if currentobj.DownlevelAdminInstance = Inst.Name then Response.write "

<%= sFont("","","",True) %> <%= L_HTTPCOMPRESS %> HEIGHT=2 BORDER=0 ALIGN="middle">

" CELLPADDING=0 CELLSPACING=0>
<%= sFont("","","",True) %> <%= checkbox("HcDoStaticCompression","",false) %> <%= L_STATICFILES %>
<%= checkbox("HCDoDynamicCompression","",false) %> <%= L_APPFILES %>

<%= sFont("","","",True) %> <%= L_TEMPFOLDER %> <%= sFont("","","",True) %> <%= text("HCCompressionDirectory",L_TEMPFOLDER_NUM,"","","checkValueChange(this);",true,false) %>

<%= sFont("","","",True) %> <%= L_MAXFOLDERSIZE %>     <%= sFont("","","",True) %> <%= printradio("HCDoDiskSpaceLimiting", not currentobj.HCDoDiskSpaceLimiting,"document.userform.HCDoDiskSpaceLimiting.value = 'False';setCntrlState(false,hdnHCMaxDiskSpaceUsage);",true) %> <%= L_UNLIMITED %>

<%= printradio("HCDoDiskSpaceLimiting", currentobj.HCDoDiskSpaceLimiting,"document.userform.HCDoDiskSpaceLimiting.value = 'True';setCntrlState(true,hdnHCMaxDiskSpaceUsage);",true) %> <%= L_LIMITTO %>:  <%= inputbox(0,"text","hdnHCMaxDiskSpaceUsage", cInt(currentobj.HCMaxDiskSpaceUsage/1048576),L_LIMITTO_NUM,"","", "isNum(this,1,4294967295);HCMaxDiskSpaceUsage.value=MtoB(hdnHCMaxDiskSpaceUsage);HCDoDiskSpaceLimiting.value = 'True';rdoHCDoDiskSpaceLimiting[1].checked=true;",False,False,False) %>  <%= L_MB %>
<%= writehidden("HCMaxDiskSpaceUsage") %>

<% end if %>

<% end if %>