Update de Varios registros

Estou tentando fazer um update de varios itens ao mesmo tempo, mas não tenho obtido sucesso.

Segue o codigo que cria o formulario altera_preco.asp:

<form method="post" action="pagina2.asp">
<%
while not rsprodutos.eof
%>

<input name="cod_produto<%=(RSPRODUTOS.Fields.Item("cod_produto").Value)%>" type="text" value="<%=(RSprodutos.Fields.Item("cod_produto").Value)%>" size="10" maxlength="10">
<input name="produto" type="text" value="<%=(RSPRODUTOS.Fields.Item("produto").Value)%>" size="80" maxlength="80">
<input name="vrl_unitario<%=(RSPRODUTOS.Fields.Item("vrl_unitario").Value)%>" type="text" value="<%=(RSPRODUTOS.Fields.Item("vrl_unitario").Value)%>" size="10" maxlength="10">
 <%

rsprodutos.movenext() wend %>

E esse é o codigo do Update - pagina2.asp

<!--#include file="bib_conexao_test.asp" -->
<%
Dim rsprodutos, id, cod_produto, vrl_unitario, sql, rsupdate, sql1

sql = "SELECT cod_produto FROM produtos"
call abre_conexao
Set RSprodutos = conexao.Execute(sql)

While Not RSprodutos.EOF
id = RSprodutos("cod_produto")

vrl_unitario = Request("vrl_unitario" & id)

sql1 = "UPDATE produtos SET vrl_unitario = '"&vrl_unitario&"' WHERE cod_produto = " &id
Set rsupdate = conexao.Execute(sql1)

RSprodutos.MoveNext
Wend
call fecha_conexao
conexao.close
Set RSprodutos = Nothing
Set rsupdate = Nothing
Response.Redirect("encerra2.asp")
%>

Acredito que o erro esta no codigo do update, agradeço se alguem der uma luz.

Muito obrigado