<% option explicit%>
<%
response.buffer = true
dim produtos, msg, idproduto
idproduto = request.form("idproduto")
'response.write idProduto : response.end
msg = ""
produtos = session("PRODUTOS")
if request.queryString("acao") = "incluir" then
'SE ACAO = INCLUIR
if request.form("quantidade")="" OR request.form("quantidade")="0" then response.redirect "produtos_detalhe.asp?msg=2&idProduto=" & idProduto
if not isArray(produtos) then
redim produtos(2,0)
produtos(0,0) = request.form("idProduto")
produtos(1,0) = request.form("nomeProduto")
produtos(2,0) = request.form("quantidade")
Else
dim existe
existe = false
for pos=0 to uBound(produtos,2)
if cStr(produtos(0,pos))=cStr(request.form("idProduto")) then 'Verifica se for o mesmo id apenas acrescenta na quantidade
produtos(2,pos) = cInt(produtos(2,pos)) + cInt(request.form("quantidade"))
'response.write idProduto : response.end
existe = true
exit for
end if
next
if not existe then
redim preserve produtos(2,ubound(produtos,2)+1)
produtos(0,ubound(produtos,2)) = request.form("idProduto")
produtos(1,ubound(produtos,2)) = request.form("nomeProduto")
produtos(2,ubound(produtos,2)) = request.form("quantidade")
end if
end if
session("PRODUTOS") = produtos
response.redirect "produtos_detalhe.asp?idproduto=" & idproduto & "&msg=1" 'verificar
elseif request.queryString("acao") = "salvar" then
' SE ACAO = SALVAR
produtos(2, request.queryString("pos"))= request.queryString("quantidade")
session("PRODUTOS") = produtos
'response.write request.queryString("pos")
response.redirect "carrinho.asp"
elseif request.queryString("acao") = "excluir" then
'SE ACAO = EXCLUIR
dim excluir, arrayTmp, tam
'a VAR excluir contem as posicoes da matriz que devem ser escluídas
excluir = request.form("excluir")
if excluir="" then response.redirect "carrinho.asp?idProduto=" & idproduto
arrayTmp = split(excluir, ",")
tam = uBound(arrayTmp) + 1 'coleta o numero de posicoes para excluir
arrayTmp=""
tam = ((ubound(produtos,2)+1)-tam) -1
if tam < 0 then
produtos=""
else
cont = 0
excluir = " " & excluir & ","
redim arrayTmp(2, tam)
for pos=0 to uBound(produtos,2)
if 0=inStr(excluir, cStr(" "&pos&",")) then ' verifica c a posicao da matriz deve ser mantida
arrayTmp(0, cont) = produtos(0, pos)
arrayTmp(1, cont) = produtos(1, pos)
arrayTmp(2, cont) = produtos(2, pos)
cont = cont + 1
end if
next
'produtos = ""
produtos = arrayTmp
end if
session("produtos") = produtos
response.redirect "carrinho.asp?idProduto=" & idproduto
end if
%>
...::Satti Racing::... Carrinho de Compras
<%
produtos = session("PRODUTOS")
if isArray(produtos) then
dim cor, pos, cont, total
response.write "
