<%@ language="vbscript" %>
<%
'******************************************************************
' VP-ASP 6.50
' Nov 12, 2005
'******************************************************************
shopcheckadmin ""
setsess "function", "edit"
setsess "tmenuitemedit", request.servervariables("http_referer")
if NOT isnumeric(request("menuitemid")) then
shoperror "Menu Item ID must be numeric!"
end if
if request("menuitemid") > "" then
setsess "menuitemid", request("menuitemid")
end if
'VP-ASP 6.50 - product match menu
dim name, url, seq, newwindow, contentid,openin, productmatch
dim templatearray(200)
dim templatearraymessage(200)
sql = "select * from menuitem where id="&getsess("menuitemid")
shopopendatabase dbc
openrecordset dbc, rsmenuitem, sql
name=rsmenuitem("name")
url=rsmenuitem("url")
seq=rsmenuitem("seq")
'VP-ASP 6.50 - product match menu
productmatch = rsmenuitem("productmatch")
pmenuitemid=rsmenuitem("pmenuitemid")
contentid=rsmenuitem("contentid")
openin=rsmenuitem("openin")
closerecordset rsmenuitem
shopclosedatabase dbc
if request.form("edit")<>"" then
'VP-ASP 6.50 - broadened defintion of IF statement to cover cases where xmysql hasn't been set
if ucase(xdatabasetype) = "MYSQL" OR ucase(xdatabasetype) = "MYSQL351" OR getconfig("xMYSQL")="Yes" then
mysqlupdatemenu
else
sql = "select * from menuitem where id="&getsess("menuitemid")
response.write sql
shopopendatabase conn
set rstemp = server.createobject("adodb.recordset")
rstemp.open sql, conn, 1, 3
rstemp.update
rstemp("name")=request.form("name")
if request.form("contentpage") > "" then
rstemp("contentid")=request.form("contentpage")
end if
rstemp("url")=request.form("url")
rstemp("seq")=request.form("seq")
rstemp("pmenuitemid")=request.form("pmenuitemid")
rstemp("openin")=request.form("openin")
'VP-ASP 6.50 - product match menu
rstemp("productmatch")=request.form("productmatch")
rstemp.update
rstemp.close
set rstemp=nothing
shopclosedatabase conn
end if
writethetextfile
response.redirect "shopa_navigation_list.asp"
end if
if request.form("back")<>"" and not getsess("lastpage")="/feedback.asp" then
response.redirect getsess("tmenuitemedit")
end if
adminpageheader
%>
