Obtener nombre archivo Asp

Si queremos Saber como se llama la pagina que actualmente estamos ejecutando en asp lo podemos hacer con la siguiente funcion de asp

<%

Function NombrePagina()

ruta = Request.ServerVariables("URL") 'recoge la ruta completa

ruta = Split(ruta,"/") 'convierte cada separación señalada por / en un elemento de un vector

nombre = ruta(UBound(ruta)) 'recogemos el último elemento de ese vector...

NombrePagina = nombre

end function

%>