<% Dim strCurrentPageName strCurrentPageName = Right(Request.ServerVariables("SCRIPT_NAME"), Len(Request.ServerVariables("SCRIPT_NAME"))-1) Dim iCount, path, fso, filename, target iCount = 0 : path = "." Set fso = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath(path + "/generator/show.asp") target=filename Do While fso.FileExists(filename) = False And iCount < 101 path = fso.GetParentFolderName(fso.GetParentFolderName(filename)) target = fso.GetParentFolderName(path) + "\generator\show.asp" filename = target iCount = iCount + 1 Loop If iCount = 100 then response.write "Sorry, we can not locate core functions. Program terminated" Else target = replace(replace(target,Server.MapPath("/"), ""), "\", "/") Response.Cookies("showurl") = strCurrentPageName Response.Cookies("showback") = replace(target, "show.asp", "") Server.Execute(target) End If %>