% Dim pathStr,pageStr,pageName pathStr = Request.ServerVariables("path_info") pageStr = Split(PathStr, "/") pageName = pageStr(2) %>