大家好：请教大家 如何将下面两段代码合成一段

strsql= "select * from CardInfo where CardSn=" & CardSna & ""
set rs5 = Server.CreateObject("ADODB.Recordset")
rs5.Open strsql, conn, 1, 3
rs5("CardSn")=request.form("CardSn")
rs5.update
rs5.close
set rs5=nothing
strsql= "select * from CardProduct where CardSn=" & CardSna & ""
set rs5 = Server.CreateObject("ADODB.Recordset")
rs5.Open strsql, conn, 1, 3
rs5("CardSn")=request.form("CardSn")
rs5.update
rs5.close
set rs5=nothing

还有更新的时候 CardProduct 表里面有多条一样的 CardSn记录 怎么只能更新一条呢，谢谢大家

[此贴子已经被作者于2007-6-26 17:09:26编辑过]

同时更新两个表里的数据，上面的代码可以更新，我想精简一下，但有个问题就是 表里的cardsn字段里面有相同的很多内容，比如 1234  我将1234更新为2345后，只有第一个1234被更新成2345，其它的没有更新，麻烦楼上及各位帮忙整一下，谢谢

楼上的代码我试过了，好像不行，

4楼的代码我也试过了：
if 1 to rs.recordcount
if rs.eof then exit for
rs5("CardSn")=request.form("CardSn")
rs5.update
rs5.movenext
next
好像有点问题哦，谢谢各位，还需要大家的帮忙

还望楼上 和大家帮忙研究一下，我也正在慢慢试，我也不怎么懂就是乱试，有时候运气好就有可能对了，但需要大家给个思路，谢谢！

11楼，高手啊，在感谢你的同时我还要感谢所有帮助我学习的人，谢谢你们！
代码简洁，达到预期供能

其实早在以前我就得到过你的帮助哦，我还是一直记得的