Request ASP.Net

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

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim TheRef As Uri 
    TheRef = Request.UrlReferrer
    lblMessage1.Text = _
        "Port: " & TheRef.Port & "
" _
        & "Path: " & TheRef.AbsolutePath & "
" _
        & "Protocol: " & TheRef.Scheme & "
" _
        & "User Agent: " & Request.UserAgent & "
" _
        & "User Host Address: " & Request.UserHostAddress & "
" _
        & "User Host Name: " & Request.UserHostName & "
"  
End Sub



URI Sample Page




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