|
|
<%
'Chama os produtos comprados
set pedidos = conexao.Execute("SELECT * FROM pedidos WHERE idcompra='" & intOrderID & "'")
if pedidos.eof then
Session("orderID") = "" %>
Seu carrinho de compras está vazio! |
<%else%>
Confira abaixo o(s) produto(s) comprados e seus respectivos valores.
Para alterar a quantidade comprada de um produto, digite a nova quantidade no campo "QTN" e clique em "OK"
Para remover um produto de seu carrinho de compras, clique na lixeira que está ao lado direito da listagem.
Digite o CEP para saber o valor do frete e fechar o seu pedido.
<%if request("erro") <> "" then response.write ""&request("erro")&" "%>
|
|
|
Qtn. |
Foto |
Produto |
R$ Un. |
Total |
Del |
<%while not pedidos.eof
set prod = conexao.execute("SELECT * FROM produtos WHERE idprod='"&pedidos("idprod")&"'")
if prod("transportadora")="Sim" then
session("sotransportadora")="Sim"
end if
pesototal = 1 + FormatNumber(pesototal, 3) + FormatNumber((prod("peso") * pedidos("quantidade")), 3) - 1
Session("PesoTotalFrete") = FormatNumber(pesototal, 3)
if prod("moeda") = "dolar" then
preco_produto = formatNumber(prod("preco")*loja("cotacao_dia"), 2)
else
preco_produto = formatNumber(prod("preco"), 2)
end if
totalumprod = formatNumber(pedidos("quantidade") * preco_produto,2)
totalprod = formatnumber(1 + totalprod + totalumprod - 1,2)
session("total_produtos") = totalprod
valortotaldacompra = 1 + session("PesoTotalValor") + totalprod - 1
if session("utilizando_cupomdesconto") = "sim" then
if session("tipo_cpdesconto") = "dinheiro" then
valortotal = 1+session("PesoTotalValor")+totalprod-session("valor_cpdesconto")-1
else
valortotal = 1 + session("PesoTotalValor")+totalprod - (1 + session("PesoTotalValor")+totalprod * session("valor_cpdesconto") / 100)
end if
else
valortotal = 1 + session("PesoTotalValor") + totalprod - 1
end if
%>
|
<%
'Inicio das Especificacoes
Sql_especifica = "SELECT * FROM pedidos WHERE idcompra='"&session("orderID")&"' and idprod='"&prod("idprod")&"' AND especificacoes = '"&pedidos("especificacoes")&"';"
set rs = conexao.execute(Sql_especifica)
if not rs.eof then
Sql2 = "SELECT titulo, valor FROM produtos_especificacoes_detalhes WHERE id_especificacao = "&pedidos("especificacoes")&";"
set rs2 = conexao.execute(SQL2)
if not rs2.eof then
while not rs2.eof
response.Write(""&rs2("titulo")&": "&rs2("valor")&" ")
rs2.movenext
wend
end if
rs2.close
end if
rs.close
'Fim das Especificacoes
%> |
<%if prod("transportadora")="Sim" then%>
|
Não cobramos frete |
<%end if%>
|
<%pedidos.movenext
wend%>
<%if request("atualiza") = "ok" and session("PesoTotalValor") <> "" then%>
<%end if%>
<%end if%>
|
|
|
|