=(Split(Request.ServerVariables("SCRIPT_NAME"),"/"))(UBound(Split(Request.ServerVariables("SCRIPT_NAME"),"/")))