home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nngrped.asp < prev    next >
Text File  |  1997-10-12  |  13KB  |  458 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_PAGETITLE_TEXT = "Microsoft Internet Service Manager"
  7. L_ERRORACCESSDENIED_ERRORMESSAGE = "Error: Access is Denied."
  8. L_ERRORIS_ERRORMESSAGE = "Error is: "
  9. L_ADDTITLE_TEXT = "Add Newsgroup"
  10. L_EDITTITLE_TEXT = "Edit Newsgroup Properties"
  11. L_ENTERNAME_TEXT = "Please enter a newsgroup name."
  12. L_ADDLABEL_TEXT = "Add Newsgroup on"
  13. L_EDITLABEL_TEXT = "Edit Newsgroup on"
  14. L_NEWSGROUPLABEL_TEXT = "Newsgroup:"
  15. L_DESCRIPTIONLABEL_TEXT = "Description:"
  16. L_READONLYLABEL_TEXT = "Read only"
  17. L_MODERATEDLABEL_TEXT = "Moderated"
  18. L_MODERATORLABEL_TEXT = "Moderated by:"
  19. L_OKLABEL_TEXT = "OK"
  20. L_CANCELLABEL_TEXT = "Cancel"
  21. L_HELPLABEL_TEXT = "Help"
  22. L_MODERATORNAME_TEXT = "Moderated newsgroups must have a moderator. Please enter a moderator name."
  23. L_NEWSGROUPPRETTYNAME_TEXT    = "NewsGroup prettyname:"
  24. L_NOTMODERATED_TEXT                    = "Not moderated"
  25. L_MODERATED_DEFAULT_MODERATOR_TEXT = "Moderated by default newsgroup moderator"
  26.  
  27. L_NOSERVICE_ERRORMESSAGE            = "The NNTP Service is not started, You must start the service before you can add/or edit a Group."
  28.  
  29. L_NEW_TEXT    = "new" 'internal string do NOT localize
  30. L_ADD_TEXT    = "add" 'internal string do NOT localize
  31. L_SAVE_TEXT    = "save"  'internal string do NOT localize
  32. L_EDIT_TEXT    = "edit" 'internal string do NOT localize
  33.  
  34.  
  35. L_STARTED_NUMBER        = 2 'internal varible do NOT localize
  36.  
  37. REM END LOCALIZATION
  38. %>
  39.  
  40. <% svr = Request ("svr") %>
  41. <% a = Request ("a") %>
  42. <% svcInstance = Request("ServiceInstance") %>
  43. <% Description = Request ("txtDescription") %>
  44. <% Moderated = Request ("hdnModerated") %>
  45. <% Moderator = Request ("txtModerator") %>
  46. <% ReadOnly = Request ("hdnReadOnly") %>
  47. <% index    = Request("index") %>
  48. <% PrettyName = Request("txtPrettyName") %>
  49. <%
  50. if (svcInstance = "") then
  51.     svcInstance = Session("ServiceInstance")
  52. end if
  53. %>
  54. <% Group = Request ("Group") %>
  55. <!--#include file="_cnst.asp" -->
  56. <% if (cont = true) then %>
  57.  
  58. <% REM Create Nntp admin object To check to see if the service is running%>
  59.  
  60. <% On Error Resume Next %>
  61. <% Set Admin = Server.CreateObject("NntpAdm.Admin.1") %>
  62. <% if Err <> 0 then %>
  63.     <script language="javascript">
  64.         alert("<% = Err.description %> : Line #42");
  65.     </script>
  66. <% end if %>
  67.  
  68. <% On Error Resume Next %>
  69. <% set nntpService = Server.CreateObject("Nntpadm.VirtualServer.1") %>
  70. <% if (Err <> 0 ) then %>    
  71.     <script language="javascript">
  72.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %> : Line #50");
  73.     </script>
  74. <% end if %>
  75.  
  76. <% REM Set nntp Service Server %>
  77. <% On Error Resume Next %>
  78. <% nntpService.Server = svr %>
  79. <% if (Err <> 0 ) then %>    
  80.     <script language="javascript">
  81.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %> : Line #58");
  82.     </script>
  83. <% end if %>
  84.  
  85. <% REM Set nntp Service Service Instance %>
  86. <% On Error Resume Next %>
  87. <% nntpService.ServiceInstance = Session("ServiceInstance") %>
  88. <% if (Err <> 0 ) then %>    
  89.     <script language="javascript">
  90.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %> : Line #66");
  91.     </script>
  92. <% end if %>
  93.  
  94.  
  95. <% nntpService.Get %>
  96. <% ServerState = nntpService.State %>
  97.  
  98. <% if (ServerState <> L_STARTED_NUMBER) then %>
  99.     <script language="javascript">
  100.         alert("<% = L_NOSERVICE_ERRORMESSAGE %> : Line #76");
  101.         self.close();
  102.     </script>
  103. <% else %>
  104.  
  105.  
  106. <% On Error Resume Next %>
  107. <% Set GroupAdm = Server.CreateObject("nntpadm.groups") %>
  108. <% if Err <> 0 then %>
  109.     <script language="javascript">
  110.         <p>
  111.         <% = L_ERRORACCESSDENIED_ERRORMESSAGE %>
  112.         alert("<% = L_ERRORIS_ERRORMESSAGE %><% = Err.description %>  : Line #88");
  113.     </script>
  114. <% end if %>
  115.  
  116. <% REM get server name %>
  117. <% GroupAdm.Server = svr %>
  118.  
  119. <% REM set service instance %>
  120. <% GroupAdm.ServiceInstance = svcInstance %>
  121.  
  122. <HTML>
  123. <HEAD>
  124.  
  125. <% if (a = L_NEW_TEXT) then %>
  126.     <TITLE><% = L_ADDTITLE_TEXT %></TITLE>
  127. <% else %>
  128.     <TITLE><% = L_EDITTITLE_TEXT %></TITLE>
  129. <% end if %>
  130.  
  131. <!--#include file="nnisfull.htm" -->
  132.  
  133. <SCRIPT LANGUAGE="javascript">
  134.  
  135.  
  136.     function maintainCheck () 
  137.     {
  138.         uform = document.userform;
  139.         if (uform.rdoModerated[2].checked == true) 
  140.         {
  141.             uform.txtModerator.value = uform.hdnModerator.value;
  142.             uform.txtModerator.focus();
  143.         }
  144.         else
  145.         {
  146.             uform.hdnModerator.value = uform.txtModerator.value;
  147.             uform.txtModerator.value = "";
  148.         }
  149.     }
  150.  
  151.     function convertChktoHdn(chkControl, hdnControl) 
  152.     {
  153.         if (chkControl.checked == true) 
  154.         {
  155.             hdnControl.value = "1";
  156.         }
  157.         else 
  158.         {
  159.             hdnControl.value = "0";
  160.         }
  161.     }
  162.  
  163.     function maintainText () 
  164.     {
  165.         uform = document.userform;
  166.         if ((document.userform.txtModerator.value != "") && (uform.rdoModerated[2].checked == true))
  167.         {
  168.             uform.hdnModerator.value = uform.txtModerator.value;
  169.         }
  170.         else
  171.         {
  172.             uform.hdnModerator.value = uform.txtModerator.value;
  173.             uform.txtModerator.value = "";
  174.         }
  175.     
  176.     }
  177.  
  178.     function checkModerator() 
  179.     {
  180.         if ((document.userform.rdoModerated[2].checked == true) && (document.userform.txtModerator.value == "")) 
  181.         {
  182.             alert("<% = L_MODERATORNAME_TEXT %>");
  183.             return false;
  184.         }
  185.         else 
  186.         {
  187.             return true;
  188.         }
  189.     }
  190.  
  191.     function checkNgrp() 
  192.     {
  193.         if (document.userform.Group.value!="") 
  194.         {
  195.             return true;
  196.         }
  197.         else 
  198.         {
  199.             alert("<% = L_ENTERNAME_TEXT %>")
  200.             return false;
  201.         }
  202.     }
  203.  
  204.     function onOk() 
  205.     {
  206.         if ((checkNgrp())&&(checkModerator()))
  207.         {
  208.             convertChktoHdn(document.userform.chkReadOnly, document.userform.hdnReadOnly);
  209.             convertChktoHdn((!document.userform.rdoModerated[0]), document.userform.hdnModerated);
  210.         <% if (a = L_NEW_TEXT) then %>
  211.             document.userform.a.value = "<% = L_ADD_TEXT %>"
  212.         <% else %>
  213.             document.userform.a.value = "<% = L_SAVE_TEXT %>";
  214.         <% end if %>
  215.         document.userform.submit();
  216.         }
  217.     }
  218.  
  219.     function helpBox() 
  220.     {
  221.         window.open("help/nngrpedh.htm","<% = L_HELPLABEL_TEXT %>","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=300,height=425");
  222.     }
  223.  
  224.     function closeWin()
  225.     {
  226.             <% if (a = L_ADD_TEXT) then %>
  227.                 refresh();
  228.             <% else %>
  229.             <% REM index = window.opener.uForm.selectedItem; %>
  230.                 window.opener.parent.list.location = "nngrpls.asp?svr=<% = svr %>";
  231.             <% end if %>
  232.         self.close();
  233.     }
  234.     
  235.     function refresh()
  236.     {
  237.         window.opener.location = "nngrphd.asp?srv=<% = srv %>&startNum=&find=" + window.opener.parent.parent.menu.document.hiddenform.txtFindNewsgroup.value;
  238.     }
  239.     
  240.  
  241. </SCRIPT>
  242.  
  243. </HEAD>
  244.  
  245. <% if ((a = L_ADD_TEXT) OR (a = L_SAVE_TEXT)) then %>
  246.  
  247.     <% if (a = L_ADD_TEXT) then %>
  248.  
  249.         <% GroupAdm.Newsgroup = Group %>
  250.         <% GroupAdm.Description = Description %>
  251.         <% GroupAdm.Moderator = Moderator %>
  252.         <% GroupAdm.ReadOnly = ReadOnly %>
  253.         <% GroupAdm.PrettyName = PrettyName %>
  254.         <% GroupAdm.IsModerated = Moderated %>
  255.  
  256.         <% On Error Resume Next %>
  257.         <% GroupAdm.Add %>
  258.         <% if (Err <> 0) then %>
  259.             <script language = "javascript">
  260.                 alert ("<% = L_ERRORIS_ERRORMESSAGE %><% = Err.Description %> : Line #238" );
  261.             </script>
  262.         <% end if %>
  263.         <BODY BGCOLOR="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000" onLoad="closeWin();">
  264.  
  265.     <% elseif (a = L_SAVE_TEXT ) then %>
  266.         <% GroupAdm.Newsgroup = Group %>
  267.         <% GroupAdm.Description = Description %>
  268.         <% GroupAdm.Moderator = Moderator %>
  269.         <% GroupAdm.ReadOnly = ReadOnly %>
  270.         <% GroupAdm.PrettyName = PrettyName %>
  271.         <% GroupAdm.IsModerated = Moderated %>
  272.  
  273.         <% On Error Resume Next %>
  274.         <% GroupAdm.Set %>
  275.         <% if ( Err <> 0 ) then %>
  276.             <SCRIPT language="JavaScript">
  277.                 alert ( "<% = L_ERRORIS_ERRORMESSAGE %><% = Err.description %> : Line #254" );
  278.             </SCRIPT>
  279.         <% end if %>
  280.  
  281.         <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000" onLoad="closeWin();">
  282.  
  283.     <% end if %>
  284.  
  285. <% else %>
  286.  
  287.     <% if (a = L_EDIT_TEXT) then %>
  288.         <% On Error Resume Next %>
  289.         <% GroupAdm.Get(Group) %>
  290.             <% if ( Err <> 0 ) then %>
  291.                     <SCRIPT LANGUAGE = "JavaScript">
  292.                             alert ("<% = L_ERRORIS_ERRORMESSAGE %><% = Err.Description %> : Line #269" );
  293.                     </SCRIPT>
  294.             <% end if %>
  295.     <% end if %>
  296.  
  297. <BODY background="images\black.gif" BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  298.  
  299. <FORM NAME="userform" ACTION="nngrped.asp" onSubmit="return false" METHOD="post">
  300.  
  301. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  302.  
  303. <TR><TD>
  304.  
  305.     <FONT SIZE=2 FACE="Arial">
  306.  
  307.     <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>
  308.  
  309.     <% if (a = L_NEW_TEXT) then %>
  310.         <% = L_ADDLABEL_TEXT %> 
  311.     <% else %>
  312.         <% = L_EDITLABEL_TEXT %> 
  313.     <% end if %>
  314.  
  315.     </B></FONT><FONT FACE="Times New Roman" SIZE=3><I> <% = svr %></I></FONT>
  316.  
  317.  
  318.     <INPUT TYPE="hidden" NAME="svr" VALUE="<% = svr %>">
  319.     <INPUT TYPE="hidden" NAME="a" VALUE="<% = a %>">
  320.     <table border="0">
  321.         <tr>
  322.             <td align="left"><FONT FACE="Arial" SIZE=2><% = L_NEWSGROUPLABEL_TEXT %></font></td>
  323.             <td align="left">
  324.                 <FONT FACE="Arial" SIZE=2>
  325.             <% if (a = L_NEW_TEXT) then %>
  326.                 <INPUT NAME="Group" TYPE = "text" VALUE = "<% = Group %>" SIZE=25>
  327.             <% else %>
  328.                 <% = Group %>
  329.                 <INPUT NAME="Group" TYPE = "hidden" VALUE = "<% = Group %>" SIZE=25>
  330.             <% end if %>
  331.                 </font>
  332.             </td>
  333.         </tr><tr>
  334.             <td align="left"><FONT FACE="Arial" SIZE=2><% = L_DESCRIPTIONLABEL_TEXT %></font></td>
  335.             <td align="left">
  336.                 <INPUT NAME="txtDescription" TYPE = "text" VALUE="<% = GroupAdm.Description %>" SIZE = 25>
  337.                 <INPUT NAME ="hdnDescription" TYPE = "hidden" VALUE = "<% = GroupAdm.Description %>" >
  338.             </td>
  339.         </tr><tr>
  340.             <td align="left"><FONT FACE="Arial" SIZE=2><% = L_NEWSGROUPPRETTYNAME_TEXT %></font></td>
  341.             <td align="left"><input name="txtPrettyName" type="text" value="<% = GroupAdm.PrettyName %>" size = 25></td>
  342.         </tr>
  343.     </table>
  344.     <table border="0">
  345.         <tr>
  346.             <td align="left">
  347.                 <INPUT NAME="chkReadOnly" TYPE = "checkbox"
  348.                 <% if ( GroupAdm.ReadOnly <> 0 ) then %> CHECKED <% end if %>>
  349.                 <FONT FACE="Arial" SIZE=2>  <% = L_READONLYLABEL_TEXT %></font>
  350.                 <INPUT NAME="hdnReadOnly" TYPE = "hidden">
  351.             </td>
  352.         </tr><tr>
  353.             <td colspan="2" height="4"> </td>
  354.         </tr><tr>
  355.             <td align="left">
  356.                 <input name="rdoModerated" type="radio"
  357.                 <% if ((GroupAdm.Moderator = "") And (GroupAdm.IsModerated = 0)) then %> checked <% end if %>onClick = "maintainCheck();">
  358.                 <FONT FACE="Arial" SIZE=2>  <% = L_NOTMODERATED_TEXT %></font>
  359.             </td>
  360.         </tr><tr>
  361.             <td align="left">
  362.                 <input name="rdoModerated" type="radio" 
  363.                 <% if ((GroupAdm.Moderator = "" ) And (GroupAdm.IsModerated <> 0)) then %> CHECKED <% end if %>onClick = "maintainCheck();">
  364.                 <FONT FACE="Arial" SIZE=2>  <% = L_MODERATED_DEFAULT_MODERATOR_TEXT %></font>
  365.             </td>
  366.         </tr><tr>
  367.             <td align="left">
  368.                 <INPUT NAME="rdoModerated" TYPE = "radio"
  369.                 <% if (GroupAdm.Moderator <> "" ) then %> CHECKED <% end if %>onClick = "maintainCheck();" >
  370.                 <FONT FACE="Arial" SIZE=2>  <% = L_MODERATEDLABEL_TEXT %></font>
  371.                 <INPUT NAME="hdnModerated" TYPE = "hidden">
  372.             </td>
  373.         </tr><tr>
  374.             <td align="left">
  375.                 <FONT FACE="Arial" SIZE=2><% = L_MODERATORLABEL_TEXT %></font>  
  376.                 <INPUT NAME="txtModerator" TYPE="text" onChange = "maintainText();" VALUE = "<% = GroupAdm.Moderator %>" SIZE=25>
  377.                 <INPUT NAME="hdnModerator" TYPE="hidden" VALUE = "<% = GroupAdm.Moderator %>">
  378.             </td>
  379.         </tr>
  380.     </table>
  381.  
  382. </TD></TR>
  383.  
  384. </TABLE>
  385.  
  386. </FORM>
  387. <script language="javascript">
  388.     uform = document.userform;
  389. <%
  390. if (a = L_NEW_TEXT) then %>
  391.     uform.rdoModerated[0].checked = true;
  392. <% end if %>
  393. </script>
  394.  
  395.  
  396. <P>
  397. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  398.  
  399. <TR>
  400.  
  401.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  402.  
  403.         <TR>
  404.                 
  405.             <TD VALIGN="middle">
  406.                 <FONT FACE="Arial" SIZE=2>
  407.                 <B><A HREF="javascript:onOk();">
  408.                 <IMG SRC="images/gnicok.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  409.                 <A HREF="javascript:onOk();"><% = L_OKLABEL_TEXT %></A></B>
  410.                 </FONT>
  411.             </TD>    
  412.  
  413.         </TR>
  414.         
  415.     </TABLE></TD>
  416.  
  417.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  418.  
  419.         <TR>
  420.                 
  421.             <TD VALIGN="middle">
  422.                 <FONT FACE="Arial" SIZE=2>
  423.                 <B><A HREF="javascript:close();">
  424.                 <IMG SRC="images/gniccncl.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  425.                 <A HREF="javascript:close();"><% = L_CANCELLABEL_TEXT %></A></B>
  426.                 </FONT>
  427.             </TD>    
  428.  
  429.         </TR>
  430.         
  431.     </TABLE></TD>
  432.  
  433.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  434.         <TR>
  435.             <TD VALIGN="middle">
  436.                 <FONT FACE="Arial" SIZE=2>
  437.                 <B><A HREF="javascript:helpBox();"><IMG HEIGHT=16 WIDTH=16 ALIGN="top" SRC="images/gnichelp.gif" BORDER=0 ALT="Help"></A>
  438.                 <A HREF="javascript:helpBox();"><% = L_HELPLABEL_TEXT %></A></B>
  439.                 </FONT>
  440.             </TD>
  441.         </TR>
  442.  
  443.     </TABLE></TD>
  444.  
  445.  
  446.     <TD> </TD>
  447.  
  448. </TR>
  449.  
  450. </TABLE>
  451.  
  452. <% end if %>
  453.  
  454. </BODY>
  455. </HTML>
  456.  
  457. <% end if %>
  458. <% end if %>