<!--#include file=conn.asp-->
<%
select case Request("action")
       Case "add"
	         addpp
       Case Else
            Response.redirect"ydanglx.asp"
            Response.end   
end select
Sub addpp
dim max,ppid,ppname,pporder,sql,sql1
max=request.form("ppid").count
ddh=Request("ddh")
yhzt="已驗貨"
For i=1 to max
 bhgyy=request.form("bhgyy")(i)
 ppid=request.form("ppid")(i)
 sql="Update bs_ddan Set bhgyy='"&bhgyy&"' Where ID="&ppid
 conn.execute(sql)
Next 
 sql1="Update bs_ddanlb Set yhzt='"&yhzt&"' Where ddh='"&ddh&"'"
 conn.execute(sql1)
 response.write"<script language=javascript>alert('驗貨單提交成功！');location.href='ydanglx.asp';</script>"  
End sub
%>