home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnexpgad.asp < prev    next >
Text File  |  1997-10-12  |  3KB  |  120 lines
  1. <% Response.Expires = 0 %>
  2. <%
  3. L_ADDEXPIRATIONTITLE_TEXT    = "Add New Expiration Policy Newsgroup"
  4. L_NEWEXPIRATION_TEXT        = "New Expiration Policy Newsgroup"
  5. L_NEWSGROUP_TEXT            = "Newsgroup:"
  6. L_OK_TEXT                    = "OK"
  7. L_CANCEL_TEXT                = "Cancel"
  8.  
  9. L_ADD_TEXT    = "Add" 'Internal string do NOT localize
  10.  
  11. %>
  12. <% ServerName = Request("Svr") %>
  13. <% Id = Request("Id") %>
  14. <% Action = Request("Act") %>
  15. <% NewsName = Request("txtNewsgroup") %>
  16.  
  17. <% Set nntp = Server.CreateObject("MSWC.Nntp") %>
  18. <% nntp.RpcServerName = ServerName %>
  19.  
  20. <% nntp.ExpId = Id %>
  21.  
  22. <HTML>
  23. <HEAD>
  24.  
  25. <SCRIPT LANGUAGE = "JavaScript">
  26.  
  27. function verify(name) 
  28. {
  29.     if (name!="") 
  30.     {
  31.         document.userform.Act.value = "<% = L_ADD_TEXT %>";
  32.         return true;
  33.     }
  34.     else { return false; }
  35. }
  36. function okAdd() 
  37. {
  38.     if (verifyAdd() == true) { document.userform.submit(); }
  39. }
  40. </SCRIPT>
  41. <TITLE><% = L_ADDEXPIRATIONTITLE_TEXT %></TITLE>
  42.  
  43. </HEAD>
  44.  
  45. <% if ( Action = L_ADD_TEXT ) then %>
  46.     <% Error = nntp.ExpGetInfo %>
  47.     <% if ( Error <> 0 ) then %>
  48.     <SCRIPT LANGUAGE = "JavaScript">
  49.         alert ( "<% = nntp.ErrorToString ( Error ) %>" );
  50.     </SCRIPT>
  51.     <% end if %>
  52.     <% Error = nntp.ExpGrpAdd(NewsName) %>
  53.        <% if ( Error <> 0 ) then %>
  54.         <SCRIPT LANGUAGE = "JavaScript">
  55.             alert ( "<% = nntp.ErrorToString ( Error ) %>" );
  56.         </SCRIPT>
  57.     <% end if %>
  58.     <% Error = nntp.ExpSetInfo %>
  59.     <% if ( Error <> 0 ) then %>
  60.         <SCRIPT LANGUAGE = "JavaScript">
  61.             alert ( "<% = nntp.ErrorToString ( Error ) %>" );
  62.         </SCRIPT>
  63.     <% else %>
  64.         <SCRIPT LANGUAGE = "JavaScript">
  65.             self.close();
  66.             opener.location = "nneedls.asp?Id=<% = Id %>";
  67.         </SCRIPT>
  68.     <% end if %>
  69. <% end if %>
  70. <BODY BGCOLOR="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  71. <FORM NAME="userform" METHOD="post" ACTION="nneedad.asp" onSubmit="return verify(txtNewsgroup.value);">
  72. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  73. <TR>
  74.     <TD>
  75.         <FONT SIZE=2 FACE="Arial">
  76.         <B><% = L_NEWEXPIRATION_TEXT %></B>
  77.         <BLOCKQUOTE><% = L_NEWSGROUP_TEXT %>  <INPUT NAME="newsgroup" TYPE="text" SIZE=25></BLOCKQUOTE>
  78.     </TD>
  79. </TR>
  80. </TABLE>
  81. <INPUT NAME = "Svr" TYPE = "hidden" VALUE="<% = ServerName %>">
  82. <INPUT NAME = "Id" TYPE = "hidden" VALUE=<% = Id %>>
  83. <INPUT NAME = "Act" TYPE = "hidden" VALUE="">
  84.  
  85. <P>
  86. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  87. <TR>
  88.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  89.         <TR>
  90.             <TD VALIGN="middle">
  91.                 <FONT FACE="Arial" SIZE=2>
  92.                 <B><A HREF="javascript:okAdd();"><% = L_OK_TEXT %></A></B>
  93.                 </FONT>
  94.             </TD>
  95.         </TR>
  96.     </TABLE>
  97.     </TD>
  98.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  99.         <TR>
  100.             <TD VALIGN="middle">
  101.                 <FONT FACE="Arial" SIZE=2>
  102.                 <B><A HREF="javascript:close();"><% = L_CANCEL_TEXT %></A></B>
  103.                 </FONT>
  104.             </TD>
  105.         </TR>
  106.     </TABLE>
  107.     </TD>
  108.  
  109.     <TD> </TD>
  110. </TR>
  111. <SCRIPT LANGUAGE = "JavaScript">
  112.     document.userform.newsgroup.focus();
  113. </SCRIPT>
  114.  
  115. </BODY>
  116. </HTML>
  117.  
  118.  
  119.  
  120.