<% Response.Expires = 0 %> <% L_ADDEXPIRATIONTITLE_TEXT = "Add New Expiration Policy Newsgroup" L_NEWEXPIRATION_TEXT = "New Expiration Policy Newsgroup" L_NEWSGROUP_TEXT = "Newsgroup:" L_OK_TEXT = "OK" L_CANCEL_TEXT = "Cancel" L_ADD_TEXT = "Add" 'Internal string do NOT localize %> <% ServerName = Request("Svr") %> <% Id = Request("Id") %> <% Action = Request("Act") %> <% NewsName = Request("txtNewsgroup") %> <% Set nntp = Server.CreateObject("MSWC.Nntp") %> <% nntp.RpcServerName = ServerName %> <% nntp.ExpId = Id %> <% = L_ADDEXPIRATIONTITLE_TEXT %> <% if ( Action = L_ADD_TEXT ) then %> <% Error = nntp.ExpGetInfo %> <% if ( Error <> 0 ) then %> <% end if %> <% Error = nntp.ExpGrpAdd(NewsName) %> <% if ( Error <> 0 ) then %> <% end if %> <% Error = nntp.ExpSetInfo %> <% if ( Error <> 0 ) then %> <% else %> <% end if %> <% end if %>
<% = L_NEWEXPIRATION_TEXT %>
<% = L_NEWSGROUP_TEXT %>  
>

<% = L_OK_TEXT %>
<% = L_CANCEL_TEXT %>