Resgatar página atual

Pessoal,

Fiz essa função aqui para pegar o nome do arquivo atual pq tava precisando resolver com urgência. Será que existe algo mais simples?

Não encontrei nada semelhante aqui na busca...

ASP

[*]

[*]Function resgatar_pagina()

[*] dim var_pagina,arr,procura,c,var_string_ok

[*] var_pagina = Request.ServerVariable("SCRIPT_NAME")

[*] 'Request.ServerVariables("path_info")

[*]

[*] arr=split(trim(var_pagina),"/")

[*] procura=".asp"

[*]

[*] for c = 0 to ubound(arr)

[*] var_string_ok = arr©

[*]

[*] if right(var_string_ok,3) = "asp" then

[*] var_pagina = var_string_ok

[*] Response.write "Página atual:</b> " & var_pagina & "<br>"

[*] end if

[*] next

[*]End function

[*]

[*]resgatar_pagina

[*]

Obrigado!