<script>
// 
// 	        	力天2002網絡辦公系統
//          Copyright (c) 深圳市力天軟件開發有限公司
//                   http://www.ebexpert.net
//
//  文件名       : meallist.asp
//  描述         : 定餐管理(刪除)
//  版本         : 
//  作者         : sky
//  最新更新     : 04/26/2001
//  備注         :
</script>
<!--#include file="const.inc"-->
<%
if meal_Admin<>1 then
	Response.Write "對不起，您沒有權限！"
	Response.End 
end if

 sql="delete from Adminmeal where mealid="& request("mealid") 
 conn.Execute sql 
 conn.execute "delete from submeal where lunch=" & request("mealid") & " or supper=" & request("mealid")
 conn.Close
 set conn=nothing 
 Response.Write "刪除成功，請<a href='meallist.asp?channelid=3'>返回</a>"
%>