<% 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 %>