Request ASP.Net

<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim I As Integer
    lblMessage1.Text = ""
    For I = 0 To Request.AcceptTypes.GetUpperBound(0)
        lblMessage1.Text = lblMessage1.Text _
            & ""
    Next
    lblMessage1.Text = lblMessage1.Text & "
Type Accepted:" _
            & Request.AcceptTypes(I) _
            & "
"
End Sub



AcceptTypes Sample Page




    id="lblMessage1"
    runat="Server"
    Font-Bold="True"
/>