Check browser info

This checks various pieces of browser info .

Interestingly on Internet Explore 6 Beta this came as follows

Browser is Netscape
Beta = True
Platform = unknown
version = 4.00

Hmm , bizarre .

Code:

<%
Dim objBrow
'create an instance of browsertype object
Set objBrow = Server.CreateObject("MSWC.BrowserType")
'display the browser , whether it is beta , the platform and the version
Response.Write "Browser is " & objBrow.Browser & "<br>"
Response.Write "Beta = " & objBrow.Beta & "<br>"
Response.Write " Platform = " & objBrow.Platform & "<br>"
Response.Write "version = " & objBrow.version & "<br>"
'destroy object
Set objBrow = Nothing
%>