Erro 0x80040e14

[smez]

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'codigo ='.

<%
'*******inclusao
if Request.QueryString("codigo") <> "" and Request.Form("TxtQuantidade") <> "" and  Request.QueryString("incluir") = "true" then
    Dim TbProdutos, strSQLProduto  
    strSQLProdutos="Select * from Produto WHERE CODIGO=" & Request.QueryString("codigo")
    Set TbProdutos=Server.CreateObject ("ADODB.Recordset")
    TbProdutos.Open strSQLProdutos, BancoDeDados, adOpenkeySet
    
    if TBProdutos.REcordCount = 1 then
        If Session("SS_ULT_COOKIE")="" then
              Session("SS_ULT_COOKIE")="1"
        End if

        Session("SS_ULT_COOKIE")=Session("SS_ULT_COOKIE") + 1

        Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("codigo")=Request.QueryString("codigo")
        Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("nome")=TBProdutos("nome")
        Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("qtde")=Request.Form("TxtQuantidade")
        Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("ValorVenda")=FormatCurrency(TBProdutos("ValorVenda"))
        Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("total")=FormatCurrency(TBProdutos("ValorVenda") * Request.Form("TxtQuantidade"))
    End if

    TbProdutos.Close  
    Set TbProdutos=Nothing
    BancoDeDados.Close
    Set BancoDeDados=Nothing
    Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's

'*******exclusão
elseif Request.QueryString("nome_cookie") <> ""  and Request.QueryString("excluir") = "true" then
  Response.Cookies(Request.QueryString("nome_cookie")).Expires = Date 
  Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's

'*******Alteração
elseif Request.QueryString("nome_cookie") <> "" and Request.Form("TxtQuantidade") <> "" and Request.QueryString("alterar") = "true" then
  Response.Cookies (Request.QueryString("nome_cookie"))("qtde")=Request.Form("TxtQuantidade")
  Response.Cookies (Request.QueryString("nome_cookie"))("total")=FormatCurrency(Request.Cookies(Request.QueryString("nome_cookie"))("ValorVenda") * Request.Form("TxtQuantidade"))  
  Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's
end if

%>
<%
set rs = createobject("adodb.recordset")
set rs.activeconnection = abredb

'Grava Pedido
SQL = "UPDATE Produto   SET Qunt = Qunt - 1  WHERE  codigo ="&Request.Cookies("codigo")&""
rs.open sql
%>

erro nessa linha SQL = "UPDATE Produto SET Qunt = Qunt - 1 WHERE codigo ="&Request.Cookies("codigo")&""

[kuroi]

Request.Cookies("codigo")&"" está trazendo um valor em branco.

acho q antes do update, você deveria testar se o request esta trazendo algum valor, e se ele é numerico

[smez]

tipo assim

o Request.Cookies("codigo")&"" e para buscar entro dos cookies

[kuroi]

sim. não sei trabalhar com cookies, mas da pra ver q Request.Cookies("codigo")&"" esta trazendo um valor em branco.

não sei se é porque não existe o cookie, ou você esta preenchendo errado, ou você esta pegando errado o valor, ou o cookie q você esta pegando esta zuado, mas vendo o erro q deu da pra ver q o seu sql ta ficando assim:

UPDATE Produto SET Qunt = Qunt - 1 WHERE codigo = 

ou seja, o request não ta trazendo valor. não tenho conhecimento pra te ajudar mais do q isso, você vai ter q descobrir qual o problema do cookie ou esperar alguém q entenda mais tentar te ajudar.