Private Sub Page_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim MyUrl As Uri = Request.UrlReferrer
If Not IsNothing(MyUrl) Then
Response.Write("Referrer URL name: " & _
MyUrl.AbsoluteUri & "<br>")
Response.Write("Referrer URL Port: " & _
MyUrl.Port & "<br>")
Response.Write("Referrer URL Protocol: " & _
MyUrl.Scheme & "<br>")
End If
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.