Determine Browser and Platform variables (Server Side)
This ASP object needs an up to date browscap.ini file to function correctly.
<![CDATA[
' ===========================
' Get the Browser Object
' ===========================
dim bc
Set bc = Server.CreateObject("MSWC.BrowserType")
Dim bType, bVersion, bPlatform, bFrames, btables, bJavascript, bApplets
Dim bBrowserOk, bCSS, bWin16, bBrowserVersionOk, bApple, strMinorVersion, bNSFailedVersion
bBrowserOk = true
bBrowserVersionOk=true
bApple=true
bNSFailedVersion = true
' Browser Type
if (Ucase(bc.Browser)<>"IE" and Ucase(bc.Browser)<>"NETSCAPE") then
bBrowserVersionOk = false
end if
' Browser Version
if (Ucase(bc.Browser)<>"NETSCAPE") then
if ((bc.version <= 4.0) and (bc.minorver < 01)) then
bBrowserVersionOk = false
end if
else
strMinorVersion = Mid(bc.minorver,1,1)
if (strMinorVersion="0" or strMinorVersion=0) then
strMinorVersion = bc.minorver / 10
else
strMinorVersion = bc.minorver
end if
if (bc.version < 4.0) or ((bc.version=4.0) and (strMinorVersion < 0.8)) then
bBrowserVersionOk = false
end if
end if
' Browser Platform
if (Ucase(bc.Platform)<>"WIN2000" and Ucase(bc.Platform)<>"WIN95" and Ucase(bc.Platform)<>"WINNT" and Ucase(bc.Platform)<>"WIN98" AND Ucase(bc.Platform)<>"UNKNOWN") then
bBrowserOk = false
end if
if (INSTR(Ucase(bc.Platform),"MAC") or INSTR(Ucase(bc.Platform),"APPLE")) then
bApple = false
end if
' Browser Frames
bFrames = bc.frames
if (bFrames = false) then
bBrowserOk = false
end if
' Browser Tables
bTables = bc.tables
if (bTables = false) then
bBrowserOk = false
end if
' Browser Javascript
bJavascript = bc.javascript
if ( bJavascript = false) then
bBrowserOk = false
end if
' Browser Java Applets
bApplets = bc.javaapplets
if ( bJavascript = false) then
bBrowserOk = false
end if
' Browser WIN 16
bWin16 = bc.Win16
if (bWin16 = true) then
bBrowserOk = false
end if
' Browser Cascading Style Sheets
bCSS = bc.CSS
if (bCSS = false) then
bBrowserOk = false
end if
%>
]]>