Server ASP.Net

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

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim NameArray() As String
    Dim VisitorSV As NameValueCollection
    Dim I as Integer
    VisitorSV = Request.ServerVariables
    NameArray = VisitorSV.AllKeys
    For I = 0 To UBound(NameArray)
        lblMessage.Text = lblMessage.Text _
            & NameArray(I) & ": " _
            & VisitorSV.Item(I) & "
"
    Next
End Sub



Server Variables Page



    id="lblMessage"
    runat="Server"
/>