<% 'INÍCIO DO CÓDIGO %>

<%=strLg4%> » <%=strLg1%>

»1. <%=strLg282%>
 »2. <%=strLg283%>
 »3. <%=strLg284%>
 »4. <%=strLg285%>

>
<% '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:15px'><%=strLg49%>
<%=strLg50%>

>
<% response.end else intOrderID = cstr(Session("orderID")) %> <% '*** Se no login do cliente (comprareg.asp) foi detectado que o cliente informou CEP diferente do cadastro, força o cliente recalcular o frete com o seu CEP correto if request.querystring("rec")="s" then session("PesoTotalCep")=request.querystring("cep") end if %> <%=strLg65%>

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

<%=request.querystring("erro")%>
<% while not pedidos.EOF idprod = pedidos("idprod") quantidade = pedidos("quantidade") set produtos = abredb.Execute("SELECT A.preco, A.nome, A.peso, B.QTDMAXIMA, B.ESTOQUE AS B FROM produtos AS A, ESTOQUE AS B WHERE A.idprod = B.IDPRODUTO AND A.idprod="&idprod&";") if produtos.eof then Session("orderID") = "" response.redirect "carrinhodecompras.asp" end if preco = produtos("preco") peso = produtos("peso") nome = produtos("nome") Maximo = produtos("QTDMAXIMA") EsT = produtos("B") intProdID = idprod strProdNome = nome pesoz = peso intProdPrice = preco intQuant = quantidade if session("estado") = "" then intFrete = 0 else intFrete = valorfrete end if 'Calcula o total do frete intTotalFrete = intTotalFrete + (intQuant * intProdPrice) intTotal = intTotalFrete + intFrete subpreco = formatNumber(intProdPrice,2) totpreco = formatNumber((intQuant * intProdPrice),2)%> <% pesototal = 1 + FormatNumber(pesototal, 3) + FormatNumber((produtos("peso") * intQuant), 3) - 1 pedidos.MoveNext wend pedidos.Close set pedidos = Nothing produtos.Close set produtos = Nothing Session("PesoTotalFrete") = FormatNumber(pesototal, 3) 'Valor total da compra totaldasuacompra = formatNumber(intTotal,2) suacompra = 1 + formatNumber(intTotal,2) + FormatNumber(session("PesoTotalValor"), 2) - 1 suacompra = FormatNumber(suacompra, 2) %> >> <% '***Script Visivel/Invisivel %> ><% session("totalcompra1") = intTotal %>
<%=strLg58%> <%=strLg59%> <%=strLg60%> <%=strLg61%> <%=strLg62%>
onChange="HandleError<%= intProdID %>(this)" <% End If %> style=font-size:11px;font-family:<%=fonte%>; maxlength=2> <%= strProdNome %> <%= strLgMoeda & " " & subpreco %><%= strLgMoeda & " " & totpreco %>
&qtd=<%= intQuant %>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg62%>';return true;" >/imagens/del.gif border=0>
<%=strLg63%><%= strLgMoeda & " " & totaldasuacompra %>
 
Forma de Entrega:
<% If entrega_motoboy="Sim" then %> > <%= descricao_forma_entrega_motoboy %>     <% End If %>
<% If entrega_encomenda="Sim" then %> > <%= descricao_forma_entrega_encomenda %>     <% End If %>
<% If entrega_download="Sim" then %> > <%= descricao_forma_entrega_download %>     <% End If %>
<% If entrega_sedex="Sim" then %> > Sedex   <% End If %>
style="visibility:visible;position:absolute;" <% else %> style="visibility:hidden;position:absolute;" <% End If %>> <% estaos = request("frete") if estaos="acc" then e1 = "selected" end if if estaos="acx" then e2 = "selected" end if if estaos="alc" then e3 = "selected" end if if estaos="alx" then e4 = "selected" end if if estaos="apc" then e5 = "selected" end if if estaos="apx" then e6 = "selected" end if if estaos="amc" then e7 = "selected" end if if estaos="amx" then e8 = "selected" end if if estaos="bac" then e9 = "selected" end if if estaos="bax" then e10 = "selected" end if if estaos="cec" then e11 = "selected" end if if estaos="cex" then e12 = "selected" end if if estaos="dfc" then e13 = "selected" end if if estaos="dfx" then e14 = "selected" end if if estaos="esc" then e15 = "selected" end if if estaos="esx" then e16 = "selected" end if if estaos="goc" then e17 = "selected" end if if estaos="gox" then e18 = "selected" end if if estaos="mac" then e19 = "selected" end if if estaos="max" then e20 = "selected" end if if estaos="mtc" then e21 = "selected" end if if estaos="mtx" then e22 = "selected" end if if estaos="msc" then e23 = "selected" end if if estaos="msx" then e24 = "selected" end if if estaos="mgc" then e25 = "selected" end if if estaos="mgx" then e26 = "selected" end if if estaos="pac" then e27 = "selected" end if if estaos="pax" then e28 = "selected" end if if estaos="pbc" then e29 = "selected" end if if estaos="pbx" then e30 = "selected" end if if estaos="prc" then e31 = "selected" end if if estaos="prx" then e32 = "selected" end if if estaos="pec" then e33 = "selected" end if if estaos="pex" then e34 = "selected" end if if estaos="pic" then e35 = "selected" end if if estaos="pix" then e36 = "selected" end if if estaos="rjc" then e37 = "selected" end if if estaos="rjx" then e38 = "selected" end if if estaos="rnc" then e39 = "selected" end if if estaos="rnx" then e40 = "selected" end if if estaos="rsc" then e41 = "selected" end if if estaos="rsx" then e42 = "selected" end if if estaos="roc" then e43 = "selected" end if if estaos="rox" then e44 = "selected" end if if estaos="rrc" then e45 = "selected" end if if estaos="rrx" then e46 = "selected" end if if estaos="scc" then e47 = "selected" end if if estaos="scx" then e48 = "selected" end if if estaos="spc" then e49 = "selected" end if if estaos="spx" then e50 = "selected" end if if estaos="sec" then e51 = "selected" end if if estaos="sex" then e52 = "selected" end if if estaos="toc" then e53 = "selected" end if if estaos="tox" then e54 = "selected" end if %> Valor da entrega em
style="visibility:visible;position:absolute;" <% else %> style="visibility:hidden;position:absolute;" <% End If %>> <%= descricao_regiao_entrega_motoboy %>
style="visibility:visible;position:absolute;" <% else %> style="visibility:hidden;position:absolute;" <% End If %>> <%= descricao_regiao_entrega_download %>
style="visibility:visible;position:relative;" <% else %> style="visibility:hidden;position:relative;" <% End If %>> Valor da entrega no CEP: >    
Não sabe seu CEP?
(Clique no botão "Atualizar" para calcular o valor da Entrega)
 
<%= strLgMoeda & " " & FormatNumber(session("PesoTotalValor"), 2)%>
<%=strLg65%><%= strLgMoeda & " " & suacompra %>

/imagens/atualiza.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg66%>';return true;">       
<%if request("atualiza") = "ok" then%>
/imagens/fecha.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg67%>';return true;"><%end if%>
>



<%= "Session(PesoTotalFrete): "&Session("PesoTotalFrete") %> <% end if %>