<% Response.Expires = 0 %>
<% svr = Request("svr") %>
<% a = Request("a") %>
<% id = Request("id") %>
<% NewsName = Request("Name") %>
<%
L_PAGETITLE_TEXT = "Microsoft Internet Service Manager"
L_UNLIMITED_TEXT = "Unlimited"
L_EXPIRATIONREMOVE_TEXT = "Are you sure you want to remove this expiration policy?"
L_NAME_TEXT = "Name"
l_NEWSGROUPS_TEXT = "Newsgroups"
L_SIZE_TEXT = "Size (MB)"
L_TIME_TEXT = "Time (Days)"
L_MYID_TEXT = "ID"
L_ID_TEXT = "ID"
L_EXPIRATIONPOLICIESON_TEXT = "Expiration Policies on"
L_REMOVE_TEXT = "remove" 'Internal string do NOT localize
L_ADD_TEXT = "add" 'Internal string do NOT localize
%>
<% if (cont = true) then %>
<% On Error Resume Next %>
<% Set AdminObj = Server.CreateObject("NntpAdm.Admin.1") %>
<% if Err <> 0 then %>
<% end if %>
<% On Error Resume Next %>
<% Set ExpireObj = Server.CreateObject("NntpAdm.Expiration") %>
<% if Err <> 0 then %>
<% end if %>
<% REM get server name %>
<% ExpireObj.Server = svr %>
<% REM set service instance %>
<% ExpireObj.ServiceInstance = Session("ServiceInstance") %>
<% if (a = L_REMOVE_TEXT) then %>
<% ExpireObj.Enumerate %>
<% On Error Resume Next %>
<% ExpireObj.Remove(id) %>
<% if (Err <> 0) then %>
<% else %>
<% end if %>
<% elseif (a = L_ADD_TEXT) then %>
<% end if %>
<% = L_PAGETITLE_TEXT %>
<% = L_EXPIRATIONPOLICIESON_TEXT %> <% = svr %>