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