<%@ language="vbscript" %> <% '*************************************************************** ' VP-ASP 6.50 ' Nov 12 2005 '*************************************************************** shopcheckadmin "" if request.querystring("menuitemid") > "" then if NOT isnumeric(request.querystring("menuitemid")) then shoperror "Menu Item ID must be numeric!" end if session("menuitemid")=request.querystring("menuitemid") end if session("sql")="sp_deletemenuitem @menuitemid="&session("menuitemid") session("deletetype")="menuitem" session("tconfirm")=request.servervariables("url") if request.form("delete")<>"" then sql = "delete from menuitem where id="&session("menuitemid") response.write sql shopopendatabase dbc set rsmenuitem=dbc.execute(sql) shopclosedatabase dbc writethetextfile response.redirect "shopa_navigation_list.asp" end if if request.form("cancel")<>"" then response.redirect "shopa_navigation_list.asp" end if adminpageheader generatedisplayheader "Delete Menu Item" generatedisplaybodyheader %> <% ' form %>

Are you sure you want to delete this <%=session("deletetype")%>? 
<% button "delete", "yes"%> <% button "cancel", "no"%>

<% generatedisplaybodyfooter adminpagetrailer %>