<%call titulo_box(titulo)%>

Meu Carrinho | Meu Cadastro | Política de Privacidade | Política de Trocas e Devoluções
<% strsql = "select valor_sem_taxa_entrega from tbl_dados" set consulta = conexao.execute(strsql) if not consulta.eof then valor_sem_taxa_entrega = consulta("valor_sem_taxa_entrega") end if set consulta = nothing modo = request("modo") if len(session("cod_pedido_temp")) > 0 then if session("cod_pedido_temp") > 0 then strsql = "select cod_pedido_temp from tbl_pedidos_temp where cod_pedido_temp="&session("cod_pedido_temp") set consulta = conexao.execute(strsql) if consulta.eof then 'limpar sessions session("cod_pedido_temp") = 0 session("cod_local") = 0 session("id_valor") = 0 ' limpar cookies response.cookies("loja_"&nome_empresa)("cod_pedido_temp") = 0 response.cookies("loja_"&nome_empresa).expires = date() - 1 end if set consulta = nothing end if end if if len(session("log_cli")) > 0 then strsql = "select cod_local from tbl_clientes where id_cliente="&session("log_cli") set consulta = conexao.execute(strsql) cod_local = consulta("cod_local") session("cod_local") = cod_local set consulta = nothing if cod_local = 0 then response.redirect("cadastro_cli.asp?cod_site="&cod_site&"&msg="&alerta(34)&"&modo=abre_cadastro&id_cliente="&session("log_cli")) end if else cod_local = 0 session("cod_local") = cod_local end if %> <% desconto_frete = 0 strsql = "select valor_pedido from tbl_desconto_frete where regiao='"&consulta("regiao")&"' and ativo = 1" set consulta5 = conexao.execute(strsql) if not consulta5.eof then if total_prod >= consulta5("valor_pedido") then desconto_frete = consulta("loc_valor") %> <% end if end if set consulta5 = nothing %>
<% if len(session("cod_pedido_temp")) = 0 then session("cod_pedido_temp") = 0 end if '******* SE A SESSION ESTIVER VARIA, PROCURA NO COOKIE if len(session("cod_pedido_temp")) = 0 or session("cod_pedido_temp") = 0 then ' pega o código de um cookie gravado no cliente, se houver if request("loja_"&nome_empresa)<>"" then session("cod_pedido_temp") = request("loja_"&nome_empresa)("cod_pedido_temp") end if end if %> <% '******* INCLUSÃO DE PRODUTOS NO CARRINHO DE COMPRAS quantidade = valida_num(request("quantidade")) aro_m = valida_a(valida_num(request("aro_m"))) parametros = valida_nq(request("parametros")) cod_curso = valida_a(valida_num(request("cod_curso"))) aro_f = valida_a(valida_num(request("aro_f"))) gravacao_m = valida_nq(request("gravacao_m")) gravacao_f = valida_nq(request("gravacao_f")) if modo = "incluir" then '******* CRIA O CARRINHO PARA O CLIENTE if len(session("cod_pedido_temp")) = 0 or session("cod_pedido_temp") = 0 then strsql = "insert into tbl_pedidos_temp(ip,data,cod_valor)values('"&Request.ServerVariables("REMOTE_ADDR")&"',"&data_sistema&",0)" conexao.execute strsql strsql = "select max(cod_pedido_temp) as maximo from tbl_pedidos_temp" set consulta = conexao.execute(strsql) session("cod_pedido_temp") = consulta("maximo") ' gravar cookie response.cookies("loja_"&nome_empresa)("data") = date() response.cookies("loja_"&nome_empresa)("cod_pedido_temp") = consulta("maximo") response.cookies("loja_"&nome_empresa).expires = date() + 5 set consulta = nothing end if ' INCLUI O PRODUTO cod_produto = valida_num(request("cod_produto")) quantidade = valida_num(request("quantidade")) parametros = valida_nq(request("parametros")) aro_m = valida_a(valida_num(request("aro_m"))) cod_curso = valida_a(valida_num(request("cod_curso"))) aro_f = valida_a(valida_num(request("aro_f"))) gravacao_m = valida_nq(request("gravacao_m")) gravacao_f = valida_nq(request("gravacao_f")) if len(quantidade)=0 then quantidade = 1 Session("quantidade") = 1 else Session("quantidade") = valida_num(Session("quantidade")) + quantidade end if strsql = "insert into tbl_pedidos_produtos_temp(cod_pedido_temp,cod_produto,quantidade,aro_m,aro_f,gravacao_m,gravacao_f,cod_curso,obs_produto)values("&session("cod_pedido_temp")&","&cod_produto&","&quantidade&","&aro_m&","&aro_f&",'"&gravacao_m&"','"&gravacao_f&"',"&cod_curso&",'"¶metros&"')" 'response.write strsql conexao.execute(strsql) end if %> <% '******* EXCLUSÃO DE PRODUTOS DO CARRINHO DE COMPRAS if request("modo") = "excluir" then id_pedidos_temp = valida_num(request("id_pedidos_temp")) strsql = "delete tbl_pedidos_produtos_temp from tbl_pedidos_produtos_temp where id_pedidos_temp="&id_pedidos_temp& " and cod_pedido_temp="&session("cod_pedido_temp") conexao.execute(strsql) Session("quantidade") = Session("quantidade") - 1 end if %> <% '******* EXCLUSÃO DO CARRINHO DE COMPRAS if request("modo") = "limpar" then strsql = "delete tbl_pedidos_produtos_temp from tbl_pedidos_produtos_temp where cod_pedido_temp="&session("cod_pedido_temp") conexao.execute(strsql) Session("quantidade") = 0 end if '******* RECALCULA if request("modo") = "recalcula" then if len(request("tmpo"))>0 then session("xpto") = 1 session("fical") = valida_a(request("fical")) session("cpfxto") = valida_nq(request("cpfxto")) end if pedidos = request("pedidos") if len(pedidos) > 0 then y= 1 cat = trim(replace(pedidos," ",""))&"," do while len(cat) <> 0 y= instr(cat,",") categ_inclui=replace(mid(cat,1,y),",","") quantidade = valida_num(request("quantidade_"&categ_inclui)) aro_m = valida_a(valida_num(request("aro_m_"&categ_inclui))) parametros = valida_nq(request("parametros_"&categ_inclui)) cod_curso = valida_a(valida_num(request("cod_curso_"&categ_inclui))) aro_f = valida_a(valida_num(request("aro_f_"&categ_inclui))) gravacao_m = valida_nq(request("gravacao_m_"&categ_inclui)) gravacao_f = valida_nq(request("gravacao_f_"&categ_inclui)) strsql = "update tbl_pedidos_produtos_temp set quantidade="&quantidade& ",aro_m="&aro_m&",aro_f="&aro_f&",gravacao_m='"&gravacao_m&"',gravacao_f='"&gravacao_f&"',cod_curso="&cod_curso&",obs_produto='"¶metros&"' where id_pedidos_temp="&categ_inclui conexao.execute(strsql) cat=mid(cat,y+1,len(pedidos)) loop end if end if %> <% '******* MONTA CARRINHO strsql = "select * from tbl_pedidos_temp as a,tbl_pedidos_produtos_temp as b where a.cod_pedido_temp=b.cod_pedido_temp and a.cod_pedido_temp="&session("cod_pedido_temp")& " order by b.id_pedidos_temp" set consulta = conexao.execute(strsql) if consulta.eof then response.write "

Nenhum produto em seu carrinho até o momento

Clique aqui para voltar à loja" else %>

&modo=recalcula name=carrinho>

<%call alerta(35)%>

<% total_peso = 0 total_prod = 0 cor = "#F0FFF8" do while not consulta.eof set consulta2 = conexao.execute("select id_produto,nome,figura_pq,preco,desconto,desconto,peso,codigo,formato from tbl_produtos where id_produto="&consulta("cod_produto")) if cor = "#F0FFF8" then cor = "white" else cor = "#F0FFF8" end if %> " size=1 class=campo> <% total_prod = total_prod + (consulta2("desconto")*consulta("quantidade")) total_peso = total_peso + (consulta2("peso")*consulta("quantidade")) set consulta2 = nothing consulta.movenext loop set consulta = nothing 'DESCONTO NO FRETE PARA O CASO DE O VALOR TOTAL DE PRODUTOS FOR MAIOR DO QUE O VALOR ESTIPULADO if total_prod > valor_sem_taxa_entrega then total_peso = 0 else end if if total_prod>=90 then frete_gratis2 = true else frete_gratis2 = false end if session("total_peso") = total_peso %> "> "> <% if len(session("id_valor")) = 0 then session("id_valor") = 0 end if if valida_num(request("total_peso")) <> valida_num(session("total_peso")) then session("id_valor") = 0 else session("id_valor") = valida_num(request("id_valor")) if len(session("id_valor")) = 0 then session("id_valor") = 0 end if end if strsql = "select valor as loc_valor,regiao from tbl_locaisXvalores,tbl_locais where cod_local = id_local and id_valor="&session("id_valor") set consulta = conexao.execute(strsql) if consulta.eof then %>
<%call alerta(123)%><%call alerta(124)%><%call alerta(128)%>
<%call alerta(126)%><%call alerta(127)%><%call alerta(128)%>
" alt="Ampliar" border=0 style="border-color: gray;" width=50> "><%=consulta2("nome")%>
Cód: <%=consulta2("codigo")%> " value="<%=consulta("obs_produto")%>" size=1 class=campo> " value="<%=consulta("cod_curso")%>" size=1 class=campo> <% if consulta("cod_curso") <> 0 then strsql = "select nome from tbl_produtos_cursos where id_curso="&consulta("cod_curso") set consulta4 = conexao.execute(strsql) if not consulta4.eof then response.write "
"&consulta4("nome")&"" end if set consulta4 = nothing end if %>
" value="<%=consulta("quantidade")%>" size=1 class=campo> R$ <%response.write formatnumber(consulta2("desconto")*consulta("quantidade"),2)%> ">Excluir
<%call alerta(119)%> R$ <%=formatnumber(total_prod,2)%>

<%=alerta(152)%>

<% strsql = "select * from tbl_locaisXtipos where ativo=1 and cod_site="&cod_site&" order by nome" 'SÓ SEDEX set consulta2 = conexao.execute(strsql) if not consulta2.eof then if cod_local <> 0 and len(cod_local) > 0 then %> <%call alerta(36)%>
<% end if do while not consulta2.eof strsql = "select top 1 id_valor,valor,tbl_locaisXtipos.nome as tipo from tbl_locaisXvalores,tbl_locaisXtipos,tbl_locais where tbl_locais.cod_site="&cod_site&" and id_tipo = cod_tipo and cod_local="&cod_local&" and cod_tipo="&consulta2("id_tipo")&" and peso_ate >="&total_peso&" order by peso_ate" set consulta3 = conexao.execute(strsql) if not consulta3.eof then set frt = conexao.execute("select frete_gratis from tbl_clientes where id_cliente = "&session("log_cli")) if not frt.eof then frete_gratis = frt("frete_gratis") end if set frt = nothing if frete_gratis = 1 or frete_gratis2 then %> Frete Gratis: R$ <%=formatnumber(0,2)%> 
<% else%> " onclick="javascript:document.carrinho.submit();"> <%=consulta3("tipo")%>: R$ <%=formatnumber(consulta3("valor"),2)%> 
<% end if end if set consulta3 = nothing consulta2.movenext loop end if set consulta2 = nothing %>

<%if len(session("log_cli")) = 0 then%>
<%call alerta(37)%> <%call alerta(132)%>
&modo=loga&carrinho=sim>

E-mail:
Senha:


: : <%call alerta(129)%>
: : <%call alerta(100)%>

<%end if%> <%else total = total_prod + consulta("loc_valor") %>
<%call alerta(119)%> R$ <%=formatnumber(total_prod,2)%>
<%call alerta(800)%> - R$ <%=formatnumber(desconto_frete,2)%>
<%call alerta(120)%> R$ <%=formatnumber(consulta("loc_valor"),2)%>
<%call alerta(121)%> R$ <%=formatnumber(total - desconto_frete,2)%>
<%=alerta(152)%>

<%call alerta(38)%>
<% strsql = "select * from tbl_locaisXtipos where ativo=1 and cod_site="&cod_site&" order by nome" 'SÓ SEDEX set consulta2 = conexao.execute(strsql) do while not consulta2.eof strsql = "select top 1 id_valor,valor,tbl_locaisXtipos.nome as tipo from tbl_locaisXvalores,tbl_locaisXtipos,tbl_locais where tbl_locais.cod_site="&cod_site&" and id_tipo = cod_tipo and cod_local="&cod_local&" and cod_tipo="&consulta2("id_tipo")&" and peso_ate >="&total_peso&" order by peso_ate" set consulta3 = conexao.execute(strsql) if not consulta3.eof then if not session("id_valor") = 19749 then%> " onclick="javascript:document.carrinho.submit();" <%if valida_num(consulta3("id_valor"))=valida_num(session("id_valor")) then response.write "checked" end if%>> <%=consulta3("tipo")%>: R$ <%=formatnumber(consulta3("valor"),2)%>  
<% else %> Frete Gratis: R$ <%=formatnumber(0,2)%>  
<% end if end if set consulta3 = nothing consulta2.movenext loop set consulta2 = nothing %>
<%if session("xpto") = 1 then%> &cod_local=<%=session("cod_local")%>&cod_pedido_temp=<%=session("cod_pedido_temp")%>&log_cli=<%=session("log_cli")%>&fical=<%=session("fical")%>&cpfxto=<%=session("cpfxto")%>';"> <%else%> <%end if%>
<% end if end if set consulta = nothing %>