<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const L_VSERVERMSG_TEXT="FTP Messages"
Const L_WELCOME_TEXT="Welcome:"
Const L_EXIT_TEXT="Exit:"
Const L_MAX_TEXT="Maximum Connections:"
Const L_ACCESSDENIED_TEXT="Access Denied"
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
%>
<%= L_VSERVERMSG_TEXT %>
<% end if %>