有段代码请大家看看，运行时提示错，不解，请教各位....

[ChenQ]

i=20
id=10
sql="select * from En_aud where id='"&id&"'"

Set vacRst=Server.CreateObject("ADODB.Recordset")
vacRst.Open sql,conn,adOpenKeyset,adLockBatchOptimistic
if vacRst.EOF=false then
for j=1 to i
vacRst("aud_A")=Trim(Request.Form("aud_A"&i))
vacRst("aud_B")=Trim(Request.Form("aud_B"&i))
vacRst("aud_C")=Trim(Request.Form("aud_C"&i))
vacRst("aud_D")=Trim(Request.Form("aud_D"&i))
vacRst("aud_key")=Trim(Request.Form("aud_key"&i))
vacRst.movenext
next
vacRst.Update
vacRst.close
else
errlist=errlist+"<li>Error(S) occuring when updating data. </li>"
end if
从表中检索出来的记录是20个记录，但为什么update不了呢？

[sundna]

i=20
id=10
j=1
sql="select * from En_aud where id='"&id&"'"

Set vacRst=Server.CreateObject("ADODB.Recordset")
vacRst.Open sql,conn,adOpenKeyset,adLockBatchOptimistic
if not vacRst.EOF then
do while not vacRst.EOF and j<=i
vacRst("aud_A")=Trim(Request.Form("aud_A"&j))
vacRst("aud_B")=Trim(Request.Form("aud_B"&j))
vacRst("aud_C")=Trim(Request.Form("aud_C"&j))
vacRst("aud_D")=Trim(Request.Form("aud_D"&j))
vacRst("aud_key")=Trim(Request.Form("aud_key"&j))
vacRst.Update
vacRst.movenext
j=j+1
loop
vacRst.close
else
errlist=errlist+"<li>Error(S) occuring when updating data. </li>"
end if

试试看这样行不!

[ChenQ]

我试了，这样还是不行的
vacRst.update应该是这个
vacRst.updatbatch，

[ChenQ]

我试出来，谢谢sunda(黑子)!给你加分了