<%@ language="VBScript"%>
<!--#include file="admin.asp"-->
<!--#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 "OrderList_Save.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
%>