<% ' UltraApps Portal - FREE edition, Version 1.5 ' (C) Copyright 2001 by UltraApps ' This program may be used and modified for your own use ' so long as this copyright notice and this comment remain intact. ' You are not permitted to sell or distribute modified version of this software ' View files/license.html for full Legal Information ' ' Filename:AdmMenu.asp ' Generated with CodeCharge 2.0.1 '------------------------------- ' AdmMenu CustomIncludes begin %> <% ' AdmMenu CustomIncludes end '------------------------------- '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "AdmMenu.asp" sTemplateFileName = "AdmMenu.html" '=============================== '=============================== ' AdmMenu PageSecurity begin CheckSecurity(2) ' AdmMenu PageSecurity end '=============================== '=============================== ' AdmMenu Open Event begin ' AdmMenu Open Event end '=============================== '=============================== ' AdmMenu OpenAnyPage Event begin ' AdmMenu OpenAnyPage Event end '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' AdmMenu Show begin '=============================== ' Display page '------------------------------- ' Load HTML template for this page '------------------------------- LoadTemplate sAppPath & sTemplateFileName, "main" '------------------------------- ' Load HTML template of Header and Footer '------------------------------- LoadTemplate sHeaderFileName, "Header" LoadTemplate sFooterFileName, "Footer" '------------------------------- SetVar "FileName", sFileName '------------------------------- ' Step through each form '------------------------------- Header_Show Footer_Show AdminMenu_Show '------------------------------- ' Process page templates '------------------------------- Parse "Header", False Parse "Footer", False Parse "main", False '------------------------------- ' Output the page to the browser '------------------------------- Response.write PrintVar("main") ' AdmMenu Show end '------------------------------- ' Destroy all object variables '------------------------------- ' AdmMenu Close Event begin ' AdmMenu Close Event end cn.Close Set cn = Nothing UnloadTemplate '=============================== '=============================== ' Display Menu Form '------------------------------- Sub AdminMenu_Show() Dim sFormTitle: sFormTitle = "Administration Menu" '------------------------------- ' AdminMenu Open Event begin ' AdminMenu Open Event end '------------------------------- '------------------------------- ' Set URLs '------------------------------- fldField2 = "AdmArticleList.asp" fldField10 = "AdmNewsList.asp" fldField1 = "AdmEventList.asp" fldField4 = "AdmLinkList.asp" fldField13 = "AdmLinkCategories.asp" fldField9 = "AdmForumList.asp" fldField17 = "AdmDiscList.asp" fldField6 = "AdmAdList.asp" fldField12 = "AdmAdCategories.asp" fldField5 = "AdmMemberList.asp" fldField14 = "AdmMemberStatuses.asp" fldField7 = "AdmSendEmails.asp" fldField11 = "AdmConfig.asp" fldField16 = "Register this Portal" fldField15 = "Support" '------------------------------- ' AdminMenu Show begin '------------------------------- SetVar "FormTitle", sFormTitle '------------------------------- ' AdminMenu BeforeShow Event begin ' AdminMenu BeforeShow Event end '------------------------------- '------------------------------- ' Show fields '------------------------------- SetVar "Field2", fldField2 SetVar "Field10", fldField10 SetVar "Field1", fldField1 SetVar "Field4", fldField4 SetVar "Field13", fldField13 SetVar "Field9", fldField9 SetVar "Field17", fldField17 SetVar "Field6", fldField6 SetVar "Field12", fldField12 SetVar "Field5", fldField5 SetVar "Field14", fldField14 SetVar "Field7", fldField7 SetVar "Field11", fldField11 SetVar "Field16", fldField16 SetVar "Field15", fldField15 Parse "FormAdminMenu", False '------------------------------- ' AdminMenu Show end '------------------------------- End Sub '=============================== %>