<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Dim isAdmin,FTPObj, FTPINSTALLED isAdmin=Session("isAdmin") On Error Resume Next Set FTPObj = GetObject("IIS://localhost/MSFTPSVC") FTPINSTALLED = (err = 0) err.Clear Function MenuIcon(gif) if gif = "" then gif = "cube.gif" end if MenuIcon = " " End Function %> <%= Session("MENUBODY") %>

<% if isAdmin then %> <% if false then%> <% end if%> <% end if %>

<%= MenuIcon("new.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_NEW_TEXT %>
<%= MenuIcon("remv.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_DELETE_TEXT %>
<%= MenuIcon("rename.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_RENAME_TEXT %>
<%= MenuIcon("edit.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_PROPS_TEXT %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= MenuIcon("next.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_START_TEXT %>
<%= MenuIcon("stop.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_STOP_TEXT %>
<%= MenuIcon("pause.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_PAUSE_TEXT %>
<%= MenuIcon("roll.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_RESUME_TEXT %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= MenuIcon("perm.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_PERMWIZ_TEXT %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= MenuIcon("master.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_MASTER_TEXT %>  <% if Session("IsIE") then %> <% else %> <% end if %> ;font-size:10pt;"> <%= L_WEB_TEXT %>... <% if FTPINSTALLED then %><%= L_FTP_TEXT %>...<% end if %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= MenuIcon("save.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %><%= L_BACKUP_TEXT %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>
<%= MenuIcon("save.gif") %>	<%= sFont(Session("MENUFONTSIZE"),Session("MENUFONT"),"",True) %>Certificate Wizard

<% end if %>