<% Response.Expires = 0 %>
<%
REM LOCALIZATION
L_PAGETITLE_TEXT = "Microsoft News Server Administration"
L_UNSAVEDCHANGES_TEXT = "You have unsaved property changes. Do you want to save them now?"
L_SERVER_TEXT = "Server"
L_INVALIDACCOUNT_TEXT = "Invalid account name."
L_INVALIDPASSWORD_TEXT = "Invalid password."
L_FEED_TEXT = "Feed"
L_PROPERTIES_TEXT = "Properties"
L_SUBS_TEXT = "Subscriptions"
L_SCHEDULE_TEXT = "Schedule"
L_SECURITY_TEXT = "Security"
L_NEWS_TEXT = "News"
L_SERVERS_TEXT = "Services"
L_SERVICE_TEXT = "Service"
L_SESSIONS_TEXT = "Sessions"
L_GENERAL_TEXT = "NNTP Settings"
L_FEEDS_TEXT = "Feeds"
L_EXPIRATION_TEXT = "Expiration"
L_GROUPS_TEXT = "Groups"
L_DIRECTORIES_TEXT = "Directories"
L_DIRSECURITY_TEXT = "Security"
L_HOMEDIRECTORY_TEXT = "Home Directory"
L_POLICY_TEXT = "Policy"
L_NEWSGROUPS_TEXT = "Newsgroups"
L_ACCESSDENIED_ERRORMESSAGE = "Error: Access is Denied."
L_UNSAVED_PROP_CHANGES_TEXT = "You have unsaved property changes. Do you want to save them now?"
CHANGELEVEL_TEXT = "changelevel" 'internal string do NOT localize
SAVE_TEXT = "save" 'internal string do NOT localize
CLOSE_TEXT = "close" 'internal string do NOT localize
TRUE_TEXT = "true" 'internal string do NOT localize
FALSE_TEXT = "false" 'internal string do NOT localize
REM END LOCALIZATION
%>
<% REM Get variables %>
<% REM svr = Server name %>
<% REM save = Action to be performed by server-side code %>
<% REM id = ID of expiration policy %>
<% REM chpg = Page to be loaded in top level %>
<% REM pg = Current page in main frame %>
<% save = Request("save") %>
<% svr = Session("svr") %>
<% id = Cint(Request("id")) %>
<% chpg = Request("chpg") %>
<% pg = Request("pg") %>
<% REM If no main page is selected, set to Policy page %>
<% if (pg = "") then %>
<% pg = "nnexppl" %>
<% end if %>
<% if (cont = true) then %>
<% REM CREATE EXPIRATION OBJECT %>
<% 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") %>
<% REM ENUMERATE EXPIRE OBJECTS %>
<% ExpireObj.Enumerate %>
<% REM FIND OBJECT WHICH MATCHES ID %>
<% index = ExpireObj.FindID(id) %>
<% REM GET OBJECT WHICH MATCHES ID %>
<% On Error Resume Next %>
<% ExpireObj.GetNth (index) %>
<% if (Err <> 0) then %>
<% end if %>
<% = L_PAGETITLE_TEXT %>
<% if ((save = SAVE_TEXT) OR (save = CLOSE_TEXT) OR (save = CHANGELEVEL_TEXT)) then %>
<% ExpTime = Request("ExpTime") %>
<% ExpSizeHorizon = Request("ExpSizeHorizon") %>
<% if ((ExpTime <> "") AND (ExpSizeHorizon <> "")) then %>
<% if (ExpTime = "-1") then %>
<% ExpireObj.ExpireTime = -1 %>
<% else %>
<% ExpireObj.ExpireTime = (ExpTime * 24) %>
<% end if %>
<% ExpireObj.ExpireSize = ExpSizeHorizon %>
<% elseif ((ExpTime <> "") and (ExpSizeHorizon = "")) then %>
<% if (ExpTime = "-1") then %>
<% ExpireObj.ExpireTime = -1 %>
<% else %>
<% ExpireObj.ExpireTime = (ExpTime * 24) %>
<% end if %>
<% ExpireObj.ExpireSize = -1 %>
<% else %>
<% ExpireObj.ExpireTime = -1 %>
<% ExpireObj.ExpireSize = ExpSizeHorizon %>
<% end if %>
<% On Error Resume Next %>
<% ExpireObj.Set %>
<% if (Err <> 0) then %>
<% end if %>
<% if (Error <> 0) then %>
<% end if %>
<% if (a = CHANGELEVEL_TEXT) then %>
<% end if %>
<% end if %>
<% REM Determine browser to use either floating frame nav arrow (IE) or image replacement nav arrow (Netscape) %>
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
<% browser = "ms" %>
<% if (pg = "nnexppl") then %>
<% num = 1 %>
<% elseif (pg = "nnexpg") then %>
<% num = 2 %>
<% end if %>
<% else %>
<% browser = "ns" %>
<% end if %>
<% if (browser = "ns") then %>
<% end if %>
<% end if %>