<% 'This script sniffs out the MSIE browser version number and Authenticode 2. 'The message is given to the user via a message box, therefore there is 'no messages for users MSIE 1.x and MSIE 2.x users. The sniffing is done with 'use of the browscap.ini file and the user agent string all on the server side with 'denali scripting. 'Three messages are returned, only one for each user: 'messagebox1 = 3.0 or 3.0A or 3.0A3 or 3.0B or 3.0B3 users "Download IE3.02 and update to Authenticode 2" 'messagebox2 = 3.1 users "Download patch and update to Authenticode 2" 'messagebox3 = 3.02 users "Update to Authenticode 2" 'If this script is not performing as expected check the user agent string 'of the computer that is giving you the error, with a denali server side sniff. dim ie30, ie31, needUpdate, loadActivex set bc = Server.CreateObject("MSWC.BrowserType") set ua = Request.ServerVariables("HTTP_USER_AGENT") set lang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") browser = bc.browser platform = bc.platform majorver = bc.majorver minorver = bc.minorver fullver = majorver & "." & minorver 'returns something like 3.02 needUpdate = false loadActivex = false english = false if platform = "WinNT" or platform = "Win95" or platform = "Win32" and browser = "IE" then if (fullver = "3.0") or (fullver ="3.0A") or (fullver ="3.0A3") or (fullver = "3.0B") or (fullver = "3.0B3") then ie30 = true 'messagebox1 end if if fullver = "3.01" then ie31 = true 'messagebox2 end if if fullver = "3.02" then if instr(ua, "Update a") then needUpdate = false loadActivex = true else needUpdate = true 'messagebox3 end if end if if majorver = "4" then loadActivex = true end if end if If lang = "en" then english = true end if %> Test Page