Problemas Com Update

[nardo]

Galera,

Estou com um pequeno grande problema no update

Esta página recebe o codigo e a descricao (que são enviados via post por outra pagina)

<%

'Ativa tratamento de Erros

on error resume next

Dim con,rs

atualiza_cod_defeito=Request.Form("altera_cod_defeito")

atualiza_desc_defeito=Cstr(Trim(Request.Form("altera_desc_defeito")))

session("atualiza_cod_defeito")=Cint(atualiza_cod_defeito)

session("atualiza_desc_defeito")=atualiza_desc_defeito

Set con = Server.CreateObject("ADODB.CONNECTION")

con.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("./bd/teste.mdb")

sql_altera="Update defeito set descricao=" & session("atualiza_desc_defeito")

sql_altera= sql_altera & " where cod_defeito=" & cint(session("atualiza_cod_defeito"))

set rs=con.execute(sql_altera)

'se houver algum erro, detalha

if err.number > 0 then

With response

.write "Ocorreram os seguintes erros:" & "<p>"

.write "Erro número:" & err.number & "<p>"

.write "Descrição:" & err.helpcontext & "<p>"

.write "Contexto de Ajuda:" & err.helppath & "<p>"

.write "Caminho de Ajuda:" & err.nativeerro & "<p>"

.write "Erro Nativo:" & err.source & "<p>"

.write "Fonte:" & err.source & "<p>"

.write "SQLState" & err.sqlstate & "<p>"

End With

End If

If conn.errors.count > 0 then

With response

.write "Ocorreu um erro no Banco de Dados " & "<p>"

.write sql_altera & "<p>"

End With

for counter=0 to errors.count

With response

.write "Error #" & con.errors(counter).number & "<p>"

.write "Error Descri. ->" & con.errors(counter).description & "<p>"

End With

next

Else

Response.write "Dados Gravados com Sucesso ! "

End If

%>

Eis o problemin...

Ocorreu um erro no Banco de Dados

Update defeito set descricao=aaaa where cod_defeito=21

estou tentando alterar o valor da variavel sql_altera para confirmar o update só que não to conseginu...

Agradeço a Ajuda !

Rafael

[bareta]

não entendiqual o erro e o que você quer fazer????