<%@ language="vbscript" %>
<%
'*****************************************************************
' VP-ASP 6.50
'****************************************************************
dim templatearray(200)
dim templatearraymessage(200)
if request.form("add")<>"" 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
mysqladdmenu
else
shopopendatabase conn
set rstemp = server.createobject("adodb.recordset")
rstemp.open "menuitem", conn, adopenkeyset, adlockoptimistic
rstemp.addnew
rstemp("name")=request.form("name")
rstemp("url")=request.form("url")
rstemp("seq")=request.form("seq")
'VP-ASP 6.50 - productmatch menus
rstemp("productmatch")=request.form("productmatch")
'if session("pmenuitemid")="" then
'session("pmenuitemid")=0
'end if
'rstemp("pmenuitemid")=session("pmenuitemid")
rstemp("pmenuitemid")=request.form("pmenuitemid")
if request.form("contentpage")> "" then
rstemp("contentid")=request.form("contentpage")
end if
rstemp("openin")=request.form("openin")
rstemp.update
set rstemp=nothing
shopclosedatabase conn
end if
writethetextfile
'response.end
response.redirect "shopa_navigation_list.asp"
end if
if request.form("back")<>"" and not session("lastpage")="/feedback.asp" then
response.redirect "shopa_navigation_list.asp"
end if
adminpageheader
%>
<%
'response.write session("pmenuitemid")
%>
<%
generatedisplayheader "Menu Item Details"
generatedisplaybodyheader
formatedithelpheader
formvalidation
%>
<% button "add", "submit" %>
<%
generatedisplaybodyfooter
gethelp
adminpagetrailer
%>
