一段数据写不进ACCESS数据库的问题

'保存订单

Set Add_Order = server.CreateObject("ADODB.Recordset")

Sql="select * from Order"

Add_Order.open Sql,Shop_Conn,1,3

Add_Order.addnew



Add_Order("OrderNumber")=OrderNumber

Add_Order("UserName")=A_UserName

Add_Order("RealName")=A_RealName

Add_Order("Province")=A_Province

Add_Order("City")=A_City

Add_Order("Address")=A_Address

Add_Order("PostCode")=A_PostCode

Add_Order("Tel")=A_Tel

Add_Order("deliver")=A_deliver

if A_deliver=1 then

Add_Order("Freight")=A_Freight

end if

Add_Order("Total")=A_Total



Add_Order.update

Add_Order.close

Set Add_Order=Nothing





'保存详细订购信息

ProductList=replace(session("ProductList")," ","")

Session.Contents.Remove("ProductList")



Set Rs_Product = server.CreateObject("ADODB.Recordset")

Sql="select * From Product where ProductId in ("& ProductList &")"

Rs_Product.open Sql,Shop_Conn,1,1

do while not Rs_Product.eof



Set Add_Detail = server.CreateObject("ADODB.Recordset")

Sql="select * From Order_Detail"

Add_Detail.open Sql,Shop_Conn,1,3



Add_Detail.addnew



Add_Detail("OrderNumber")=OrderNumber

Add_Detail("ProductId")=Rs_Product("ProductId")

Add_Detail("ProductNumber")=Rs_Product("ProductNumber")

Add_Detail("ProductName")=Rs_Product("ProductName")

Add_Detail("Unit")=Rs_Product("Unit")

Add_Detail("Price")=Rs_Product("Price")

Add_Detail("Weight")=Rs_Product("Weight")

Add_Detail("Quantity")=session("Q_"&Rs_Product("ProductId"))

Session.Contents.Remove("Q_"&Rs_Product("ProductId"))

Add_Detail.update



Rs_Product.movenext

loop



Add_Detail.close

Set Add_Detail=Nothing

Rs_Product.close

Set Rs_Product=Nothing