<%sDBExtraPath = "../"%> <% sCmd = Request("cmd") Select Case sCmd Case "E", "C" sMenuLabel = Request("menulabel") 'sHeadName = Request("headname") sExtraPage = Request("extrapage") iButtonType = Request("buttontype") iButtonPos = Request("buttonpos") iButtonID = Request("buttonid") sURL = Request("Url") sNewWin = "" & Request("newwin") If sCmd = "C" Then sSQL = "SELECT * FROM MenuButtons" Else sSQL = "SELECT * FROM MenuButtons WHERE ButtonID=" & iButtonID End If rsData.Open sSQL, , 1, 3, 1 'adOpenKeyset, adLockOptimistic, adCmdText If sCmd = "C" Then rsData.AddNew rsData("LangID") = iContentLang End If rsData("MenuLabel") = sMenuLabel 'rsData("HeadName") = sHeadName rsData("ExtraPage") = sExtraPage rsData("ButtonType") = iButtonType rsData("ButtonPos") = iButtonPos rsData("URL") = sURL rsData("NewWin") = sNewWin rsData.Update Case "D" iButtonID = Request("buttonid") sSQL = "DELETE FROM MenuButtons WHERE ButtonID=" & iButtonID conDB.Execute sSQL End Select Select Case sCmd Case "edit", "create" If sCmd = "edit" Then Set rsData = conDB.Execute("SELECT MenuLabel, HeadName, ButtonType, ButtonPos, ExtraPage, URL, NewWin FROM MenuButtons WHERE ButtonID=" & Request("buttonid")) If Not IsRSEmpty(rsData) Then sMenuLabel = rsData("MenuLabel") 'sHeadName = rsData("HeadName") sExtraPage = rsData("ExtraPage") iButtonType = rsData("ButtonType") iButtonPos = rsData("ButtonPos") sUrl = rsData("URL") sNewWin = rsData("NewWin") End If End If %>

<%=langMgr.GetContent("MENUMGR_INTRO_INST", "BackEndMessages", iInterfaceLang)%>

<%=IIf(sCmd="edit",langMgr.GetContent("MENUMGR_EDIT_BUTTON", "BackEndMessages", iInterfaceLang),langMgr.GetContent("MENUMGR_ADD_BUTTON", "BackEndMessages", iInterfaceLang))%> <%=langMgr.GetContent("MENUMGR_MENU_LABEL", "BackEndMessages", iInterfaceLang)%> <%=langMgr.GetContent("MENUMGR_BUTTON_TYPE", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_HOME", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_ABOUTUS", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_SERVICES", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_PRODUCTS", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_CONTACTUS", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_NEWS", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_FAQ", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_OURPEOPLE", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_LINKS", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_INTRANET", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_SITEMAP", "BackEndMessages", iInterfaceLang)%> > <%=langMgr.GetContent("MENUMGR_BT_URL", "BackEndMessages", iInterfaceLang)%> <%=langMgr.GetContent("MENUMGR_URL_NAME", "BackEndMessages", iInterfaceLang)%>   ><%=langMgr.GetContent("MENUMGR_URL_NEWWIN", "BackEndMessages", iInterfaceLang)%> <%=langMgr.GetContent("MENUMGR_BUTTONPOSS", "BackEndMessages", iInterfaceLang)%>

"> "> " >

<%Case Else %>

<%=langMgr.GetContent("MENUMGR_INTRO", "BackEndMessages", iInterfaceLang)%> <% Set rsData = conDB.Execute("SELECT ButtonID, MenuLabel, ButtonType, ButtonPos FROM MenuButtons WHERE LangID=" & iContentLang & " ORDER BY ButtonPos") %> <%If IsRSEmpty(rsData) Then%> <%Else iCount = 0 gsTableColor3 = "#E7E7E7" While Not rsData.EOF%> <% sSection = "" Select Case rsData("ButtonType") Case "1" sSection = langMgr.GetContent("MENUMGR_BT_HOME", "BackEndMessages", iInterfaceLang) Case "2" sSection = langMgr.GetContent("MENUMGR_BT_ABOUTUS", "BackEndMessages", iInterfaceLang) Case "3" sSection = langMgr.GetContent("MENUMGR_BT_SERVICES", "BackEndMessages", iInterfaceLang) Case "4" sSection = langMgr.GetContent("MENUMGR_BT_PRODUCTS", "BackEndMessages", iInterfaceLang) Case "5" sSection = langMgr.GetContent("MENUMGR_BT_CONTACTUS", "BackEndMessages", iInterfaceLang) Case "6" sSection = langMgr.GetContent("MENUMGR_BT_NEWS", "BackEndMessages", iInterfaceLang) Case "7" sSection = langMgr.GetContent("MENUMGR_BT_FAQ", "BackEndMessages", iInterfaceLang) Case "8" sSection = langMgr.GetContent("MENUMGR_BT_OURPEOPLE", "BackEndMessages", iInterfaceLang) Case "9" sSection = langMgr.GetContent("MENUMGR_BT_LINKS", "BackEndMessages", iInterfaceLang) Case "10" sSection = langMgr.GetContent("MENUMGR_BT_INTRANET", "BackEndMessages", iInterfaceLang) Case "11" sSection = langMgr.GetContent("MENUMGR_BT_SITEMAP", "BackEndMessages", iInterfaceLang) Case "12" sSection = langMgr.GetContent("MENUMGR_BT_CUSTOMPAGE", "BackEndMessages", iInterfaceLang) Case "13" sSection = langMgr.GetContent("MENUMGR_BT_URL", "BackEndMessages", iInterfaceLang) End Select %> <% iCount = iCount + 1 rsData.MoveNext Wend End If%> <%=langMgr.GetContent("MENUMGR_MENU_LABEL", "BackEndMessages", iInterfaceLang)%>   <%=langMgr.GetContent("MENUMGR_BUTTON_TYPE", "BackEndMessages", iInterfaceLang)%>   <%=langMgr.GetContent("MENUMGR_BUTTONPOSS", "BackEndMessages", iInterfaceLang)%>   <%=langMgr.GetContent("MENUMGR_EDIT", "BackEndMessages", iInterfaceLang)%>     <%=langMgr.GetContent("MENUMGR_DELETE", "BackEndMessages", iInterfaceLang)%>   <%=langMgr.GetContent("MENUMGR_NOBUTTONS", "BackEndMessages", iInterfaceLang)%> > ><%=rsData("MenuLabel")%>   ><%=sSection%>   ><%=rsData("ButtonPos")%>   >&cmd=edit">"> > <%'If rsData("ButtonID") <> 1 Then%> ');">"> <%'End If%> > "> <%=langMgr.GetContent("MENUMGR_ADD_BUTTON", "BackEndMessages", iInterfaceLang)%>

<%End Select%>