Your Ad Here

advanced code snippet search

Posted By

krisdb on 04/27/07


Tagged

ASP


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

asifrizvigmailcom


getBrowser

 / Published in: ASP
 
Expand | Embed | Plain Text 
  1. function getBrowser()
  2.   	dim sBrowser: sBrowser = Request.ServerVariables("HTTP_USER_AGENT")
  3.  
  4.   	if (instr(lcase(sBrowser),lcase("msie 5.0")) > 0) then 
  5.   		 getBrowser = "ie5"
  6.   	elseif (instr(lcase(sBrowser),lcase("msie 6.0")) > 0) then
  7.   		 getBrowser = "ie6"
  8.   	elseif (instr(lcase(sBrowser),lcase("msie 7.0")) > 0) then 
  9.   		 getBrowser = "ie7"
  10.   	elseif (instr(lcase(sBrowser),lcase("msie 8.0")) > 0) then 
  11.   		 getBrowser = "ie8"
  12.   	elseif (instr(lcase(sBrowser),lcase("firefox/1")) > 0) then 
  13.   		 getBrowser = "ff1"
  14.   	elseif (instr(lcase(sBrowser),lcase("firefox/2")) > 0) then 
  15.   		 getBrowser = "ff2"
  16.   	elseif (instr(lcase(sBrowser),lcase("firefox/3")) > 0) then 
  17.   		 getBrowser = "ff3"
  18.   	elseif (instr(lcase(sBrowser),lcase("AOL 3.0; Mac")) > 0) then 
  19.   		 getBrowser = "aolmac"
  20.   	elseif (instr(lcase(sBrowser),lcase("MSPIE")) > 0) then 
  21.   		 getBrowser = "pcc"
  22.   	elseif (instr(lcase(sBrowser),lcase("Konqueror")) > 0) then 
  23.   		 getBrowser = "konqueror"
  24.   	elseif (instr(lcase(sBrowser),lcase("Opera")) > 0) then 
  25.   		 getBrowser = "opera"
  26.   	elseif (instr(lcase(sBrowser),lcase("MSIE 2.1; Mac")) > 0) then 
  27.   		 getBrowser = "iemac2"
  28.   	elseif (instr(lcase(sBrowser),lcase("MSIE 4.01; Mac_PowerPC")) > 0) then 
  29.   		 getBrowser = "iemac4"
  30.   	elseif (instr(lcase(sBrowser),lcase("MSIE 5.0; Mac_PowerPC")) > 0) then 
  31.   		 getBrowser = "iemac5"
  32.   	elseif (instr(lcase(sBrowser),lcase("Safari")) > 0) then 
  33.   		 getBrowser = "safari"
  34.   	end if
  35. end function

Report this snippet  

You need to login to post a comment.