<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_TITLE_TEXT = "Internet Service Manager (HTML) " Const L_LIVESCRIPT_TEXT = "This page requires a newer version of LiveScript to view. Do you want to upgrade now?" %> <% function MinVer(browserver,brwminver) MinVer = (browserver >= brwminver) end function function GetBrowserVer(browserstr) dim browserver, i, curchr browserver = "" for i = 1 to len(browserstr) curchr = Mid(browserstr, i,1) if isNumeric(curchr) or curchr = "." then browserver = browserver & curchr end if if browserver <> "" and not (isNumeric(curchr) or curchr = ".") then exit for end if next GetBrowserVer = browserver end function On Error Resume Next Dim browserobj, browserkey, browserok,browserver,agentstr browserkey = "Unknown Browser" agentstr = Request.ServerVariables("HTTP_USER_AGENT") Session("CanBrowse") = True if Request.Querystring("browserok") <> "" or Request.QueryString("FONTSIZE") <> "" then browserok = True else if Instr(agentstr, "MSIE") then browserver = CInt(GetBrowserVer(Mid(agentstr,InStr(agentstr,"MSIE")))) browserok=MinVer(browserver,3) browserKey = "IE" & browserver Session("IsIE") = True else Session("IsIE") = False if Instr(agentstr,"Mozilla") then browserver = CInt(GetBrowserVer(agentstr)) browserKey = "Netscape" if InStr(agentstr, "Win") > 0 then browserok=MinVer(browserver,3) else browserok=MinVer(browserver,4) end if else browserok = false end if end if Session("Browser") = browserkey Session("IsMac") = InStr(agentstr, "Mac") > 0 if Session("IsMac") then Session("CanBrowse") = False end if end if %> <% if browserok then %> <% if Request.QueryString("FONTSIZE") <> "" then Response.Cookies("HTMLA")("FONTSIZE")=Request.QueryString("FONTSIZE") Response.Cookies("HTMLA").expires=#December 31, 2000 1:00:00 AM# Session("FONTSIZE")=Request.QueryString("FONTSIZE") Session.timeout=200 else Session("FONTSIZE") = Request.Cookies("HTMLA")("FONTSIZE") end if %> <% if Session("IsIE") then %> <% end if %> <%= L_TITLE_TEXT %> <% else %>
  Your web browser has not been tested to administer IIS 4.0.

You may continue to use the Ineternet Service Manager (HTML) with your current browser, but you may experience problems.

For best viewing, we recommend that you install the released version of Microsoft® Internet Explorer. You can download it now!

Continue with my current browser.

Minimum Browser Requirements:

Windows
Microsoft® Internet Explorer 3.02
Netscape Navigator® 3.0

Macintosh
Microsoft® Internet Explorer 3.01
Netscape Navigator® 4.03

Unix
Netscape Navigator® 4.03

<% end if %>