grazie al suggerimento di Optime ho risolto:

variabile = request.ServerVariables("PATH_INFO")
taglio = instrRev(variabile, "/")
netta = Left(variabile, taglio - 1)
response.Write netta