Erro 0x800a000d

[smez]

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[number: 2]'

/sst/fechar_pedido.asp, line 95

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

'Lendo informações do pedido
                Dim codigo,loop1

                    SQL = "SELECT * FROM produto WHERE codigo="& codigo &""
                    qtde = Request.Cookies(Session("SS_ULT_COOKIE")("qtde"))
                    arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&")
                    Request.Cookies(Session("SS_ULT_COOKIE")("qtde")) = arrTemp(2)   

    'Grava Pedido

SQL = "UPDATE produto SET qunt = qunt - "& qtde &"  WHERE  codigo =" &Request.QueryString("codigo")&""
rs.open sql
%>

[kuroi]

tem certeza q a variavel qtde esta mesmo vindo com numero e não com letra, você devia testar antes com a funcao IsNumeric.

outra coisa, o mais correto seria em vez de:

rs.open sql

dar um excute na sua conexao, q me parece, tem o nome de abredb. então ficaria assim:

abredb.Execute sql

já q você não vai der nenhum select pra por no recordset.