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