Pues no sé si existirá la manera de hacerlo directamente, pero he hecho esto que también podría servir:
Código:
<%
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...
Response.Write(nombre) '...TACHÁN, tenemos el nombre de la página
%>
Espero que esto te sirva.
Un saludo.