<% ' detect version of IE? Versions 6 and 7 are not like version 8, so we may need ' to detect these in order to "tweak" the rendering so it's OK in all browsers user_agent = request.servervariables("HTTP_USER_AGENT") strBrowser = "Default" 'Response.Write("user_agent is " & user_agent & "
") 'if user_agent contains the following strings as below, we have detected the browser: IsFirefox = InStr(1, user_agent, "Mozilla/5.0", vbTextCompare) IsNetscape = InStr(1, user_agent, "Navigator", vbTextCompare) IsExplorer = InStr(1, user_agent, "Mozilla/4.0", vbTextCompare) IsChrome = InStr(1, user_agent, "Chrome", vbTextCompare) If IsChrome Then 'one or the other, not both, because Chrome has user_agent value of e.g. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/ Safari/525.19" IsFirefox = false End If IsOpera = InStr(1, user_agent, "Opera", vbTextCompare) If(IsExplorer) Then 'identify version of that lovely software, Internet Explorer if(Instr(1, user_agent, "MSIE 8.0", vbTextCompare)) Then strBrowser = "Explorer8" ElseIf(InStr(1, user_agent, "MSIE 7.0", vbTextCompare)) Then strBrowser = "Explorer7" ElseIf(InStr(1, user_agent, "MSIE 6.0", vbTextCompare)) Then strBrowser = "Explorer6" Else strBrowser = "Explorer" End If 'Response.Write("strBrowser is " & strBrowser & "
") Else strBrowser = "Firefox" 'use this string to represent all Mozilla browsers 'ElseIf(IsNetscape) Then ' strBrowser = "Netscape" 'ElseIf(IsFirefox) Then ' strBrowser = "Firefox" 'ElseIf(IsChrome) Then ' strBrowser = "Chrome" 'ElseIf(IsOpera) Then ' strBrowser = "Opera" 'Else 'default, these settings can be altered or edited as needs be ' strBrowser = "Default" End If 'Response.Write("strBrowser is " & strBrowser & "
") ' now tailor this for IE6, IE7 or other browser If strBrowser = "Explorer7" Then strSuffix = "Explorer7" ElseIf strBrowser = "Explorer6" Then strSuffix = "Explorer6" Else strSuffix = "" End If %>

Came & Company is now part of Stackhouse Poland and you are being redirected to their website. www.stackhouse.co.uk

Please contact Kevin Millard for Commercial Enquiries or Adam Penny for Private Client Enquiries on 01483 407440.

Looking for Parish Council Insurance? Click here to go to the Parish Council Insurance Website
Came & Company is a Trading Style of Stackhouse Poland Limited who are authorised and regulated by the Financial Conduct Authority. Our Firm Reference Number (FRN) is 309340.