Erro ao alterar o produto!

[salmeida 0]

Olá pessoal veja o erro a baixo!!!

 

Microsoft JET Database Engine error '80040e21'

 

Could not save; currently locked by another user.

 

/novo/painel/AltProduto.asp, line 331

 

 

o cod é esse?

 

<%													  Else							  						 	 Dim AltBd						 	 Dim VarCategoria							 Dim VarSubCategoria							 Dim VarNomeProduto							 Dim VarPrecoDe							 Dim VarPrecoPor							 Dim VarDescricao							 Dim VarBreveDescricao							 Dim VarEstoque							 Dim VarPeso							  						 		 VarCategoria = Request.Form("Categoria")								 VarSubCategoria = Request.Form("SubCategoria")								 VarNomeProduto = Trim(Replace(Request.Form("NomeProduto"), "'", ""))								 VarPrecoDe = Trim(Replace(Replace(Replace(Request.Form("PrecoDe"),"'",""),".",""),",","."))								 VarPrecoPor = Trim(Replace(Replace(Replace(Request.Form("PrecoPor"),"'",""),".",""),",","."))								 VarDescricao = Trim(Replace(Replace(Request.Form("Descricao"), "'", ""), vbcrlf, "<br>"))								 VarBreveDescricao = Trim(Replace(Request.Form("BreveDescricao"), "'", ""))								 VarEstoque = Trim(Replace(Request.Form("Estoque"), "'", ""))								 VarPeso = Replace(Replace(Request.Form("Peso"), "'", ""),".",",")								 									If VarCategoria = "" or VarCategoria = "Selecione uma categoria" Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Categoria!</span><br><br>" & Voltar									ElseIf VarSubCategoria = "" or VarSubCategoria = "Selecione uma SubCategoria" Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a SubCategoria!</span><br><br>" & Voltar									ElseIf VarNomeProduto = "" Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Nome do Produto!</span><br><br>" & Voltar									ElseIf VarPrecoDe = "" or not IsNumeric(VarPrecoDe) Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Preço (de) do Produto!</span><br><br>" & Voltar									ElseIf VarPrecoPor = "" or not IsNumeric(VarPrecoPor) Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Preço (por) do Produto!</span><br><br>" & Voltar									ElseIf VarDescricao = "" Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Descrição do Produto!</span><br><br>" & Voltar									ElseIf VarBreveDescricao = "" Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Breve Descrição do Produto!</span><br><br>" & Voltar									ElseIf VarEstoque = "" or not IsNumeric(VarEstoque) Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Estoque disponível do Produto!</span><br><br>" & Voltar									ElseIf VarPeso = "" or not IsNumeric(VarPeso) Then										Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Peso do Produto!</span><br><br>" & Voltar									Else							  						 	 			Set AltBd = Server.CreateObject("ADODB.Recordset")									 	 	AltBd.CursorLocation = adUseServer											AltBd.CursorType = adOpenForwardOnly											AltBd.LockType = adLockOptimistic											AltBd.Open "SELECT * FROM Produtos WHERE Cod = "& VarProduto &"", Banco, , , adCmdText												AltBd("CodCategoria") = VarCategoria												AltBd("CodSubCategoria") = VarSubCategoria												AltBd("NomeProduto") = VarNomeProduto												AltBd("PrecoDe") = VarPrecoDe												AltBd("PrecoPor") = VarPrecoPor												AltBd("Descricao") = VarDescricao (ESTA É A LINHA DO ERRO!)												AltBd("BreveDescricao") = VarBreveDescricao												AltBd("Estoque") = VarEstoque												AltBd("Peso") = VarPeso											AltBd.Update											AltBd.Close										 Set AltBd = Nothing							 							 				Response.Write "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">O produto </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& VarNomeProduto &"</span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> foi alterado com sucesso.<br><br>Deseja inserir um novo produto?</span><br><a href="& Chr(34) &"InsProduto.asp"& Chr(34) &" class="& Chr(34) &"LinkTahoma11Cinza"& Chr(34) &">Sim</a>     <a href="& Chr(34) & Session("Endereco") & Chr(34) &" class="& Chr(34) &"LinkTahoma11Cinza"& Chr(34) &">Não</a>"							  						 			 End If						  End If						%>

[jrcardozo 4]

tente fazer o que tem nesse link http://forum.wmonline.com.br/index.php?showtopic=130672