Browser test

<% dim UserAgent UserAgent = Request.ServerVariables("HTTP_USER_AGENT") Response.Write "

" & UserAgent & "

" if instr(1,UserAgent,"MSIE") > 0 then Response.Write "Browser is an old Internet Explorer?" elseif instr(1,UserAgent,"Firefox") > 0 then Response.Write "Browser is a Firefox ?" elseif instr(1,UserAgent,"Safari") > 0 then Response.Write "Browser is a Safari ?" elseif instr(1,UserAgent,"Trident") > 0 then Response.Write "Browser is a IE ?" else Response.Write "Browser is not Internet Explorer" end if %>