An error occurred while evaluating the expression:
stLocal["ConfigMenu"] = ExpandPath("config.ini"); stLocal["MenuNew"] = ""; stMenu = StructNew(); // Set public menu. // 2024-09-28: stLocal.Config had been reset on index.cfm by the creation of the // GEN\gen-page-vote-yes-2024-general-*.htm. // stMenu["Public"] = stLoadIniSection(stLocal.Config, "Menu.Public", "Menu.Public"); stMenu["Public"] = stLoadIniSection(stLocal.ConfigMenu, "Menu.Public", "Menu.Public"); // Check to see whether the settings need to be refreshed. if (ListLen(stMenu.Public.PageList) NEq ListLen(stMenu.Public.FileList) Or stMenu.Public.Reset Eq "Yes") { stMenu.Public.AccessLevelList = ""; stMenu.Public.FileList = ""; stMenu.Public.MenuList = ""; stMenu.Public.NewList = ""; for (stLocal.ii = 1; stLocal.ii LTE ListLen(stMenu.Public.PageList); stLocal.ii = stLocal.ii + 1) { // 2017-06-07: Removed leading dollar sign. stLocal.This = Replace(ListGetAt(stMenu.Public.PageList, stLocal.ii), '$', ''); stMenu.Public.AccessLevelList = ListAppend(stMenu.Public.AccessLevelList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "AccessLevel")); stMenu.Public.FileList = ListAppend(stMenu.Public.FileList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Page")); stMenu.Public.MenuList = ListAppend(stMenu.Public.MenuList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Menu")); stMenu.Public.NewList = ListAppend(stMenu.Public.NewList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "New")); // stMenu.Public.PageList = GetProfileString(stLocal.ConfigMenu, stLocal.This, "Page"); } stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Public", "AccessLevelList", stMenu.Public.AccessLevelList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Public", "FileList", stMenu.Public.FileList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Public", "MenuList", stMenu.Public.MenuList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Public", "NewList", stMenu.Public.NewList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Public", "Reset", "No"); } stMenu.Public.NewList = Replace(stMenu.Public.NewList, "_", "2001-09-11", "All"); if (stSecurity.User GT "0") { // For signed in users, display a different menu label. stMenu.Public.MenuList = Replace(stMenu.Public.MenuList, "Sign Up", "Your Profile"); } if (stSecurity.AccessLevel GT "00") { // Set Member menu. // 2024-09-28: stLocal.Config had been reset on index.cfm by the creation of the // GEN\gen-page-vote-yes-2024-general-*.htm. // stMenu["Member"] = stLoadIniSection(stLocal.Config, "Menu.Member", "Menu.Member"); stMenu["Member"] = stLoadIniSection(stLocal.ConfigMenu, "Menu.Member", "Menu.Member"); /* stMenu["AccessLevelList"] = GetProfileString(stLocal.ConfigMenu, "Menu.Member", "AccessLevelList"); stMenu["FileList"] = GetProfileString(stLocal.ConfigMenu, "Menu.Member", "FileList"); stMenu["MenuList"] = GetProfileString(stLocal.ConfigMenu, "Menu.Member", "MenuList"); stMenu["NewList"] = GetProfileString(stLocal.ConfigMenu, "Menu.Member", "NewList"); stMenu["PageList"] = GetProfileString(stLocal.ConfigMenu, "Menu.Member", "PageList"); */ // Check to see whether the settings need to be refreshed. if (ListLen(stMenu.Member.PageList) NEq ListLen(stMenu.Member.FileList)) { stMenu.Member.AccessLevelList = ""; stMenu.Member.FileList = ""; stMenu.Member.MenuList = ""; stMenu.Member.NewList = ""; for (stLocal.ii = 1; stLocal.ii LTE ListLen(stMenu.Member.PageList); stLocal.ii = stLocal.ii + 1) { // 2017-06-07: Removed leading dollar sign. // 2017-09-20: Correct PageList variable name. // stLocal.This = Replace(ListGetAt(stMenu.Public.PageList, stLocal.ii), '$', ''); stLocal.This = Replace(ListGetAt(stMenu.Member.PageList, stLocal.ii), '$', ''); stMenu.Member.AccessLevelList = ListAppend(stMenu.Member.AccessLevelList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "AccessLevel")); stMenu.Member.FileList = ListAppend(stMenu.Member.FileList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Page")); stMenu.Member.MenuList = ListAppend(stMenu.Member.MenuList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Menu")); stMenu.Member.NewList = ListAppend(stMenu.Member.NewList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "New")); // stMenu.Member.PageList = GetProfileString(stLocal.ConfigMenu, stLocal.This, "Page"); } stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Member", "AccessLevelList", stMenu.Member.AccessLevelList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Member", "FileList", stMenu.Member.FileList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Member", "MenuList", stMenu.Member.MenuList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Member", "NewList", stMenu.Member.NewList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, "Menu.Member", "Reset", "No"); } stMenu.Member.NewList = Replace(stMenu.Member.NewList, "_", "2001-09-11", "All"); } // 2025-07-14: Assign a custom menu to a page. stLocal["CustomMenu"] = ""; switch(stPage.Page) { case "initiatives.cfm": stLocal.CustomMenu = "Menu.Initiatives"; stMenu.Public.PageList = ""; // Deactivate public menu. stMenu.Member.PageList = ""; // Deactivate member menu. break; case "Orange": case "Citrus": writeOutput("I like oranges!"); break; default: break; } // Build the custom menu. stMenu["Custom"] = stLoadIniSection(stLocal.ConfigMenu, stLocal.CustomMenu, stLocal.CustomMenu); if (stPage.Page GT "initiatives.cfm") { // By changing the PageList setting, all other settings are automatically regenerated. // Set Initiatives menu. stMenu["Custom"] = stLoadIniSection(stLocal.ConfigMenu, stLocal.CustomMenu, stLocal.CustomMenu); // Check to see whether the settings need to be refreshed. if (ListLen(stMenu.Custom.PageList) NEq ListLen(stMenu.Custom.FileList)) { // Reset all dependent settings. stMenu.Custom.AccessLevelList = ""; stMenu.Custom.FileList = ""; stMenu.Custom.MenuList = ""; stMenu.Custom.NewList = ""; // Add the menu information for each list from settings in the section for the page. for (stLocal.ii = 1; stLocal.ii LTE ListLen(stMenu.Custom.PageList); stLocal.ii = stLocal.ii + 1) { stLocal.This = Replace(ListGetAt(stMenu.Custom.PageList, stLocal.ii), '$', ''); stMenu.Custom.AccessLevelList = ListAppend(stMenu.Custom.AccessLevelList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "AccessLevel")); stMenu.Custom.FileList = ListAppend(stMenu.Custom.FileList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Page")); stMenu.Custom.MenuList = ListAppend(stMenu.Custom.MenuList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "Menu")); sstMenu.Custom.NewList = ListAppend(stMenu.Custom.NewList, GetProfileString(stLocal.ConfigMenu, stLocal.This, "New")); } // Write the new values into the configuation file. stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, stLocal.CustomMenu, "AccessLevelList", stMenu.Custom.AccessLevelList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, stLocal.CustomMenu, "FileList", stMenu.Custom.FileList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, stLocal.CustomMenu, "MenuList", stMenu.Custom.MenuList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, stLocal.CustomMenu, "NewList", stMenu.Custom.NewList); stLocal.Rtn = SetProfileString(stLocal.ConfigMenu, stLocal.CustomMenu, "Reset", "No"); } stMenu.Custom.NewList = Replace(stMenu.Custom.NewList, "_", "2001-09-11", "All"); } stLocal["Output"] = "";Error near line 102, column 39.
Error resolving parameter STMENU.CUSTOM.PAGELIST
The object PAGELIST is not present in the scope named STMENU.CUSTOM. It is likely that you have misspelled the name of the object you are trying to access.
()
Please go back to the previous page to make corrections.