<% Response.Expires = 0 %> <% REM LOCALIZATION L_MENUTITLE_TEXT = "Select Server" L_ENTERSERVERNAME_TEXT = "Please enter a server name." L_SERVERALPHANUMALERT_TEXT = "Server names can only contain alphanumeric characters." L_SERVERNUMALERT_TEXT = "Server names names cannot be longer than 50 characters." L_SERVERNAMELABEL_TEXT = "Server name:" L_OKLABEL_TEXT = "OK" L_CANCELLABEL_TEXT = "Cancel" L_HELPLABEL_TEXT = "Help" REM END LOCALIZATION %> <% svr = Request("svr") %> <% a = Request("a") %> <% if (cont=true) then %> <% = L_MENUTITLE_TEXT %> <% if (a = "save") then %> <% Set admin = CreateObject("NntpAdm.Admin.1") %> <% Set serv = CreateObject("NntpAdm.VirtualServer.1") %> <% serv.Server = svr %> <% serv.ServiceInstance = Session("ServiceInstance") %> <% On Error Resume Next %> <% serv.Get %> <% if (Err <> 0) then %> <% else %> <% end if %> <% end if %>

<% = L_MENUTITLE_TEXT %>
<% = L_SERVERNAMELABEL_TEXT %>  

OK <% = L_OKLABEL_TEXT %>
Cancel <% = L_CANCELLABEL_TEXT %>
Help <% = L_HELPLABEL_TEXT %>
 
<% end if %>