<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_SAVECHANGES_WARNING="You have unsaved changes. Save your changes now?" Const L_NOTIMPLEMENTED_ERRORMESSAGE="This feature is not yet implemented." Const L_VIRTUALSERVER_TEXT="FTP Site" Const L_SECACCT_TEXT="Security Accounts" Const L_OPERATOR_TEXT="Operators" Const L_MESSAGES_TEXT="Messages" Const L_LOGFORMAT_TEXT="Logging" Const L_VIRTUALDIRECTORY_TEXT="Home Directory" Const L_SEC_TEXT="Directory Security" Const L_MASTERPROPS_TEXT = "Master Properties" Const L_DEFAULTSITE_TEXT="Default FTP Site" Dim vtype vtype=Request.QueryString("vtype") %> <% if Session("IsIE") then %>
<% end if %> <% if (vtype="server") or (vtype="svc") then %> <% end if %> <% if vtype="svc" then %> <% end if %>

<% if vtype="svc" then %> <% else %> <% end if %>
	<%= L_VIRTUALSERVER_TEXT %>
	<%= L_OPERATOR_TEXT %>
	<%= L_SECACCT_TEXT %>
	<%= L_MESSAGES_TEXT %>
	<%= L_DEFAULTSITE_TEXT %>
	<%= L_VIRTUALDIRECTORY_TEXT %>
	<%= L_SEC_TEXT %>