home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nndired.asp < prev    next >
Text File  |  1997-10-12  |  19KB  |  703 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% REM Directories Page add/edit pop-up %>
  4. <%
  5. L_EDITDIRECTORYPROP_TEXT    = "Edit Directory Properties"
  6. L_ADDDIRECTORY_TEXT            = "Add Directory"
  7. L_NEWSGROUPSUBTREE_TEXT        = "Newsgroup subtree:"
  8. L_EDITDIRECTORYON_TEXT        = "Edit Directory on"
  9. L_ADDDIRECTORYON_TEXT        = "Add Directory on"
  10. L_PATH_TEXT                    = "Path:"
  11. L_ACCOUNTINFORMATION_TEXT    = "Account Information"
  12. L_USERNAME_TEXT                = "User name:"
  13. L_PASSWORD_TEXT                = "Password:"
  14. L_ACCESS_TEXT                = "Access"
  15. L_ALLOWPOSTING_TEXT            = "Allow posting"
  16. L_REQUIRESECURE_TEXT        = "Require secure channel"
  17. L_REQUIRE128_TEXT            = "Require 128 Bit Encryption"
  18. L_RESTRICTGROUP_TEXT        = "Restrict Group Visibility"
  19. L_OK_TEXT                    = "OK"
  20. L_CANCEL_TEXT                = "Cancel"
  21. L_HELP_TEXT                    = "Help"
  22. L_ENTERDIRECTORYNAME_TEXT    = "Please enter a directory name."
  23. L_ENTERSUBTREENAME_TEXT        = "Please enter a subtree root."
  24. L_HOMEDIRECTORY_TEXT        = "A home directory already exists for this service.  Do you want to replace it?"
  25. L_ENTERDIRNAME_TEXT            = "Please enter a directory name."
  26. L_SUBTREEROOT_TEXT            = "Please enter a subtree root."
  27. L_SUBTREEROOT_ERRORMESSAGE    = "The subtree root syntax is incorrect."
  28. L_REQUIRESECURECHANNEL_TEXT = "Require Secure Channel must be enabled to Require 128-bit Encryption\nDo you want to enable Require Secure Channel?"
  29. L_UNCPATHACCOUNT_TEXT = "Account user name and password are only valid for UNC paths."        
  30.  
  31.  
  32. L_EDIT_TEXT                = "edit"  ' Internal String Do NOT localize
  33. L_SAVE_TEXT                = "save"  ' Internal String Do NOT localize
  34. L_NEW_TEXT                = "new"   ' Internal String Do NOT localize
  35. L_ADD_TEXT                = "add"      ' Internal String Do NOT localize
  36. L_ON_TEXT                = "on"    ' Internal String Do NOT localize
  37.     
  38. %>
  39. <% REM Get variables %>
  40. <% REM svr = Server name %>
  41. <% REM a = Action to be performed by server-side code (new/add,edit/save) %>
  42. <% REM DirRoot = Directory root being edited %>
  43. <% REM DirHome = Whether a home directory already exists for service %>
  44.  
  45. <% svr = Session("svr") %>
  46. <% a = Request("a") %>
  47. <% DirRoot = Request("DirRoot") %>
  48. <% DirHome = Request("DirHome") %>
  49. <% VRootIndex = Request("index") %>
  50.  
  51. <% REM Include _cnst file to force logon by anonymous users (if access denied, body of file ignored) %>
  52.  
  53. <!--#include file="_cnst.asp" -->
  54.  
  55. <% if (cont = true) then %>
  56.  
  57. <% On Error Resume Next %>
  58. <% Set admin = Server.CreateObject("Nntpadm.Admin.1") %>
  59. <% if (Err <> 0) then %>
  60.     <script language="javascript">
  61.         alert("<% = Err.description %>");
  62.     </script>
  63. <% end if %>
  64.  
  65. <% On Error Resume Next %>
  66. <% Set VServer = CreateObject("NntpAdm.VirtualServer") %>
  67. <% if (Err <> 0) then %>
  68.     <script language="javascript">
  69.         alert("<% = Err.description %>");
  70.     </script>
  71. <% end if %>
  72.  
  73. <% REM Set Server %>
  74. <% On Error Resume Next %>
  75. <% VServer.Server = svr %>
  76. <% if (Err <> 0) then %>
  77.     <script language="javascript">
  78.         alert("<% = Err.description %>");
  79.     </script>
  80. <% end if %>
  81.  
  82. <% REM Set Service Instance %>
  83. <% On Error Resume Next %>
  84. <% VServer.ServiceInstance = Session("ServiceInstance") %>
  85. <% if (Err <> 0) then %>
  86.     <script language="javascript">
  87.         alert("<% = Err.description %>");
  88.     </script>
  89. <% end if %>
  90.  
  91. <% On Error Resume Next %>
  92. <% set Vroots = VServer.VirtualRoots %>
  93. <% if (Err <> 0) then %>
  94.     <script language="javascript">
  95.         alert("<% = Err.description %>");
  96.     </script>
  97. <% end if %>
  98.  
  99. <% REM Set Server %>
  100. <% On Error Resume Next %>
  101. <% Vroots.Server = svr %>
  102. <% if (Err <> 0) then %>
  103.     <script language="javascript">
  104.         alert("<% = Err.description %>");
  105.     </script>
  106. <% end if %>
  107.  
  108. <% REM Set Service Instance %>
  109. <% On Error Resume Next %>
  110. <% Vroots.ServiceInstance = Session("ServiceInstance") %>
  111. <% if (Err <> 0) then %>
  112.     <script language="javascript">
  113.         alert("<% = Err.description %>");
  114.     </script>
  115. <% end if %>
  116.  
  117. <% REM Enumerate Virtual Roots %>
  118. <% On Error Resume Next %>
  119. <% Vroots.Enumerate %>
  120. <% if (Err <> 0) then %>
  121.     <script language="javascript">
  122.         alert("<% = Err.description %>");
  123.     </script>
  124. <% end if %>
  125.  
  126. <HTML>
  127. <HEAD>
  128. <% REM Generic Javascript function nnisFull returns alert if field is empty %>
  129.  
  130. <!--#include file="nnisfull.htm" -->
  131.  
  132. <SCRIPT LANGUAGE="javascript">
  133.  
  134.  
  135.  
  136. <% REM Javascript function onOK submits form upon clicking "OK" button if directory information is valid per chkDir function %>
  137.  
  138. function onOK()
  139. {
  140.     if (chkDir() == true)
  141.     {
  142.     document.userform.newDirectory.value = escape(document.userform.txtDirDirectory.value);
  143.     document.userform.submit();
  144.     
  145.     }
  146.     else
  147.     {
  148.         return;
  149.     }
  150. }
  151.  
  152. <% REM Javascript function chkDir %>
  153.  
  154.     function chkDir()
  155.     {
  156.     <% if (a = L_EDIT_TEXT) then %>
  157.         document.userform.a.value = "save";
  158.     <% elseif (a = L_NEW_TEXT) then %>
  159.         document.userform.a.value = "add";
  160.     <% end if %>
  161.         if (document.userform.txtDirDirectory.value == "") 
  162.         {
  163.             alert("<% = L_ENTERDIRNAME_TEXT %>")
  164.             document.userform.txtDirDirectory.focus();
  165.             return false;
  166.         }
  167.         else 
  168.         {
  169.             if (document.userform.txtDirRoot.value == "") 
  170.             {
  171.                 alert("<% = L_SUBTREEROOT_TEXT %>");
  172.                 return false;
  173.             }            
  174.             if (chkChar(document.userform.txtDirRoot)) 
  175.             {
  176.                 if ((document.userform.DirHome.value == "true") && (document.userform.hdnDirRoot.value != ""))
  177.                 {
  178.                     if (confirm("<% = L_HOMEDIRECTORY_TEXT %>")) 
  179.                     {
  180.                         if (document.userform.txtDirDirectory.value == "") 
  181.                         {
  182.                             alert("<% = L_ENTERDIRNAME_TEXT %>")
  183.                             document.userform.txtDirDirectory.focus();
  184.                             return false;
  185.                         }
  186.                         else  
  187.                         {
  188.                             return true;
  189.                         }
  190.                     }
  191.                     else 
  192.                     {
  193.                         self.location = "nndired.asp?svr=<% = svr %>&a=<% = a %>&DirRoot=<% = DirRoot %>&DirHome=<% = DirHome %>";
  194.                         return false;
  195.                     }
  196.                 }
  197.                 else 
  198.                 {
  199.                     return true;
  200.                 }
  201.             }
  202.             else 
  203.             {
  204.                 return false;
  205.             }
  206.         }
  207.     }
  208.  
  209.  
  210. <% REM Javascript function chkChar %>
  211.         
  212.     function chkChar(txtfield) 
  213.     {
  214.         txtvalue = txtfield.value
  215.         i = (txtvalue.indexOf("'") + txtvalue.indexOf('"'));
  216.         i = (i + txtvalue.indexOf("<") + txtvalue.indexOf('>') + txtvalue.indexOf('%'));
  217.         i = (i + txtvalue.indexOf("&") + txtvalue.indexOf("#") + txtvalue.indexOf("("));
  218.         i = (i + txtvalue.indexOf("+") + txtvalue.indexOf(")") + txtvalue.indexOf("@"));
  219.         i = (i + txtvalue.indexOf("~") + txtvalue.indexOf("`") + txtvalue.indexOf("!"));
  220.         i = (i + txtvalue.indexOf("^") + txtvalue.indexOf("*") + txtvalue.indexOf("="));
  221.         i = (i + txtvalue.indexOf("|") + txtvalue.indexOf(";"));
  222.         i = (i + txtvalue.indexOf(",") + txtvalue.indexOf("?"));
  223.         if (i != -21) 
  224.         {
  225.             alert("<% = L_SUBTREEROOT_ERRORMESSAGE %>");
  226.             document.userform.txtDirRoot.value = "";
  227.             document.userform.txtDirRoot.focus();
  228.             return false; 
  229.         }
  230.         else 
  231.         {
  232.             return true;
  233.         }
  234.     }
  235.         
  236.  
  237. function chkToTxt(chkControl) 
  238. {
  239.     if (chkControl.checked) 
  240.     {
  241.         return "1";
  242.     }
  243.     else 
  244.     {
  245.         return "0";
  246.     }
  247. }
  248.  
  249. <% REM Javascript function maintainChk %>
  250. function maintainChk() 
  251. {
  252.     uform = document.userform;
  253.     if (uform.chkDirAccessSsl.checked) 
  254.     {
  255.         uform.chkDir128BitSsl.checked = (uform.hdnDir128BitSsl.value == "1");
  256.     }
  257.     else 
  258.     {
  259.         uform.hdnDir128BitSsl.value = chkToTxt(uform.chkDir128BitSsl);
  260.         uform.chkDir128BitSsl.checked = false;
  261.     }
  262. }
  263.  
  264. function chkSsl()
  265. {
  266.     uform = document.userform;
  267.     if (!uform.chkDirAccessSsl.checked)
  268.     {
  269.         if(confirm("<% = L_REQUIRESECURECHANNEL_TEXT %>"))
  270.         {
  271.             uform.chkDirAccessSsl.checked = true;
  272.             uform.chkDir128BitSsl.checked = true;
  273.             return true;
  274.         }
  275.         else
  276.         {
  277.             uform.chkDir128BitSsl.checked = false;
  278.             return false;
  279.         }
  280.     }
  281. }
  282.  
  283.  
  284. <% REM Javascript function maintainTxt %>
  285.  
  286.     function maintainTxt() 
  287.     {
  288.         if (isFull(document.userform.txtDirRoot.value)) 
  289.         {
  290.             document.userform.hdnDirRoot.value = document.userform.txtDirRoot.value;
  291.         }
  292.     }
  293.  
  294.  
  295. <% REM Javascript function setPassword %>
  296.  
  297.     function setPassword() 
  298.     {
  299.         if (document.userform.txtDirAccountPassword.value != "") 
  300.         {
  301.             document.userform.hdnDirAccountPassword.value = document.userform.txtDirAccountPassword.value;
  302.             document.userform.txtDirAccountPassword.value = "**************";
  303.         }
  304.     }
  305.  
  306.  
  307. <% REM Javascript function chkUNC %>
  308.  
  309.     function chkUNC(thisControl) 
  310.     {
  311.         dirstr = document.userform.txtDirDirectory.value;
  312.         if (dirstr.substring(1,2) != "\\") 
  313.         {
  314.             alert("<% = L_UNCPATHACCOUNT_TEXT %>");
  315.             thisControl.value = "";    
  316.         }
  317.         else 
  318.         {
  319.             setPassword();
  320.         }
  321.     }
  322.  
  323.  
  324. <% REM Javascript function setUNCAccount %>
  325.  
  326.     function setUNCAccount(dirString) 
  327.     {
  328.         if (dirString.substring(1,2)!= "\\") 
  329.         {
  330.             document.userform.txtDirAccountName.value = "";
  331.             document.userform.txtDirAccountPassword.value = "";
  332.         }
  333.     }
  334.  
  335.  
  336. <% REM Javascript function helpBox %>
  337.  
  338.     function helpBox() 
  339.     {
  340.         window.open("help/nndiredh.htm","<% = L_HELP_TEXT %>","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=300,height=425");
  341.     }
  342.  
  343. </SCRIPT>
  344. <TITLE>
  345. <% if (a = L_EDIT_TEXT) then %>
  346.     <% = L_EDITDIRECTORYPROP_TEXT %>
  347. <% elseif (a = L_NEW_TEXT) then %>
  348.     <% = L_ADDDIRECTORY_TEXT %>
  349. <% end if %>
  350. </TITLE>
  351.  
  352. </HEAD>
  353.  
  354. <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  355.  
  356. <% if ((a = L_ADD_TEXT) OR (a = L_SAVE_TEXT)) then %>
  357.  
  358.  
  359.     <% DirDirectory = Cstr(Request("newDirectory")) %>
  360.     <% DirDirectory = Replace(DirDirectory,"%5C","\") %>
  361.     <% DirDirectory = Replace(DirDirectory,"%3A",":") %>
  362.         
  363.     <% DirRoot = Request("txtDirRoot") %>
  364.     <% originalDirRoot = Request("txtOriginalDirRoot") %>
  365.     <% DirAccountName = Request("txtDirAccountName") %>
  366.     <% DirAccountPassword = Request("hdnDirAccountPassword") %>
  367.  
  368.     <% if (Request("chkDirAccessPosting") = L_ON_TEXT) then %>
  369.         <% DirAccessPosting = 1 %>
  370.     <% else %>
  371.         <% DirAccessPosting = 0 %>
  372.     <% end if %>
  373.  
  374.     <% if (Request("chkDirAccessSsl") = L_ON_TEXT) then %>
  375.         <% DirAccessSsl = 1 %>
  376.     <% else %>
  377.         <% DirAccessSsl = 0 %>
  378.     <% end if %>
  379.  
  380.     <% if (Request("chkDir128BitSsl") = L_ON_TEXT) then %>
  381.         <% Require128BitSsl = 1 %>
  382.     <% else %>
  383.         <% Require128BitSsl = 0 %>
  384.     <% end if %>
  385.  
  386.     <% if (Request("DirAccessRestrictVisibility") = L_ON_TEXT) then %>
  387.         <% DirAccessRestrictVisibility = 1 %>
  388.     <% else %>
  389.         <% DirAccessRestrictVisibility = 0 %>
  390.     <% end if %>
  391.     
  392.     <% if (a = L_ADD_TEXT) then %>
  393.  
  394.         <% On Error Resume Next %>    
  395.         <% set thisVroot = Server.CreateObject("nntpadm.VirtualRoot") %>
  396.         <% if (Err <> 0) then %>
  397.             <script language="javascript">
  398.                 alert("<% = Err.description %>");
  399.             </script>
  400.         <% end if %>
  401.  
  402.         <% thisVroot.NewsgroupSubtree = DirRoot %>
  403.         <% thisVroot.Directory = DirDirectory %>
  404.         <% thisVroot.UNCUserName = DirAccountName %>
  405.         <% thisVroot.UNCPassword = DirAccountPassword %> 
  406.         <% thisVroot.AllowPosting = DirAccessPosting %>
  407.         <% thisVroot.RequireSsl = DirAccessSsl %>
  408.         <% thisVroot.Require128BitSsl = Require128BitSsl %>
  409.         <% thisVroot.RestrictGroupVisibility = DirAccessRestrictVisibility %>
  410.  
  411.         <% On Error Resume Next %>
  412.         <% Vroots.AddDispatch(thisVroot) %>
  413.         <% if (Err <> 0) then %>
  414.             <script language="javascript">
  415.                 alert("<% = Err.description %>");
  416.             </script>
  417.         <% end if %>
  418.  
  419.     <% elseif (a = L_SAVE_TEXT) then %>
  420.         <% if (originalDirRoot <> DirRoot) then %>
  421.             <% REM Create a new virtual root to copy new values into %>
  422.             <% On Error Resume Next %>
  423.             <% set thisVroot = Server.CreateObject("nntpadm.VirtualRoot") %>
  424.             <% if (Err <> 0) then %>
  425.                 <script language="javascript">
  426.                     alert("<% = Err.description %>");
  427.                 </script>
  428.             <% end if %>
  429.         <% else %>
  430.             <% REM Get pointer to existing virtual root directory %>
  431.             <% On Error Resume Next %>
  432.             <% set thisVroot = Vroots.Item(Cint(VRootIndex)) %>
  433.             <% if (Err <> 0) then %>
  434.                 <script language="javascript">
  435.                     alert("<% = Err.description %>");
  436.                 </script>
  437.             <% end if %>
  438.         <% end if %>
  439.         <% thisVroot.NewsgroupSubtree = DirRoot %>
  440.         <% thisVroot.Directory = DirDirectory %>
  441.         
  442.            <% thisVroot.UNCUserName = DirAccountName %>
  443.            <% thisVroot.UNCPassword = DirAccountPassword %> 
  444.         
  445.            <% thisVroot.AllowPosting = DirAccessPosting %>
  446.         
  447.            <% thisVroot.RequireSsl = DirAccessSsl %>
  448.         <% thisVroot.Require128BitSsl = Require128BitSsl %>
  449.         
  450.            <% thisVroot.RestrictGroupVisibility = DirAccessRestrictVisibility %>
  451.  
  452.         <% if (originalDirRoot <> DirRoot) then %>
  453.             <% On Error Resume Next %>    
  454.             <% Vroots.AddDispatch(thisVroot) %>
  455.             <% if (Err <> 0) then %>
  456.                 <script language="javascript">
  457.                     alert("<% = Err.description %>");
  458.                 </script>
  459.            <% else %>
  460.               <% Vroots.Remove(Cint(vRootIndex)) %>
  461.             <% end if %>
  462.         <% else %>
  463.             <% On Error Resume Next %>
  464.             <% Vroots.SetDispatch VRootIndex, thisVroot %>
  465.             <% if (Err <> 0) then %>
  466.                 <script language="javascript">
  467.                     alert("<% = Err.description %>");
  468.                 </script>
  469.             <% end if %>
  470.         <% end if %>
  471.  
  472.     <% end if %>
  473.  
  474.     <SCRIPT LANGUAGE="javascript">
  475.                opener.location = "nndirhd.asp?svr=<% = svr %>&SelectedRoot=<% = admin.Tokenize(DirRoot) %>";
  476.                self.close();
  477.     </SCRIPT>
  478.  
  479. <% end if %>
  480.  
  481. <% if (a = L_NEW_TEXT) then %>
  482.  
  483.     <% On Error Resume Next %>    
  484.     <% set thisVroot = Server.CreateObject("nntpadm.VirtualRoot") %>
  485.     <% if (Err <> 0) then %>
  486.         <script language="javascript">
  487.             alert("<% = Err.description %>");
  488.         </script>
  489.     <% end if %>
  490.  
  491.     <% thisVroot.Directory = "" %>
  492.     <% thisVroot.NewsgroupSubtree = L_NEW_TEXT %>
  493.     <% thisVroot.UNCUserName = "" %>
  494.     <% thisVroot.UNCPassword = "" %>
  495.        <% thisVroot.AllowPosting = 1 %>
  496.        <% thisVroot.RestrictGroupVisibility = 0 %>
  497.        <% thisVroot.RequireSsl = 0 %>
  498.     <% thisVroot.Require128BitSsl = 0 %>
  499.  
  500. <% elseif (a = L_EDIT_TEXT) then %>
  501.  
  502.     <% REM Get a pointer to the Virtual Root we are editing %>
  503.     <% On Error Resume Next %>
  504.     <% set thisVroot = Vroots.ItemDispatch(VRootIndex) %>
  505.     <% if (Err <> 0) then %>
  506.         <script language="javascript">
  507.             alert("<% = Err.description %>");
  508.         </script>
  509.     <% end if %>
  510.  
  511. <% end if %>
  512.  
  513. <FORM NAME="userform" ACTION="nndired.asp"  METHOD="post" onSubmit="return chkDir();">
  514.  
  515. <INPUT TYPE="hidden" NAME="svr"         VALUE="<% = svr %>">
  516. <INPUT TYPE="hidden" NAME="a"           VALUE="">
  517. <INPUT TYPE="hidden" NAME="hdnDirRoot"  VALUE="<% = DirRoot %>">
  518. <INPUT TYPE="hidden" NAME="DirHome"     VALUE="<% = DirHome %>">
  519. <INPUT TYPE="hidden" NAME="index"       VALUE="<% = VRootIndex %>">
  520. <INPUT TYPE="hidden" NAME="newDirectory" VALUE="">
  521. <INPUT TYPE="hidden" NAME="txtOriginalDirRoot" VALUE="<% = DirRoot %>">
  522.  
  523. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  524.  
  525. <TR><TD>
  526. <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>
  527. <% if (a = L_EDIT_TEXT) then %>
  528.     <% = L_EDITDIRECTORYON_TEXT %> 
  529. <% elseif (a = L_NEW_TEXT) then %>
  530.     <% = L_ADDDIRECTORYON_TEXT %>
  531. <% end if %>
  532. </B></FONT><FONT FACE="Times New Roman" SIZE=3><I><% = svr %></I></FONT>
  533.  
  534. <TABLE BORDER="0" WIDTH=100%>
  535.     <TR>
  536.         <TD>
  537.             <FONT FACE="Arial" SIZE=2>
  538.             <B><% = L_NEWSGROUPSUBTREE_TEXT %></B>
  539.             </FONT>
  540.         </TD>
  541.         <TD>
  542.             <INPUT NAME="txtDirRoot" TYPE="text" SIZE=25 onChange="maintainTxt();" VALUE="<% = thisVroot.NewsgroupSubtree %>">
  543.         </TD>
  544.     </TR>
  545.     <TR>
  546.         <TD>
  547.             <FONT FACE="Arial" SIZE=2>
  548.             <B><% = L_PATH_TEXT %></B>
  549.             </FONT>
  550.         </TD>
  551.         <TD>
  552.             <INPUT NAME="txtDirDirectory" TYPE="text" VALUE="<% = thisVroot.Directory %>" SIZE = 25 onChange="setUNCAccount(this.value);"> 
  553.         </TD>
  554.     </TR>
  555.     <TR>
  556.         <TD COLSPAN=2>
  557.             <FONT FACE="Arial" SIZE=2>
  558.                 <B><% = L_ACCOUNTINFORMATION_TEXT %></B>
  559.             </FONT>
  560.         </TD>
  561.     </TR>
  562.     <TR>
  563.         <TD COLSPAN=2>
  564. <BLOCKQUOTE>
  565.     <TABLE>
  566.         <TR>
  567.             <TD><FONT SIZE=2 FACE="Arial"><% = L_USERNAME_TEXT %>  </TD>
  568.             <TD><INPUT TYPE="text" NAME="txtDirAccountName" SIZE = 25 VALUE="<% = thisVroot.UNCUserName %>" onChange="chkUNC(this);"></TD></TR>
  569.         <TR>
  570.             <TD COLSPAN=2 HEIGHT=4></TD>
  571.         </TR>
  572.         <TR>
  573.             <TD>
  574.                 <FONT SIZE=2 FACE="Arial"><% = L_PASSWORD_TEXT %>
  575.             </TD>
  576.             <TD>
  577.             <% if (thisVroot.UNCPassword <> "") then %>
  578.                 <INPUT TYPE="text" NAME="txtDirAccountPassword" SIZE=25 VALUE="**************" onChange="chkUNC(this);">
  579.             <% else %>
  580.                 <INPUT TYPE="text" NAME="txtDirAccountPassword" SIZE=25 VALUE="" onChange="chkUNC(this);">
  581.             <% end if %>
  582.                 <INPUT TYPE="hidden" NAME="hdnDirAccountPassword" VALUE="<% = thisVroot.UNCPassword %>"></TD>
  583.         </TR>
  584.     </TABLE>
  585.  
  586. </BLOCKQUOTE>
  587.         </TD>
  588.     </TR>
  589.     <TR>
  590.         <TD COLSPAN=2>
  591.             <FONT FACE="Arial" SIZE="2">            
  592.             <B><% = L_ACCESS_TEXT %></B>
  593.             </FONT>
  594.         </TD>
  595.     </TR>
  596.     <TR>
  597.         <TD COLSPAN=2>
  598.         <FONT FACE="Arial" SIZE="2">
  599.             <BLOCKQUOTE>
  600.     
  601.     <% if (thisVroot.AllowPosting = 1) then %>
  602.         <INPUT NAME="chkDirAccessPosting" TYPE="checkbox" CHECKED>
  603.     <% else %>
  604.         <INPUT NAME="chkDirAccessPosting" TYPE="checkbox">    
  605.     <% end if %>
  606.           <% = L_ALLOWPOSTING_TEXT %>
  607.     <P>
  608.     <% if (thisVroot.RequireSSL = 1) then %>
  609.         <INPUT NAME="chkDirAccessSsl" TYPE="checkbox" CHECKED onClick="maintainChk();">
  610.     <% else %>
  611.         <INPUT NAME="chkDirAccessSsl" TYPE="checkbox" onClick="maintainChk();">    
  612.     <% end if %>
  613.           <% = L_REQUIRESECURE_TEXT %>
  614.     <P>
  615.     <% if (thisVroot.Require128BitSsl = 1) then %>
  616.         <INPUT NAME="chkDir128BitSsl" TYPE="checkbox" CHECKED onClick="chkSsl();">
  617.         <INPUT NAME="hdnDir128BitSsl" TYPE="hidden" VALUE="1">
  618.     <% else %>
  619.         <INPUT NAME="chkDir128BitSsl" TYPE="checkbox" onClick="chkSsl();">    
  620.         <INPUT NAME="hdnDir128BitSsl" TYPE="hidden" VALUE="0">
  621.     <% end if %>
  622.           <% = L_REQUIRE128_TEXT %>
  623.     <P>
  624.     <% if (thisVroot.RestrictGroupVisibility = 1) then %>
  625.         <INPUT NAME="DirAccessRestrictVisibility" TYPE="checkbox" CHECKED>
  626.     <% else %>
  627.         <INPUT NAME="DirAccessRestrictVisibility" TYPE="checkbox">    
  628.     <% end if %>
  629.           <% = L_RESTRICTGROUP_TEXT %>
  630.  
  631. </BLOCKQUOTE>
  632. </FONT>
  633. </TD>
  634. </TR>
  635. </TABLE>
  636. </TD></TR>
  637.  
  638. </TABLE>
  639.  
  640. <P>
  641. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  642.  
  643. <TR>
  644.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  645.  
  646.         <TR>
  647.             <TD VALIGN="middle">
  648.                 <FONT FACE="Arial" SIZE=2>
  649.                 <B><A HREF="javascript:onOk();">
  650.                 <IMG SRC="images/gnicok.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  651.                 <A HREF="javascript:onOK();"><% = L_OK_TEXT %></A></B>
  652.                 </FONT>
  653.             </TD>    
  654.  
  655.         </TR>
  656.         
  657.     </TABLE></TD>
  658.  
  659.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  660.  
  661.         <TR>
  662.                 
  663.             <TD VALIGN="middle">
  664.                 <FONT FACE="Arial" SIZE=2>
  665.                 <B><A HREF="javascript:close();">
  666.                 <IMG SRC="images/gniccncl.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  667.                 <A HREF="javascript:close();"><% = L_CANCEL_TEXT %></A></B>
  668.                 </FONT>
  669.             </TD>    
  670.  
  671.         </TR>
  672.         
  673.     </TABLE></TD>
  674.  
  675.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  676.  
  677.         <TR>
  678.                 
  679.             <TD VALIGN="middle">
  680.                 <FONT FACE="Arial" SIZE=2><A HREF="javascript:helpBox();">
  681.                 <IMG SRC="images/gnichelp.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  682.                 <B><A HREF="javascript:helpBox();"><% = L_HELP_TEXT %></A></B>
  683.                 </FONT>
  684.             </TD>    
  685.  
  686.         </TR>
  687.         
  688.     </TABLE></TD>
  689.  
  690.     <TD> </TD>
  691.  
  692. </TR>
  693.  
  694. </TABLE>
  695.  
  696. </FORM>
  697.     
  698. </BODY>
  699. </HTML>
  700.  
  701. <% end if %>
  702.  
  703.