<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
dim hackfor5
hackfor5 = False
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
if Request.Querystring("browserok") <> "" or Request.QueryString("FONTSIZE") <> "" then
browserok = True
else
browserkey = "Unknown Browser"
agentstr = Request.ServerVariables("HTTP_USER_AGENT")
Session("CanBrowse") = True
Session("ListSort") = True
Session("FONTSCALE") = L_DEFFONTSCALE_TEXT
Session("FONTFACE") = L_DEFTEXTFONT_TEXT
Session("FONTPOINT") = L_DEFFONTPOINT
Session("MENUFONT") = L_DEFMENUFONT_TEXT
Session("MENUFONTSIZE") = L_DEFMENUFONTPOINT
Session("MENUBODY") = ""
Session("DEFINPUTSTYLE") = L_DEFINPUTSTYLE
Session("IE3Layout") = False
Session("IE4Layout") = False
Session("hasDHTML") = False
Session("hasStyles") = True
Session("BGCOLOR") = "Silver"
Session("BrowserVer") = ""
Session("BrowserVScalePct") = 100
Session("BrowserHScalePct") = 100
Session("BrowserTBScalePct") = 100
if Instr(agentstr, "MSIE") then
curLocale = GetLocale
SetLocale("en-us")
browserver = CInt(GetBrowserVer(Mid(agentstr,InStr(agentstr,"MSIE"))))
SetLocale(curLocale)
'check for mac... we will warn users on pre IE4
if InStr(agentstr, "Mac") > 0 then
browserok=MinVer(browserver,4)
else
browserok=MinVer(browserver,3)
end if
browserKey = "IE" & browserver
Session("BrowserVer") = browserver
Session("IsIE") = True
if browserver > 3 then
Session("IE4Layout") = True
Session("hasDHTML") = True
end if
else
Session("IsIE") = False
if Instr(agentstr,"Mozilla") then
SetLocale("en-us")
browserver = CInt(GetBrowserVer(agentstr))
SetLocale(curLocale)
browserKey = "Netscape"
Session("BrowserVer") = browserver
if InStr(agentstr, "Win") > 0 then
browserok=MinVer(browserver,3)
elseif InStr(agentstr, "Mac") > 0 then
browserok=MinVer(browserver,4)
Session("CanBrowse") = False
Session("IsMac") = True
else
browserok=MinVer(browserver,4)
Session("IsUNIX") = True
Session("hasStyles") = False
Session("ListSort") = False
Session("FONTSCALE") = L_UNIXFONTSCALE
Session("FONTFACE") = L_UNIXTEXTFONT_TEXT
Session("FONTPOINT") = L_UNIXFONTPOINT
Session("MENUFONT") = L_UNIXMENUFONT_TEXT
Session("MENUFONTSIZE") = L_UNIXFONTPOINT
if browserver > 4 then
Session("DEFINPUTSTYLE")= ""
else
Session("DEFINPUTSTYLE") = L_UNIXINPUTSTYLE
end if
end if
if browserver < 4 then
Session("BrowserVScalePct") = 128
Session("BrowserHScalePct") = 104
else
Session("BrowserVScalePct") = 125
Session("BrowserHScalePct") = 104
end if
Session("BrowserTBScalePct") = 75
else
browserok = false
end if
end if
Session("Browser") = browserkey
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 %>
