HTTPBrowserCapabilities component
Code:
<%'Source Code
Response.Write("<table>")
Response.Write("<tr><td>Browser Type</td><td>" & _
Request.Browser.Browser & "</td></tr>")
Response.Write("<tr><td>Browser Version</td><td>" & _
Request.Browser.Version.ToString & "</td></tr>")
Response.Write("<tr><td>ActiveX Controls Support</td><td>" & _
Request.Browser.ActiveXControls & "</td></tr>")
Response.Write("<tr><td>Is this an AOL Browser</td><td>" & _
Request.Browser.AOL & "</td></tr>")
Response.Write("<tr><td>Background Sounds Support</td><td>" & _
Request.Browser.BackgroundSounds & "</td></tr>")
Response.Write("<tr><td>Is this a Beta</td><td>" & _
Request.Browser.Beta & "</td></tr>")
Response.Write("<tr><td>Channel Definition Format Support</td><td>" & _
Request.Browser.CDF & "</td></tr>")
Response.Write("<tr><td>.NET CLR Version</td><td>" & _
Request.Browser.ClrVersion.ToString & "</td></tr>")
Response.Write("<tr><td>Cookies Support</td><td>" & _
Request.Browser.Cookies & "</td></tr>")
Response.Write("<tr><td>Is this a Web Spider</td><td>" & _
Request.Browser.Crawler & "</td></tr>")
Response.Write("<tr><td>ECMA Script Version</td><td>" & _
Request.Browser.EcmaScriptVersion.ToString & "</td></tr>")
Response.Write("<tr><td>Frames Support</td><td>" & _
Request.Browser.Frames & "</td></tr>")
Response.Write("<tr><td>Java Applets Support</td><td>" & _
Request.Browser.JavaApplets & "</td></tr>")
Response.Write("<tr><td>JavaScript Support</td><td>" & _
Request.Browser.JavaScript & "</td></tr>")
Response.Write("<tr><td>Microsoft HTML DOM Version</td><td>" & _
Request.Browser.MSDomVersion.ToString & "</td></tr>")
Response.Write("<tr><td>Operating System</td><td>" & _
Request.Browser.Platform & "</td></tr>")
Response.Write("<tr><td>Tables Support</td><td>" & _
Request.Browser.Tables & "</td></tr>")
Response.Write("<tr><td>VBScript Version</td><td>" & _
Request.Browser.VBScript.ToString & "</td></tr>")
Response.Write("<tr><td>W3C XML DOM Version</td><td>" & _
Request.Browser.W3CDomVersion.ToString & "</td></tr>")
Response.Write("<tr><td>16bit Windows</td><td>" & _
Request.Browser.Win16 & "</td></tr>")
Response.Write("<tr><td>32bit Windows</td><td>" & _
Request.Browser.Win32 & "</td></tr>")
Response.Write("</table>")%>