<%@ Page language="VB" %>
<SCRIPT RUNAT="SERVER" LANGUAGE="VB">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.Write("PATH: " & Request.Path.ToString)
Response.Write("<br>")
Response.Write("URL: " & Request.Url.ToString)
End Sub
</SCRIPT>