Erro 0x800a000d

[smez]

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

'Lendo informações do pedido
                Dim codigo,loop1
                    For loop1 = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) to Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) 
                        arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&")
                    codigo = arrTemp(1)
                    SQL = "SELECT * FROM produto WHERE codigo="& codigo &""
                    qtde = 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
Next
Session.Abandon
%>

linha de erro

                    For loop1 = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) to Request.Cookies(Session("SS_ULT_COOKIE")("codigo"))

[.Andreia.]

Pelo que vi no codigo, o problema seria em

arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&")

o que exatamente você quer nessa linha?

[smez]

pegar os dados do carrinho de compra e salvar no banco de dados

tipo assim, quando ele salva no banco de dados ele pega os produtos do carrinho