Function GetPage(Byval sPagePath As String) As String 'Purpose: ' Get Page path 'Notes: ' Call as GetPage(Me.Request.FilePath) Dim iFind As Integer iFind = InstrRev(sPagePath,"/",-1, CompareMethod.Text) If iFind > 0 Then Return Mid$(sPagePath, iFind + 1) Else Return sPagePath End If End Function