La seguente funzione permette di recuperare il nome della pagina web attuale

Function GetCurrentPage() As String Dim t() As String = Request.ServerVariables(“URL”).Split(“/”) Dim r As String = t(UBound(t)) Return r End Function