<% '******************************************************************************** '=============================== ' Display Menu Form '------------------------------- Sub EBMenu_Show() Dim sFormTitle: sFormTitle = "Menu"'------------------------------- ' EBMenu Open Event start ' EBMenu Open Event end '------------------------------- '------------------------------- ' Set URLs '------------------------------- fldemployees = "EBemployees.asp" fldPeriods = "AgendaPeriods.asp" fldRelDateLieuPers = "reldatelieupersGrid.asp" fldEventslist = "Eventslist.asp" fldAddEvent = "AddEvent.asp" fldCustomersInt = "CustomerInterv.asp" fldField1 = "login.asp" '------------------------------- ' EBMenu Show begin '------------------------------- '------------------------------- ' EBMenu BeforeShow Event start ' EBMenu BeforeShow Event end '------------------------------- '------------------------------- ' Show fields '------------------------------- %>

<%=sFormTitle%>
Employees	Periods	Events' list	Events' list 2	Add event	Customers	Logout

<% '------------------------------- ' EBMenu Show end '------------------------------- end sub '=============================== %>