Erro em Update

[adriano 0]

Acontece o seguinte... tenho uma página que exibe todos os registros para uma 'lista de presentes' (este código é do ecommerce, da microsoft...), o problema é que quando eu atualizo, ele pega o que tá escrito no último campo não-nulo e repete em todos os anteriores, já passei 5 horas na frente desse código, comentei ele todo e NADA =S. Código:

 

ASP

[*]Set errorList = Server.CreateObject("Commerce.SimpleList")

 

[*]if Request("Validate").count <> 0 then

 

[*]' pega cada campo existente no form q tenha como id "sku" e faz um por um o seguinte

 

[*]for each item in request.form("sku")

 

[*]

 

[*] ' seleciona o registro

 

[*] cmdTemp.CommandText = "SELECT 'id'=utopia_id, 'product_description'=utopia_description, 'product_description_local'=utopia_description_local FROM utopia_gift_ideas WHERE utopia_id = '"& Request("gift_id")&"' AND utopia_sku ='"& item &"'"

 

[*] Set rsExe = Server.CreateObject("ADODB.Recordset")

 

[*] rsExe.Open cmdTemp, , adOpenStatic, adLockOptimistic

 

[*]

 

[*] ' identificacao, se for nula ocorre erro

 

[*] id = mscsPage.RequestNumber("gift_id", "", 1, 20000)

 

[*] if IsNull(id) then

 

[*] errorList.Add "id must be between 1 and 20000"

 

[*] end if

 

[*]

 

[*] ' descricao local do produto não pode ser nula

 

[*]  product_description_local = Request("gift_description_local_"&item)

 

[*]  if IsNull(product_description_local) OR trim(product_description_local) = "" then

 

[*] errorList.Add "Product Description must be less than or equal to 255 characters"

 

[*] else

 

[*] rsExe.Update "product_description_local", product_description_local

 

[*]  end if

 

[*]  ' descricao do produto não pode ser nula

 

[*]  product_description = Request("gift_description_"&item)

 

[*] if IsNull(product_description) OR trim(product_description) = "" then

 

[*] errorList.Add "Product Description must be less than or equal to 255 characters"

 

[*] else

 

[*] rsExe.Update "product_description", product_description

 

[*]  end if

 

[*]  ' fim da checagem dos campos

 

[*]  rsExe.Close  

 

[*]'próximo

 

[*]next

 

[*]

 

[*]

 

[*] ' verifica se ocorreram erros

 

[*] If errorList.Count = 0 Then

 

[*] if Err.Number = 0 then

 

[*] 'ReloadSite

 

[*] Response.Redirect "gift_list.asp"

 

[*] else

 

[*] ' se ocorreu erro, ele adiciona no relatórios de erros

 

[*] errorList.Add "Database error when updating department: " & Err.Number & " (0x" & Hex(Err.Number) & ")<BLOCKQUOTE>" & Err.Description & "</BLOCKQUOTE>"

 

[*] end if

 

[*] end if

 

[*] rsExe.close

 

[*] set rsExe = nothing

 

[*] On Error Goto 0

 

[*]end if

 

[*]' fim

 

Alguém em idéia de onde esteja o erro?

[Mário Monteiro 179]

esse sku é o id ou o nome do campo??request.form("sku")deve ser o nome se não acho que não pega...

[adriano 0]

Para cada registro, é criado um campo oculto no formulário, chamado "sku", que contém a identificação única de cada produto.