<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<script runat="server">
Public BrowserInfo As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Separator as String = "\n"
With Request.Browser
BrowserInfo &= "Browser Capabilities" & Separator
BrowserInfo &= "Type = " & .Type & Separator
BrowserInfo &= "Name = " & .Browser & Separator
BrowserInfo &= "Version = " & .Version & Separator
BrowserInfo &= "Major Version = " & .MajorVersion & Separator
BrowserInfo &= "Minor Version = " & .MinorVersion & Separator
BrowserInfo &= "Platform = " & .Platform & Separator
BrowserInfo &= "Is Beta = " & .Beta & Separator
BrowserInfo &= "Is Crawler = " & .Crawler & Separator
BrowserInfo &= "Is AOL = " & .AOL & Separator
BrowserInfo &= "Is Win16 = " & .Win16 & Separator
BrowserInfo &= "Is Win32 = " & .Win32 & Separator
BrowserInfo &= "Supports Frames = " & .Frames & Separator
BrowserInfo &= "Supports Tables = " & .Tables & Separator
BrowserInfo &= "Supports Cookies = " & .Cookies & Separator
BrowserInfo &= "Supports VBScript = " & .VBScript & Separator
BrowserInfo &= "Supports JavaScript = " & _
.EcmaScriptVersion.ToString() & Separator
BrowserInfo &= "Supports Java Applets = " & .JavaApplets & Separator
BrowserInfo &= "Supports ActiveX Controls = " & .ActiveXControls & Separator
End With
End Sub
</script>
<script>alert('<%= BrowserInfo %>');</script>
</head>
<body>
</body>
</html>