<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% On Error Resume Next Dim path, currentobj,agreeting, greeting, arraybound, i path=Session("spath") Session("path")=path Set currentobj=GetObject(path) Session("SpecObj")="" Session("SpecProps")="" if IsArray(currentobj.GreetingMessage) then agreeting=currentobj.GreetingMessage greeting= "" arraybound=UBound(agreeting) for i=0 to arraybound greeting=greeting & agreeting(i) Next else greeting=currentobj.GreetingMessage end if %> " TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();" > <%= sFont("","","",True) %> <%= L_VSERVERMSG_TEXT %>

<%= sFont("","","",True) %><%= L_WELCOME_TEXT %>

<% if Session("IsIE") then %> COLS=<%= L_WELCOMECOLSIE_NUM %>><%= greeting %> <% else %> COLS=<%= L_WELCOMECOLSNS_NUM %>><%= greeting %> <% end if %>

<%= sFont("","","",True) %>

<%= sFont("","","",True) %><%= L_EXIT_TEXT %>

<%= sFont("","","",True) %><%= text("ExitMessage",L_EXIT_NUM,"","","",false,false) %>

<%= sFont("","","",True) %>

<%= sFont("","","",True) %><%= L_MAX_TEXT %>

<%= sFont("","","",True) %><%= text("MaxClientsMessage",L_MAX_NUM,"","","",false,false) %>

<% end if %>