%call titulo_box(titulo)%>
<%
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
%>
Nenhum produto em seu carrinho até o momento"
else
%>
<%
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 "
<%call alerta(37)%> <%call alerta(132)%>
<%end if%>
<%else
total = total_prod + consulta("loc_valor")
%>
<%
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")
%>
<%call alerta(119)%> R$ <%=formatnumber(total_prod,2)%>
<%
end if
end if
set consulta5 = nothing
%>
<%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)%>
<%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
%>