<% Response.Expires = 0 %>
<%
REM LOCALIZATION
L_PAGETITLE_TEXT = "Microsoft Internet Service Manager"
L_ERRORACCESSDENIED_ERRORMESSAGE = "Error: Access is Denied."
L_ERRORIS_ERRORMESSAGE = "Error is: "
L_ADDTITLE_TEXT = "Add Newsgroup"
L_EDITTITLE_TEXT = "Edit Newsgroup Properties"
L_ENTERNAME_TEXT = "Please enter a newsgroup name."
L_ADDLABEL_TEXT = "Add Newsgroup on"
L_EDITLABEL_TEXT = "Edit Newsgroup on"
L_NEWSGROUPLABEL_TEXT = "Newsgroup:"
L_DESCRIPTIONLABEL_TEXT = "Description:"
L_READONLYLABEL_TEXT = "Read only"
L_MODERATEDLABEL_TEXT = "Moderated"
L_MODERATORLABEL_TEXT = "Moderated by:"
L_OKLABEL_TEXT = "OK"
L_CANCELLABEL_TEXT = "Cancel"
L_HELPLABEL_TEXT = "Help"
L_MODERATORNAME_TEXT = "Moderated newsgroups must have a moderator. Please enter a moderator name."
L_NEWSGROUPPRETTYNAME_TEXT = "NewsGroup prettyname:"
L_NOTMODERATED_TEXT = "Not moderated"
L_MODERATED_DEFAULT_MODERATOR_TEXT = "Moderated by default newsgroup moderator"
L_NOSERVICE_ERRORMESSAGE = "The NNTP Service is not started, You must start the service before you can add/or edit a Group."
L_NEW_TEXT = "new" 'internal string do NOT localize
L_ADD_TEXT = "add" 'internal string do NOT localize
L_SAVE_TEXT = "save" 'internal string do NOT localize
L_EDIT_TEXT = "edit" 'internal string do NOT localize
L_STARTED_NUMBER = 2 'internal varible do NOT localize
REM END LOCALIZATION
%>
<% svr = Request ("svr") %>
<% a = Request ("a") %>
<% svcInstance = Request("ServiceInstance") %>
<% Description = Request ("txtDescription") %>
<% Moderated = Request ("hdnModerated") %>
<% Moderator = Request ("txtModerator") %>
<% ReadOnly = Request ("hdnReadOnly") %>
<% index = Request("index") %>
<% PrettyName = Request("txtPrettyName") %>
<%
if (svcInstance = "") then
svcInstance = Session("ServiceInstance")
end if
%>
<% Group = Request ("Group") %>
<% if (cont = true) then %>
<% REM Create Nntp admin object To check to see if the service is running%>
<% On Error Resume Next %>
<% Set Admin = Server.CreateObject("NntpAdm.Admin.1") %>
<% if Err <> 0 then %>
<% end if %>
<% On Error Resume Next %>
<% set nntpService = Server.CreateObject("Nntpadm.VirtualServer.1") %>
<% if (Err <> 0 ) then %>
<% end if %>
<% REM Set nntp Service Server %>
<% On Error Resume Next %>
<% nntpService.Server = svr %>
<% if (Err <> 0 ) then %>
<% end if %>
<% REM Set nntp Service Service Instance %>
<% On Error Resume Next %>
<% nntpService.ServiceInstance = Session("ServiceInstance") %>
<% if (Err <> 0 ) then %>
<% end if %>
<% nntpService.Get %>
<% ServerState = nntpService.State %>
<% if (ServerState <> L_STARTED_NUMBER) then %>
<% else %>
<% On Error Resume Next %>
<% Set GroupAdm = Server.CreateObject("nntpadm.groups") %>
<% if Err <> 0 then %>
<% end if %>
<% REM get server name %>
<% GroupAdm.Server = svr %>
<% REM set service instance %>
<% GroupAdm.ServiceInstance = svcInstance %>
<% if (a = L_NEW_TEXT) then %>
<% = L_ADDTITLE_TEXT %>
<% else %>
<% = L_EDITTITLE_TEXT %>
<% end if %>
<% if ((a = L_ADD_TEXT) OR (a = L_SAVE_TEXT)) then %>
<% if (a = L_ADD_TEXT) then %>
<% GroupAdm.Newsgroup = Group %>
<% GroupAdm.Description = Description %>
<% GroupAdm.Moderator = Moderator %>
<% GroupAdm.ReadOnly = ReadOnly %>
<% GroupAdm.PrettyName = PrettyName %>
<% GroupAdm.IsModerated = Moderated %>
<% On Error Resume Next %>
<% GroupAdm.Add %>
<% if (Err <> 0) then %>
<% end if %>
<% elseif (a = L_SAVE_TEXT ) then %>
<% GroupAdm.Newsgroup = Group %>
<% GroupAdm.Description = Description %>
<% GroupAdm.Moderator = Moderator %>
<% GroupAdm.ReadOnly = ReadOnly %>
<% GroupAdm.PrettyName = PrettyName %>
<% GroupAdm.IsModerated = Moderated %>
<% On Error Resume Next %>
<% GroupAdm.Set %>
<% if ( Err <> 0 ) then %>
<% end if %>
<% end if %>
<% else %>
<% if (a = L_EDIT_TEXT) then %>
<% On Error Resume Next %>
<% GroupAdm.Get(Group) %>
<% if ( Err <> 0 ) then %>
<% end if %>
<% end if %>
<% = L_OKLABEL_TEXT %>
<% = L_CANCELLABEL_TEXT %>
<% = L_HELPLABEL_TEXT %>