<% '******************************************************************************** '=============================== ' Display Menu Form '------------------------------- Sub MenuGeneral2_Show() Dim sFormTitle: sFormTitle = ""'------------------------------- ' MenuGeneral2 Open Event start ' MenuGeneral2 Open Event end '------------------------------- '------------------------------- ' Set URLs '------------------------------- fldField4 = "typecontrat.asp" fldField5 = "typechargement.asp" fldField6 = "typedb.asp" fldField8 = "typeclient.asp" fldField13 = "typeconv.asp" fldField9 = "typeportesale.asp" fldField10 = "typevoltage.asp" fldField14 = "typeruban.asp" fldField15 = "typecomptage.asp" fldField17 = "typepcporte.asp" fldField19 = "typeextraction.asp" fldField11 = "reponsequestion.asp" '------------------------------- ' MenuGeneral2 Show begin '------------------------------- '------------------------------- ' MenuGeneral2 BeforeShow Event start ' MenuGeneral2 BeforeShow Event end '------------------------------- '------------------------------- ' Show fields '------------------------------- %>
Type Contrats Type Chargements Type DB Type Client Type Convoyeur Type Sales Type Voltage Type Ruban Type Comptage Type PC Porte Type Extractions Reponses
<% '------------------------------- ' MenuGeneral2 Show end '------------------------------- end sub '=============================== '=============================== ' Display Menu Form '------------------------------- Sub MenuGeneral_Show() Dim sFormTitle: sFormTitle = ""'------------------------------- ' MenuGeneral Open Event start ' MenuGeneral Open Event end '------------------------------- '------------------------------- ' Set URLs '------------------------------- fldField1 = "login2.asp" fldField2 = "eb_clients.asp" fldField3 = "cust_client_edit.asp?NewClient=1" '------------------------------- ' MenuGeneral Show begin '------------------------------- '------------------------------- ' MenuGeneral BeforeShow Event start ' MenuGeneral BeforeShow Event end '------------------------------- '------------------------------- ' Show fields '------------------------------- %>
Logout Liste Clients Nouveau Client
<% '------------------------------- ' MenuGeneral Show end '------------------------------- end sub '=============================== %>