<%@ language="vbscript" %> <% '**************************************************************** ' VP-ASP 6.50 ' Nov 12, 2005 '*************************************************************** shopcheckadmin "" if not request.form("next")<>"" and not request.form("prev")<>"" and not request.form("top")<>"" then session("rs_currentpage")=-1 session("rs_pagecount")=-1 end if if request.form("back")<>"" then response.redirect session("tmenuitemlist") end if if not len(session("pmenuitemid")) > 0 then session("pmenuitemid")=0 end if if request.form("submenu")<>"" then session("pmenuitemid")=request.form("menuitemid") session("menu")=request.form("menu"&request.form("menuitemid")) end if if request.form("reload")<>"" then writethetextfile response.redirect "shopa_navigation_list.asp" end if if request.form("topmenu")<>"" then session("pmenuitemid")=0 session("menu")=null end if if request.form("add")<>"" then session("function")="add" session("tmenuitemadd")=request.servervariables("url") response.redirect "shopa_navigation_addnew.asp" end if if request.form("edit")<>"" then session("function")="edit" session("tmenuitemedit")=request.servervariables("url") session("menuitemid")=request.form("menuitemid") response.write session("menuitemid") response.redirect "shopa_navigation_edit.asp" end if if request.form("delete")<>"" then session("sql")="sp_deletemenuitem @menuitemid="&request.form("menuitemid") session("menuitemid")=request.form("menuitemid") session("deletetype")="menuitem" session("tconfirm")=request.servervariables("url") response.redirect "shopa_navigation_confirm.asp" end if if request.form("topics")<>"" then session("menuitem")=request.form("menuitemid"&request.form("menuitemid")) session("ttopiclist")=request.servervariables("url") session("menuitemid")=request.form("menuitemid") response.redirect "/admin/menuitem/topic/list.asp" end if adminpageheader formatedithelpheader form GenerateDisplayHeader "Site Navigation" GenerateDisplayBodyHeader %> <%'if session("pmenuitemid")=0 then 'button "submenu", "submenu" 'end if 'if session("pmenuitemid")<>0 then 'button "topmenu", "topmenu" 'end if 'dim titlestring 'if session("pmenuitemid")>0 then 'titlestring="your '"&ucase(session("menu"))&"' sub menu items" 'else 'titlestring="your menu items" 'end if%> <% dim rssubmenuitem sql="select * from menuitem where pmenuitemid=0 order by seq" 'gavindebug sql shopopendatabase dbc openrecordset dbc, rsmenuitem, sql while not rsmenuitem.eof 'VP-ASP 6.50 - productmatch menus writenavmenuitem false, rsmenuitem("seq"), rsmenuitem("name"), rsmenuitem("id"), rsmenuitem("productmatch") 'SEE IF THIS MENU ITEM HAS CHILDREN sql="select * from menuitem where pmenuitemid=" & rsmenuitem("id") & " order by seq" openrecordset dbc, rssubmenuitem, sql while not rssubmenuitem.eof 'VP-ASP 6.50 - productmatch menus writenavmenuitem true, rssubmenuitem("seq"), rssubmenuitem("name"), rssubmenuitem("id"), rsmenuitem("productmatch") rssubmenuitem.movenext wend rsmenuitem.movenext wend closerecordset rsmenuitem closerecordset rssubmenuitem shopclosedatabase dbc %>

<%button "add", "Add Menu Item"%>    <%button "reload", "Reload Menu"%>
Menu Item	Edit	Delete

<%GenerateDisplayBodyFooter GetHelp %> <% adminpagetrailer %> <%'VP-ASP 6.50 - productmatch menus sub writenavmenuitem (ischild, seq, name, id, productmatch)%> <%if ischild = true then response.write "     "%> <%=seq%>. <%=name%> <%'VP-ASP 6.50 - productmatch menus if productmatch > "" then response.write "(" & productmatch & ")" end if%> <%=hiddenfield("menu", "'"&name&"'", id)%> <%end sub%>