<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const L_ENTERINTEGER_ERRORMESSAGE="Please enter an integer"
Const L_UNSAVEDCHANGES_ERRORMESSAGE="You have unsaved changes. Save now?"
Const L_IIS_TEXT="Internet Information Server"
Const L_ENABLETHROTTLE_TEXT="Enable Bandwith Throttling"
Const L_LIMIT_TEXT="Limit network use by all Internet Information Server Virtual Servers on this computer."
Const L_MAXUSAGE_TEXT="Maximum Network Use:"
Const L_MASTER_TEXT="Master Properties"
Const L_EDITPROPERTIES_TEXT="Edit the properties inherited by all Virtual Servers created on this computer."
Const L_WWWSERVICE_TEXT="WWW Service"
Const L_FTPSERVICE_TEXT="FTPSERVICE"
Const L_EDIT_TEXT="Edit..."
Const L_ACCESSDENIED_TEXT="Access Denied"
Const L_ENABLEBANDWIDTH_TEXT="Enable Bandwidth Throttling"
Const L_LIMITNET_TEXT="Limit network use by all Internet Information Services on this computer."
Const L_KBS_TEXT="KB/S"
Const L_MAXNETUSAGE_TEXT="Maximum network use:"
Const L_MIMEMAP_TEXT = "MIME Map"
Const L_CONFIGURE_TEXT = "To configure the MIME types the Web Service sends to browsers in the HTTP header, click File Types"
Const L_FILETYPES_TEXT="File Types..."
On Error Resume Next
Dim path, currentobj, L_TITLE_TEXT, mbw
L_TITLE_TEXT = "Server Properties - [" & Request.ServerVariables("SERVER_NAME") &"]"
path=Session("dpath")
Session("path")=path
Session("SpecObj")=""
Session("SpecProps")=""
Set currentobj=GetObject(path)
%>
<%= L_TITLE_TEXT %><%= L_IIS_TEXT %>
<% end if %>