各们大侠帮我看看哪儿错啦。DataAccess为一控件，在其它地方可以用这个方法。但是在这个函数中却不能用
//call zong(pbPurchasingCartItemNump(i,1))
updatepprice="update pub_c_product set pprice="&session("d") &" where productid="&session("product")
conn.Execute updatepprice//这二行调用此函数对数据库进行更新，无错误提示，但运行很慢，运行后数据没有更新！！帮我看看是怎么一回事，谢谢啦！！！

Function zong(id) '平均单价计算
qpsum=0
qty=0
session("d")=0
sid=id
sql="select billid,qty,price from scm_p_billd where canceled=0 and productid='"&sid&"'"
Set rs=DataAccess.GetRecordList2(sql)
while Not rs.EOF
tid=rs("billid")
sql1="select * from scm_p_bill where canceled=0 and billstate=1 and billid='"&tid&"'"
Set rs1=DataAccess.GetRecordList2(sql1)
if rs1.recordcount<>0 then
qpsum=qpsum+rs("qty")*rs("price")
qty=qty+rs("qty")
end if
rs.movenext
wend
rs.close
rs1.close
set rs1=nothing
Set rs=nothing
a=qpsum+session("current")
b=qty+session("qty")
demopprice=cdbl(a/b)
session("d")=demopprice
End Function

急啊，大家费心帮帮忙。在这里先谢谢啦

怎么没人理呀！！

不要只看不说呀，有什么意见说说嘛！！

没意见

那倒是看看错在哪儿呀？？急呀！！