Browser

CODE:

Partial Class _Default

Inherits System.Web.UI.Page

' exp 11.6 ,11.8,11.11,11.12

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objbw As HttpBrowserCapabilities

objbw = Request.Browser

Label1.Text = objbw.JavaApplets

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim objbw As HttpBrowserCapabilities

objbw = Request.Browser

Label2.Text = objbw.VBScript

End Sub

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim objbw As HttpBrowserCapabilities

objbw = Request.Browser

Label3.Text = objbw.ActiveXControls

End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim objbw As,

objbw = Request.Browser

Label4.Text = objbw.Type

End Sub

Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim objbw As HttpBrowserCapabilities

objbw = Request.Browser

Label5.Text = objbw.Cookies

End Sub

End Class