home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / nnmnu.asp < prev    next >
Encoding:
Text File  |  1997-08-24  |  17.7 KB  |  507 lines

  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_SERVICE_ERROR = "Service Error is: "
  7. L_TITLE_TEXT = "Microsoft NNTP Server Administration"
  8. L_TCP_PORT_CHANGE = "The change in port number will not take effect until the service has been restarted."
  9. L_PATH_HEADER_FIELD_NAME_TXT = "Invalid Path Header Field name."
  10. L_MENU_TITLETXT = "News Admin"
  11. L_SERVERTXT = "Services"
  12. L_VIRT_SERVERTXT = "NNTP Site"
  13. L_SESSIONSTXT = "Sessions"
  14. L_GENERALTXT = "NNTP Settings"
  15. L_FEEDSTXT = "Feeds"
  16. L_EXPIRATIONTXT = "Expiration Policies"
  17. L_GROUPSTXT = "Groups"
  18. L_DIRECTORIESTXT = "Directories"
  19. L_DIR_SECURITYTXT = "Security"
  20. L_HOME_DIRECTORY_TXT="Home Directory"
  21.  
  22. REM END LOCALIZATION
  23. %>
  24.  
  25. <% REM Conversion Variables %>
  26. <% ONE_KILOBYTE = 1024 %>
  27. <% ONE_MEGABYTE = 1024 * 1024 %>
  28.  
  29. <% REM Get variables %>
  30. <% REM svr = Server name %>
  31. <% REM a = Action to be performed by server-side code (apply) %>
  32. <% REM pg = Current page in main frame %>
  33.  
  34. <% save = Request("save") %>
  35. <% svr  = Session("svr") %>
  36. <% pg   = Request("pg") %>
  37.  
  38.  
  39. <% REM Set or Get find from Session Object if it exists to maintain %>
  40. <% REM the search value for the groups page                         %>
  41.  
  42. <% if (Session("find") = "") then %>
  43.     <% Session("find") = Request("txtFindNewsgroup") %>
  44. <% end if %>
  45. <% find = Session("find") %>
  46. <% if (find = "") then %>
  47.     <% find = "*" %>
  48. <% end if %>
  49.  
  50.  
  51. <% REM If no main page is selected, set to Service page %>
  52. <% if (pg = "") then %>
  53.     <% pg = "nnser" %>
  54. <% end if %>
  55.  
  56.  
  57. <% REM Determine browser type (MS Internet Explorer or NS Navigator) %>
  58.  
  59. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"IE") then %>    
  60.     <% browser = "ms" %>
  61. <% else %>
  62.     <% browser = "ns" %>
  63. <% end if %>
  64.  
  65. <% REM Include _cnst file to force logon by anonymous users (if access denied, body of file ignored) %>
  66.  
  67. <!--#include file="_cnst.asp" -->
  68.  
  69. <%  if (cont = true) then %>
  70.  
  71. <% On Error Resume Next %>
  72. <% set nntpService = Server.CreateObject("Nntpadm.VirtualServer.1") %>
  73. <% if (Err <> 0 ) then %>    
  74.     <script language="javascript">
  75.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  76.     </script>
  77. <% end if %>
  78.  
  79. <% REM Get pointer to Virtual Roots Object %>
  80. <% set vrObj = nntpService.virtualroots %>
  81.  
  82. <% REM Set Virtual Root Server %>
  83. <% vrObj.server = Session("svr") %>
  84.  
  85. <% REM Set Virtual Root Service Instance %>
  86. <% vrObj.ServiceInstance = Session("ServiceInstance") %>
  87.  
  88. <% REM Enumerate Virtual Roots %>
  89. <% vrObj.Enumerate %>
  90.  
  91. <% REM Get Default Virtual Root (at index 0) %>
  92. <% set vr = vrObj.Item(0) %>
  93.  
  94. <% REM Set nntp Service Server %>
  95. <% On Error Resume Next %>
  96. <% nntpService.Server = svr %>
  97. <% if (Err <> 0 ) then %>    
  98.     <script language="javascript">
  99.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  100.     </script>
  101. <% end if %>
  102.  
  103. <% REM Set nntp Service Service Instance %>
  104. <% On Error Resume Next %>
  105. <% nntpService.ServiceInstance = Session("ServiceInstance") %>
  106. <% if (Err <> 0 ) then %>    
  107.     <script language="javascript">
  108.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  109.     </script>
  110. <% end if %>
  111.  
  112. <HTML>
  113. <HEAD>
  114. <SCRIPT LANGUAGE="javascript">
  115. var uForm = new Object();
  116.  
  117. uForm.saveValues = saveValues;
  118. uForm.writeCache = writeCache;
  119.  
  120. function saveValues()
  121. {
  122.     document.hiddenform.submit();
  123. }
  124.  
  125. <% REM Javascript function loadMain loads main page (false only when changes are saved as result of frameset unloading) %>
  126.  
  127. function loadMain()
  128. {
  129. <% if (Request("loadmain") = "false") then %> 
  130.     return;
  131. <% else %>
  132.     top.frames[3].location = "nntl.asp?svr=<% = svr %>&pg=<% = pg %>";
  133.     parent.frames[2].location = "nnredir.asp?svr=<% = svr %>&pg=<% = pg %>&find=<% = find %>";
  134. <% end if %>
  135. }
  136.  
  137. <% REM Javascript function writeCache checks "updated" flag and confirms whether changes should be saved %>
  138. <% REM The "type" argument ("change", when moving from page to page, or "unload", when unloading frameset) determines whether to set "loadMain" flag %>
  139. <% REM The "pg" argument will load correct main page upon reload %>
  140.  
  141. function writeCache(type,pg) 
  142. {
  143.     if (type == "change") 
  144.     {
  145.         if (hform.updated.value == "true") 
  146.         {
  147.             hform.updated.value = "false";
  148.             if (confirm("You have unsaved property changes. Do you want to save them now?")) 
  149.             {
  150.                 if (hform.pg.value == "nnadv") 
  151.                 {
  152.                     parent.main.body.uForm.writeForm();
  153.                 }
  154.                 else 
  155.                 {
  156.                     parent.main.uForm.writeForm();
  157.                 }
  158.                 hform.pg.value = pg;
  159.                 hform.helpfilename.value = "help/" + pg + "h.htm";
  160.                 hform.save.value = "apply";
  161.                 document.hiddenform.submit();
  162.                 //return true;
  163.             }
  164.         }
  165.         return false;
  166.     } 
  167.     else 
  168.     {
  169.         return false; // unload case currently undefined due to bug
  170.     }        
  171. }
  172.  
  173.  
  174. <% REM Javascript function changePage %>
  175.  
  176. function changePage(pg) 
  177. {
  178.     hform = document.hiddenform;
  179.     if (pg != hform.pg.value) 
  180.     {
  181.         if (writeCache('change',pg) == false) 
  182.         {
  183.             hform.pg.value = pg;
  184.             hform.helpfilename.value = "help/" + pg + "h.htm";
  185.             if (changeToolbar(pg)) 
  186.             {
  187.                 parent.frames[3].location = "nntl.asp?svr=<% = svr %>&pg=" + pg;
  188.             }
  189.             parent.frames[2].location = "nnredir.asp?svr=<% = svr %>&pg=" + pg + "&find=<% = find %>";
  190.         }
  191.     }
  192. }
  193.  
  194.  
  195. <% REM Javascript function changeToolbar checks toolbar identifier "tlpg" against page to be loaded ("pg") to determine if a new toolbar needs to be loaded %>
  196.  
  197. function changeToolbar(pg) 
  198. {
  199.     tlpg = top.frames[3].document.hiddenform.pg.value;
  200.     if (tlpg != pg) 
  201.     {
  202.         if (((pg == "nnsec") || (pg == "nnser") || (pg == "nngen") || (pg == "nnexppl")) && ((tlpg != "nnsec") && (tlpg != "nnser") && (tlpg != "nngen") && (tlpg != "nnexppl"))) 
  203.         {
  204.             return true;     
  205.         }
  206.         else 
  207.         {
  208.             if (((pg == "nnbld") || (pg == "nnf") || (pg == "nnexp") || (pg == "nndir") || (pg == "nnexpg")) && ((tlpg != "nnbld") && (tlpg != "nnf") && (tlpg != "nnexp") && (tlpg != "nndir") && (tlpg != "nnexpg"))) 
  209.             {        
  210.                 return true;
  211.             }
  212.             else 
  213.             {
  214.                 if (((pg == "nnvs") && (tlpg != "nnvs")) || ((pg == "nnses") && (tlpg != "nnses")) || ((pg == "nngrp") && (tlpg != "nngrp")) || ((pg == "nnadv") && (tlpg != "nnadv")))
  215.                 {
  216.                     return true;
  217.                 }
  218.             }
  219.         }
  220.     }
  221.     return false;
  222. }
  223.  
  224. <% REM Javascript function changeSrv returns to tree control interface %>
  225.  
  226. function changeSrv() 
  227. {
  228.     top.location = "nnadv.asp?svr=<% = svr %>";
  229. }
  230.  
  231. <% REM Javascript function imgAct controls movement of red navigation arrow %>
  232. <% REM If browser is IE, use floating frame nav arrow; if Netscape, use image replacement nav arrow %>
  233.  
  234. <% if (browser = "ms") then %>
  235.     
  236. function imgAct(num)
  237. {
  238.     document.toc.location = "nnmnus.asp?sel=" + num;
  239. }
  240.  
  241. <% else %>
  242.  
  243. function imgAct(pg)
  244. {
  245.     document.nnser.src = "images/gnictoc0.gif";    
  246.     document.nnses.src = "images/gnictoc0.gif";    
  247.     document.nngen.src = "images/gnictoc0.gif";
  248.     document.nnexp.src = "images/gnictoc0.gif";
  249.     document.nngrp.src = "images/gnictoc0.gif";
  250.     document.nndir.src = "images/gnictoc0.gif";
  251.     document.nnsec.src = "images/gnictoc0.gif";
  252.     document.nnvs.src  = "images/gnictoc0.gif";
  253.        document[pg].src   = "images/gnictoc1.gif";
  254. }
  255. <% end if %>
  256.  
  257. </SCRIPT>
  258. <TITLE><% = L_TITLE_TEXT %></TITLE>
  259. </HEAD>
  260.  
  261. <BODY BACKGROUND="images/gnback.gif" BGCOLOR="#000000" LEFTMARGIN=10 TOPMARGIN=10 TEXT="#CCCCCC" LINK="#FFCC00" ALINK="#FFCC00" VLINK="#FFCC00" onLoad="loadMain();" onUnload="writeCache('unload','');">
  262.  
  263. <% REM Display navigational links %>
  264. <% REM If browser is IE, use floating frame nav arrow; if Netscape, use image replacement nav arrow %>
  265.  
  266. <% if (browser = "ms") then %>
  267.     <!--#include file="nnmnums.asp"-->
  268. <% else %>
  269.     <!--#include file="nnmnuns.asp"-->
  270. <% end if %>
  271.  
  272. <% REM Perform "apply" action %>
  273.  
  274. <% if (save = "apply") then %>
  275.  
  276.     <% REM Get Service Properties %>
  277.     <% On Error Resume Next %>
  278.     <% nntpService.Get %>
  279.     <% if ( Err <> 0 ) then %>
  280.         <script language="javascript">
  281.             alert( "<% = L_SERVICE_ERROR = Err.description %>");
  282.         </script>
  283.     <% end if %>
  284.  
  285.  
  286.     <% REM Get pointer to bindings object %>    
  287.     <% On Error Resume Next %>
  288.     <% set binding = nntpService.Bindings %>
  289.     <%  if (Err <> 0 ) then %>    
  290.         <script language="javascript">
  291.             alert("<%  = Err.description %>");
  292.         </script>
  293.     <%  end if %>
  294.  
  295.     <% REM Get pointer to bindings item %>
  296.     <% On Error Resume Next %>
  297.     <% set bindings = nntpService.Bindings.Item(0) %>
  298.     <%  if (Err <> 0 ) then %>    
  299.         <script language="javascript">
  300.             alert("<%  = Err.description %>");
  301.         </script>
  302.     <%  end if %>
  303.  
  304.     <% REM next 2 properties are part of "Bindings" object %>
  305.     <% bindings.IPAddress = Request("txtIPAddress") %>
  306.     <% bindings.TCPPort = Request("txtTCPPort") %>
  307.     <% bindings.SSLPort = Request("txtSSLPort") %>
  308.  
  309.  
  310.     <% REM Change binding to new values. Method takes index of %>
  311.     <% REM bindings item and a pointer to the bindings item    %>
  312.  
  313.     <% On Error Resume Next %>
  314.     <% binding.ChangeBinding 0, bindings %>
  315.     <%  if (Err <> 0 ) then %>    
  316.         <script language="javascript">
  317.             alert("<%  = Err.description %>");
  318.         </script>
  319.     <%  end if %>
  320.  
  321.     <% REM Set Service page properties %>
  322.  
  323.     <% nntpService.Comment           = Request("txtDescription") %>
  324.     <% nntpService.UucpName          = Request("txtPathHeaderField") %>
  325.     <% nntpService.MaxConnections    = Request("txtMaxConnections") %>
  326.     <% nntpService.ConnectionTimeout = Request("txtConnectionTimeout") %>
  327.     <% nntpService.SecurePort        = Request("txtSSLPort") %>
  328.  
  329.  
  330.     <% REM Set General page properties %>
  331.  
  332.     <% REM Script must check for blank Path Header Field (Unique Path ID) %>
  333.     <% REM because SSO doesn't throw out illegal value %>
  334.     
  335.     <% REM Blank value will cause script to crash; call ConfigGetInfo %>
  336.     <% REM to default to original value %>
  337.     
  338.     <% PathHeaderField = Request("txtPathHeaderField") %>
  339.     <% if (PathHeaderField <> "") then %>
  340.         <% nntpService.UucpName = Request("txtPathHeaderField") %>
  341.     <% end if %>        
  342.  
  343.     <% REM Convert kbytes and Mbytes to bytes %>
  344.     <% cnvClientPostSoftLimit = ((Request("txtConfigServerPostSoftLimit")) * ONE_KILOBYTE) %>
  345.     <% cnvClientPostHardLimit = ((Request("txtConfigServerPostHardLimit")) * ONE_MEGABYTE) %>
  346.     <% cnvFeedPostSoftLimit   = ((Request("txtConfigServerFeedSoftLimit")) * ONE_KILOBYTE) %>
  347.     <% cnvFeedPostHardLimit   = ((Request("txtConfigServerFeedHardLimit")) * ONE_MEGABYTE) %>
  348.  
  349.  
  350.     <% nntpService.AllowClientPosts       = Request("chkConfigAllowClientPosting") %>
  351.     <% nntpService.ClientPostSoftLimit    = cnvClientPostSoftLimit %>
  352.     <% nntpService.ClientPostHardLimit    = cnvClientPostHardLimit %>
  353.     <% nntpService.AllowFeedPosts         = Request("chkConfigAllowFeedPosting") %>
  354.     <% nntpService.FeedPostSoftLimit      = cnvFeedPostSoftLimit %>
  355.     <% nntpService.FeedPostHardLimit      = cnvFeedPostHardLimit %>
  356.     <% nntpService.AllowControlMsgs       = Request("chkConfigAllowControlMessages") %>
  357.     <% nntpService.SmtpServer              = Request("txtConfigSmtpServerAddress") %>
  358.     <% nntpService.DefaultModeratorDomain = Request("txtConfigDefaultModeratorDomain") %>
  359.     <% nntpService.EnableLogging            = Request("txtEnableLogging") %>
  360.     <% nntpService.AdminEmail                = Request("txtAdministratorEmail") %>
  361.  
  362.     
  363.     <% REM Update Home Directory Page Values (through virtualroots interface) %>
  364.     <% vr.Directory               = Request("txtDirectory") %>
  365.     <% vr.AllowPosting            = Request("chkAllowPosting") %>
  366.     <% vr.LogAccess               = Request("chkLogAccess") %>
  367.     <% vr.UNCPassword             = Request("txtUNCPassword") %>
  368.     <% vr.UNCUserName             = Request("txtUNCUserName") %>
  369.     <% vr.RestrictGroupVisibility = Request("chkRestrictGroupVisibility") %>
  370.     <% vr.RequireSsl              = Request("chkRequireSsl") %>
  371.     <% vr.Require128BitSsl        = Request("chkRequire128BitSsl") %>
  372.  
  373.     <% REM Update Security Property Page Values %>
  374.     <% nntpService.AuthAnonymous  = Request("chkAuthAnonymous") %>
  375.     <% nntpService.AuthBasic      = Request("chkAuthBasic") %>
  376.     <% nntpService.AuthMCISBasic  = Request("chkAuthMCISBasic") %>
  377.     <% nntpService.AuthNT         = Request("chkAuthNT") %>
  378.  
  379.     <% nntpService.EnableLogging    = Request("txtEnableLogging") %>
  380.     <% nntpService.AdminEmail        = Request("txtAdministratorEmail") %>
  381.  
  382.  
  383.     <% On Error Resume Next %>
  384.     <% vrObj.SetDispatch 0, vr %>
  385.     <% if (Err <> 0) then %>
  386.         <script language="javascript">
  387.             alert("vr error:<% = Err.description %>");
  388.         </script>
  389.     <% end if %>
  390.  
  391.     
  392.     <% REM Set Service Properties %>
  393.     <% On Error Resume Next %>
  394.     <% nntpService.Set %>
  395.     <% if (Err <> 0) then %>
  396.         <SCRIPT LANGUAGE="javascript">
  397.             alert("<% = L_SERVICE_ERROR %><%  = Err.description %>");
  398.         </SCRIPT>
  399.    <% end if %>
  400.  
  401.     <% REM if TCP port has been changed display message %>
  402.     <% REM if (Request("tcpUpdated") = "true") then %>
  403.         <SCRIPT LANGUAGE="javascript">
  404.             //alert("<% = L_TCP_PORT_CHANGE %>");
  405.         </SCRIPT>
  406.     <% REM end if %>    
  407.  
  408. <% end if %>
  409.  
  410. <% REM Get Service Properties to populate hiddenform %>
  411. <%  On Error Resume Next %>
  412. <%  nntpService.Get %>
  413. <%  if (Err <> 0 ) then %>    
  414.     <script language="javascript">
  415.         alert("<%  = Err.description %>");
  416.     </script>
  417. <% end if %>
  418.  
  419. <% REM Get pointer to bindings object %>
  420. <% On Error Resume Next %>
  421. <% set bindings = nntpService.Bindings.Item(0) %>
  422. <%  if (Err <> 0 ) then %>    
  423.     <script language="javascript">
  424.         alert("<%  = Err.description %>");
  425.     </script>
  426. <% end if %>
  427.  
  428. <FORM NAME="hiddenform" METHOD="get" ACTION="nnmnu.asp">
  429.  
  430. <% REM Globals used by the webadmin %>
  431. <% REM helpfilename: Help file URL to load when "Help" button is clicked in head frame (changed by changePage function) %>
  432. <% REM updated: Whether user has made changes to userform (true/false) %>
  433. <% REM tcpUpdated: Whether user has made changes to Tcp Port field (if true, will display message on Save) %>
  434. <% REM loadmain: Whether to load main page (false when changes are saved as result of frameset unloading %>
  435.  
  436. <INPUT TYPE="hidden" NAME="svr" VALUE="<% = svr %>">
  437. <INPUT TYPE="hidden" NAME="save" VALUE="">
  438. <INPUT TYPE="hidden" NAME="pg" VALUE="<% = pg %>">
  439. <INPUT TYPE="hidden" NAME="helpfilename" VALUE="help/<% = pg %>h.htm">
  440. <INPUT TYPE="hidden" NAME="updated" VALUE="false">
  441. <INPUT TYPE="hidden" NAME="tcpUpdated" VALUE="false">
  442. <INPUT TYPE="hidden" NAME="loadmain" VALUE="true">
  443.  
  444. <% REM Variables used by Sessions and Newsgroup Pages %>
  445. <% REM nSessionListStart %>
  446. <% REM nNewsgroupListStart %>
  447. <% REM txtFindNewsgroup %>
  448.  
  449. <INPUT TYPE="hidden" NAME="nSessionListStart" VALUE = "0">
  450. <INPUT TYPE="hidden" NAME="nNewsgroupListStart" VALUE = "0">
  451. <INPUT TYPE="hidden" NAME="txtFindNewsgroup" VALUE="<% = find %>">
  452.  
  453. <% REM next two entries are part of "Bindings" object %>
  454. <INPUT TYPE="hidden" NAME="txtIPAddress" VALUE="<% = bindings.IPAddress %>">
  455. <INPUT TYPE="hidden" NAME="txtTCPPort" VALUE="<%   = bindings.TCPPort %>">
  456.  
  457. <% REM Write General page properties into hiddenform %>
  458.  
  459. <% REM Convert bytes to kbytes and Mbytes %>
  460. <% ClientPostSoftLimit = (nntpService.ClientPostSoftLimit / ONE_KILOBYTE) %>
  461. <% ClientPostHardLimit = (nntpService.ClientPostHardLimit / ONE_MEGABYTE) %>
  462. <% FeedPostSoftLimit   = (nntpService.FeedPostSoftLimit / ONE_KILOBYTE) %>
  463. <% FeedPostHardLimit   = (nntpService.FeedPostHardLimit / ONE_MEGABYTE) %>
  464.  
  465. <INPUT TYPE="hidden" NAME="txtPathHeaderField" VALUE="<%              = nntpService.UUCPName %>">
  466. <INPUT TYPE="hidden" NAME="txtDescription" VALUE="<%                  = nntpService.Comment %>">
  467. <INPUT TYPE="hidden" NAME="chkConfigAllowClientPosting" VALUE="<%     = nntpService.AllowClientPosts %>">
  468. <INPUT TYPE="hidden" NAME="txtConfigServerPostSoftLimit" VALUE="<%    = ClientPostSoftLimit %>">
  469. <INPUT TYPE="hidden" NAME="txtConfigServerPostHardLimit" VALUE="<%    = ClientPostHardLimit %>">
  470. <INPUT TYPE="hidden" NAME="chkConfigAllowFeedPosting" VALUE="<%       = nntpService.AllowFeedPosts %>">
  471. <INPUT TYPE="hidden" NAME="txtConfigServerFeedSoftLimit" VALUE="<%    = FeedPostSoftLimit %>">
  472. <INPUT TYPE="hidden" NAME="txtConfigServerFeedHardLimit" VALUE="<%    = FeedPostHardLimit %>">
  473. <INPUT TYPE="hidden" NAME="chkConfigAllowControlMessages" VALUE="<%   = nntpService.AllowControlMsgs %>">
  474. <INPUT TYPE="hidden" NAME="txtConfigSmtpServerAddress" VALUE="<%      = nntpService.SmtpServer %>">
  475. <INPUT TYPE="hidden" NAME="txtConfigDefaultModeratorDomain" VALUE="<% = nntpService.DefaultModeratorDomain %>">
  476.  
  477. <INPUT TYPE="hidden" NAME="txtSSLPort" VALUE="<%           = nntpService.SecurePort %>">
  478. <INPUT TYPE="hidden" NAME="txtMaxConnections" VALUE="<%    = nntpService.MaxConnections %>">
  479. <INPUT TYPE="hidden" NAME="txtConnectionTimeout" VALUE="<% = nntpService.ConnectionTimeout %>">
  480.  
  481. <% REM Home Directory Property Page values %>
  482.  
  483. <INPUT TYPE="hidden" NAME="txtDirectory" VALUE="<%               = vr.Directory %>">
  484. <INPUT TYPE="hidden" NAME="chkLogAccess" VALUE="<%               = vr.LogAccess %>">
  485. <INPUT TYPE="hidden" NAME="chkAllowPosting" VALUE="<%            = vr.AllowPosting %>">
  486. <INPUT TYPE="hidden" NAME="txtUNCPassword" VALUE="<%             = vr.UNCPassword %>">
  487. <INPUT TYPE="hidden" NAME="txtUNCUserName" VALUE="<%             = vr.UNCUserName %>">
  488. <INPUT TYPE="hidden" NAME="chkRestrictGroupVisibility" VALUE="<% = vr.RestrictGroupVisibility %>">
  489. <INPUT TYPE="hidden" NAME="chkRequire128BitSsl" VALUE="<%        = vr.Require128BitSsl %>">
  490. <INPUT TYPE="hidden" NAME="chkRequireSsl" VALUE="<%              = vr.RequireSsl %>">
  491.  
  492. <% REM Security Property Page values %>
  493.  
  494. <INPUT TYPE="hidden" NAME="chkAuthAnonymous" VALUE="<% = nntpService.AuthAnonymous %>">
  495. <INPUT TYPE="hidden" NAME="chkAuthBasic" VALUE="<%     = nntpService.AuthBasic %>">
  496. <INPUT TYPE="hidden" NAME="chkAuthMCISBasic" VALUE="<% = nntpService.AuthMCISBasic %>">
  497. <INPUT TYPE="hidden" NAME="chkAuthNT" VALUE="<%        = nntpService.AuthNT %>">
  498.  
  499. <INPUT TYPE="hidden" name="txtEnableLogging" Value="<%    = nntpService.EnableLogging %>">
  500. <INPUT TYPE="hidden" name="txtAdministratorEmail" value="<%        = nntpService.AdminEmail %>">
  501. <INput type="hidden" name="txtIndexNewsContent" value = "1">
  502.  
  503. </FORM>
  504. </BODY>
  505. </HTML>
  506. <%  end if %>
  507.