Esta es una forma de hacerlo:
Código:
'Buscamos el nombre de la página en la que estamos (sin la ruta en el servidor)
Rutaypagina=(Request.ServerVariables("SCRIPT_NAME"))
function Nombrepagina(Rutaypagina)
for i = len(Rutaypagina) -1 to 0 step -1
if mid(Rutaypagina, i, 1) = "/" then exit for
next
Nombrepagina = right(Rutaypagina, len(Rutaypagina) - i)
end function
Y para llamar a la función:
Código:
'Mostramos solo el nombre de la página
response.write Nombrepagina(Rutaypagina)
Otra sería usando la función split, y seleccionando el último elemento del array (sería más sencilla la función, incluso). Sería algo como esto:
Código:
Rutaypagina=(Request.ServerVariables("SCRIPT_NAME"))
mi_array = Split(Rutaypagina, "/")
ultimo_elemento = UBound(mi_array)
'Mostramos el nombre de la página
Response.write mi_array(ultimo_elemento)
La primera función busca caracter a caracter, empezando por el final, hasta encontrar el caracter "/". La segunda opción, te separa todos los elementos que componen la Rutaypagina por el caracter "/".