<% produto = 0 link=site_seguro & "grava_tudo.asp?compra=login" link="compra=login" lingua=request.cookies("paulaart")("linguasel") condi=request.cookies("condicao_pgt")("condicao_pagamento") intOrderID = cstr(Session("orderID")) if lingua <> 1 then set dolar = abredb.execute("SELECT * FROM cotacao_dolar ORDER BY id DESC") dolar_hoje = dolar("valor_dolar") end if %>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg1%>

>
<% 'Chama os produtos comprados set pedidos = abredb.Execute("SELECT idprod, quantidade FROM pedidos WHERE idcompra='" & intOrderID & "'") if pedidos.eof then Session("orderID") = "" %>

style='font-size:17px'><%=strLg49%>
<%=strLg50%>

>

>
<% response.end else intOrderID = cstr(Session("orderID")) %> <%=strLg65%>

<%=strLg56%>
<%=strLg57%>

<%=request.querystring("erro")%>
method="post" name="registro1"> <% condi=request.cookies("condicao_pgt")("condicao_pagamento") if condi= "" then condi=1 end if if condi="1" then o1 = "selected" end if if condi="2" then o2 = "selected" end if %> <% while not pedidos.EOF idprod = pedidos("idprod") quantidade = pedidos("quantidade") set produtos = abredb.Execute("SELECT preco, preco_av_cartao, preco_parcelado, nome, peso, idsessao FROM produtos WHERE idprod="&idprod&";") if produtos.eof then Session("orderID") = "" response.redirect site_normal & "carrinhodecompras.asp" else end if if condi = "1" then preco = produtos("preco") end if if condi = "2" then preco = produtos("preco_av_cartao") end if if lingua <> 1 then preco = preco / dolar_hoje end if peso = produtos("peso") nome = produtos("nome") idsessao = produtos("idsessao") intProdID = idprod strProdNome = nome set tema = abredb.Execute("SELECT id, nome, nome_ingles FROM sessoes WHERE id="&idsessao&";") nome_tema = tema("nome") pesoz = peso intProdPrice = preco intQuant = quantidade if session("estado") = "" then intFrete = 0 else intFrete = valorfrete end if ' response.write (" ** intFrete = ") & intFrete ' response.write (" ** preco = ") & preco ' response.write (" ** peso = ") & peso ' response.write (" ** quantidade = ") & quantidade 'Calcula o total do frete intTotalFrete = intTotalFrete + (intQuant * intProdPrice) intTotalPeso = intTotalPeso + (intQuant * pesoz) ' response.write (" ** intTotalFrete = ") & intTotalFrete ' response.write (" ** intTotalPeso = ") & intTotalPeso intTotal = intTotalFrete + intFrete subpreco = formatNumber(intProdPrice,2) totpreco = formatNumber((intQuant * intProdPrice),2) ' response.write (" ** intTotal = ") & intTotal ' response.write (" ** subpreco = ") & subpreco ' response.write (" ** totpreco = ") & totpreco %> <% 'CRIA CAMPO PARA GUARDAR O PESO----------------------------------- %> <% 'CHECA PESO PARA SEDEX NACIONAL OU INTERNACIONAL linguagem = request.cookies("paulaart")("linguasel") if linguagem=1 and intTotalPeso > 20 and local_destino = 1 then regiao = "0,00" %>

Sua compra não pode exceder 20kg. Por favor, clique em um produto para modificar sua quantidade ou excluí-lo! <% end if if linguagem=2 and intTotalPeso > 20 and local_destino = 1 then regiao = "0,00" %>

Its purchase cannot exceed 20kg. Please, click in a product to modify its amount or to exclude it! <% end if if linguagem=1 and intTotalPeso > 30 and local_destino <> 1 then regiao = "0,00" %>

Sua compra não pode exceder 30kg. Por favor, clique em um produto para modificar sua quantidade ou excluí-lo! <% end if if linguagem=2 and intTotalPeso > 30 and local_destino <> 1 then regiao = "0,00" %>

Its purchase cannot exceed 30kg. Please, click in a product to modify its amount or to exclude it! <% end if if pedidos("idprod")=594 or pedidos("idprod")=595 or pedidos("idprod")=596 or pedidos("idprod")=614 or pedidos("idprod")=615 or pedidos("idprod")=616 then if intQuant < 30 then intQuant = 30 end if end if if pedidos("idprod")<>594 and pedidos("idprod")<>595 and pedidos("idprod")<>596 and pedidos("idprod")<>614 and pedidos("idprod")<>615 and pedidos("idprod")<>616 then if intQuant < 20 then intQuant = 20 end if end if ' if intQuant < 30 then ' intQuant = 30 ' end if %> <% produto = produto + 1 idprod = pedidos("idprod") quantidade = pedidos("quantidade") response.cookies("paulaart")("cod_prod_"&produto)=idprod response.cookies("paulaart")("qtd_prod_"&produto)=quantidade response.cookies("paulaart")("qtd_produtos")=produto link=link&"&cod_prod_"&produto&"="&idprod&"&qtd_prod_"&produto&"="&quantidade %>

<% pedidos.MoveNext wend pedidos.Close set pedidos = Nothing produtos.Close set produtos = Nothing response.cookies("paulaart")("qtd_produtos")=produto 'Valor total da compra totaldasuacompra = formatNumber(intTotalFrete,2) suacompra = formatNumber(intTotal,2) ' response.write (" ** totaldasuacompra = ") & totaldasuacompra ' response.write (" ** suacompra = ") & suacompra %> > <% if lingua = 1 then seguro = totaldasuacompra * 0.005 else seguro = (totaldasuacompra * 0.005) / dolar_hoje end if segurof = formatNumber(seguro,2) suacompra= suacompra + seguro ' response.write (" ** seguro = ") & seguro ' response.write (" ** suacompra = ") & suacompra suacompraf = formatNumber(suacompra,2) Response.Cookies("segurot")("valor_seguro") = segurof link=link&"&qtd_produtos="&produto&"&lingua_escolhida="&lingua&"&condicao_pgt="&condi&"&segurof="&segurof %> <% link=link&"&estaos="&estaos&"&valorfrete="&valorfrete&"&sessao_totalcompra1="&suacompra response.cookies("paulaart")("caminho")=link %> > <% If lingua =1 then %> <% Else %> <% End If %> <% session("totalcompra1") = suacompra %>
<%=strLg37%> 
 
<%=strLg58%><%=strLg59%><%=strLg60%><%=strLg61%><%=strLg62%>
; maxlength=3><%= strProdNome %> (<%= nome_tema %>)<%= strLgMoeda & " " & subpreco %><%= strLgMoeda & " " & totpreco %>
/imagens/del.gif border=0>
<%=strLg63%><%= strLgMoeda & " " & totaldasuacompra %>
Obs: Taxas de A.R. e Seguro já incluidas no valor de entrega.
Obs: A.R. and Security Sales Tax includes in delivery total value.
<%=strLg65%> <%= strLgMoeda & " " & suacompraf %>

<% if intTotalPeso <= 20 and local_destino = 1 then %> <% end if %> <% if intTotalPeso <= 30 and local_destino <> 1 then %> <% end if %> <% end if %>
/imagens/atualiza.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg66%>';return true;">
>
/imagens/pross2.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg67%>';return true;">
>/imagens/pross2.gif>