Updatera i en loop i SP

Här har jag kod för asp, som jag skulle vilja ha lite smartare i SP t ex, några förslag?

Tror koden är självförklarande

sql="select del_id from Texter
set rs=conn.execute(sql)
do until rs.eof

  sql="SELECT COUNT(namn) AS Antal  FROM personer where del_id="&rs("del_id")
  set rs2=conn.execute(sql)

  sql="update texter set antal="&rs("antal")&" where del_id="&rs("del_id")
  set rs2=conn.execute(sql)

  rs.movenext
loop

En lite kortare variant, men fortfarande ingen SP!

sql="select del_id from Texter"
set rs=conn.execute(sql)
do until rs.eof

	sql="UPDATE texter SET Antal = (SELECT COUNT(namn) FROM personer AS T WHERE del_id <= texter.del_id) WHERE del_id = "&rs("del_id")
	set rs2=Conn.Execute(SQL)
 
 rs.movenext
loop

Lösningen

UPDATE texter SET Antal = (SELECT COUNT(namn) FROM personer AS T WHERE del_id = texter.del_id)