Browser

Jag har en sida där jag vill se mina vad mina användare använder för browser.

Jag vill ha den i asp ohc jag hittade en men jag gjorde ett test och fick fram att jag har Netscape men jag har iställe "Internet Explorer 8"
någon som vet en bättre kod snutt?

<% 
Set objBCap = Server.CreateObject("MSWC.BrowserType") 
    Response.Write objBCap.Browser 
%>

Kan request.servervariables("HTTP_USER_AGENT") vara något kanske?

Kanske detta kan vara till nytta för dig.

function getBrowser()
dim sBrowser: sBrowser = Request.ServerVariables("HTTP_USER_AGENT")
if (instr(lcase(sBrowser),lcase("msie 5.0")) > 0) then
getBrowser = "ie5"
elseif (instr(lcase(sBrowser),lcase("msie 6.0")) > 0) then
getBrowser = "ie6"
elseif (instr(lcase(sBrowser),lcase("msie 7.0")) > 0) then
getBrowser = "ie7"
elseif (instr(lcase(sBrowser),lcase("msie 8.0")) > 0) then
getBrowser = "ie8"
elseif (instr(lcase(sBrowser),lcase("firefox/1")) > 0) then
getBrowser = "ff1"
elseif (instr(lcase(sBrowser),lcase("firefox/2")) > 0) then
getBrowser = "ff2"
elseif (instr(lcase(sBrowser),lcase("firefox/3")) > 0) then
getBrowser = "ff3"
elseif (instr(lcase(sBrowser),lcase("AOL 3.0; Mac")) > 0) then
getBrowser = "aolmac"
elseif (instr(lcase(sBrowser),lcase("MSPIE")) > 0) then
getBrowser = "pcc"
elseif (instr(lcase(sBrowser),lcase("Konqueror")) > 0) then
getBrowser = "konqueror"
elseif (instr(lcase(sBrowser),lcase("Opera")) > 0) then
getBrowser = "opera"
elseif (instr(lcase(sBrowser),lcase("MSIE 2.1; Mac")) > 0) then
getBrowser = "iemac2"
elseif (instr(lcase(sBrowser),lcase("MSIE 4.01; Mac_PowerPC")) > 0) then
getBrowser = "iemac4"
elseif (instr(lcase(sBrowser),lcase("MSIE 5.0; Mac_PowerPC")) > 0) then
getBrowser = "iemac5"
elseif (instr(lcase(sBrowser),lcase("Safari")) > 0) then
getBrowser = "safari"
end if
end function