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