一次性保存多少记录?(0分)

购物栏中有多个物件,我要一次性保存到数据库中,我调用 了这个代码:
dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
set objrs=server.createobject("adodb.recordset")
set objrs.activeconnection=objconn
strsql="select * from bag where id in ("&session("pictures")&")"
objrs.open strsql
do while not objrs.eof
strsql="INSERT INTO cymessage (customer_id,cytpm,prices,sj) VALUES ('"&request("customer_id")&"','"&objrs("tpm")&"','"&trim(request("prices"))&"',date())"

objConn.Execute strsql
objrs.movenext
loop
objrs.close
set objrs=nothing
objConn.Close
set objConn=Nothing
%>
结果字段中cytpm是分别保存下来了,但其他的字段中的内容就不会分别保存下来,而是购物栏中有多少个物件,在除cytpm外其他字段中也有多少?是怎么回事呢?