数组写入数据库问题请教

<%  

        pbid=trim(request.Form("pbid"))'这里的pbid为数字

	xxdm=trim(request.Form("xxdm"))'这里的xxdm为文本

	yqbh=trim(request.Form("yqbh"))'这里的yqbh为文本

	yps=trim(request.Form("yps"))'这里的yps为数字

	kemudaima=trim(request.Form("kemudaima"))'这里的kemudaima为文字

   '以上的pbid、xxdm、yqbh、yps、kemudaima用response.Write()都正常。

   

         ids=Split(pbid,",")'以下分拆数组

 	schoolno=split(xxdm,",")

	bh=split(yqbh,",")

 	xys=Split(yps,",")

	kemudaima=Split(kemudaima,",")'分拆结束

	

	set pbqk=server.CreateObject("adodb.recordset")

		sql="SELECT * FROM pbqk "'我要将以上信息分别写入这个表

		pbqk.open sql,conn,3,3

		

for i=0 to ubound(ids)

if not pbqk.eof and not pbqk.bof then

	  if pbqk("idi")=ids(i) then'如果要写入的id在pbqk表的idi字段里已有了，就修改这条记录的相关字段，可是就是在这里出错了，原来有的id，不是修改记录而是直接添加记录。这里的判断错在哪里？指针？



		  pbqk("xxdm")=trim(schoolno(i))

		  pbqk("yiqibh")=trim(bh(i))

		  pbqk("yps")=trim(xys(i))

		  pbqk("kemudaima")=trim(kemudaima(i))'改写该记录的这四个字段结束。

		  

		  

	  else  

		  pbqk.addnew'如果要写入的id在pbqk表的idi字段里没有，就新插入一条记录，并将下列五个字段写入。但是出现的问题是，没有任何内容提交到数据库。	 

		  pbqk("idi")=trim(ids(i))

		  pbqk("xxdm")=trim(schoolno(i))

		  pbqk("yiqibh")=trim(bh(i))

		  pbqk("yps")=trim(xys(i))

		  pbqk("kemudaima")=trim(kemudaima(i))'写入五个字段结束。

	  end if

	pbqk.update

	pbqk.movenext

end if	

next



response.Write("<script language='javascript'>alert('修改成功！');location.href='zxpbqk.asp'</script>")

response.End()



pbqk.close

set pbqk=nothing



%>