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