<%@ language="vbscript"%>
<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
djfc="Ѿ"
set rs=server.createobject("adodb.recordset")
sqltext="select Flag from OrderList where Form_Id=" & request("Form_Id")
rs.open sqltext,conn,1,1
if rs("Flag")="Ѿ" then
	rs.close
	Response.Redirect "ordermessagebox.asp?msg=˶Ѿ˷"
Else
	set rs=server.createobject("adodb.recordset")
	sqltext="update OrderList set Flag='"&djfc&"' where Form_Id=" & request("Form_Id")
	rs.open sqltext,conn,3,3
    response.redirect "ordermessagebox.asp?msg=ϣ밴ͻϸַ"
end if
%>