<%@ Page EnableViewstate="False" %>
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim s As String
s &= "ActiveXControls=" & Request.Browser.ActiveXControls & "
"
s &= "AOL=" & Request.Browser.AOL & "
"
s &= "BackgroundSounds=" & Request.Browser.BackgroundSounds & "
"
s &= "Beta=" & Request.Browser.Beta & "
"
s &= "Browser=" & Request.Browser.Browser & "
"
s &= "CDF=" & Request.Browser.CDF & "
"
s &= "ClrVersion=" & Request.Browser.ClrVersion.ToString & "
"
s &= "Cookies=" & Request.Browser.Cookies & "
"
s &= "Crawler=" & Request.Browser.Crawler & "
"
s &= "EcmaScriptVersion=" & Request.Browser.EcmaScriptVersion.ToString & "
"
s &= "Frames=" & Request.Browser.Frames & "
"
s &= "JavaApplets=" & Request.Browser.JavaApplets & "
"
s &= "JavaScript=" & Request.Browser.JavaScript & "
"
s &= "MajorVersion=" & Request.Browser.MajorVersion & "
"
s &= "MinorVersion=" & Request.Browser.MinorVersion & "
"
s &= "MSDomVersion=" & Request.Browser.MSDomVersion.ToString & "
"
s &= "Platform=" & Request.Browser.Platform & "
"
s &= "Tables=" & Request.Browser.Tables & "
"
s &= "Type=" & Request.Browser.Type & "
"
s &= "VBScript=" & Request.Browser.VBScript & "
"
s &= "Version=" & Request.Browser.Version & "
"
s &= "W3CDomVersion=" & Request.Browser.W3CDomVersion.ToString & "
"
s &= "Win16=" & Request.Browser.Win16 & "
"
s &= "Win32=" & Request.Browser.Win32 & "
"
Label.Text = s
End Sub
Browser Capabilties: