<% cotacao = dados("cotacao", "config_geral", "") desconto_deposito = dados("desconto","config_bancaria","") desconto_boleto = dados("desconto","config_boleto","") boleto_utilizar = dados("utilizar","config_boleto","") visa_utilizar = dados("v_utilizar","config_visa","") visa_parcela_minima = dados("v_parcela_minima","config_visa","") visa_sem_juros = dados("v_nr_sem_juros","config_visa","") master_utilizar = dados("m_utilizar","config_master","") master_parcela_minima = dados("m_parcela_minima","config_master","") master_sem_juros = dados("m_nr_sem_juros","config_master","") pagseguro_utilizar = dados("utilizar","config_brpay","") taxa_pagseguro = dados("juros","config_brpay","") minima_pagseguro = 10 PD_utilizar = dados("utilizar","config_pagamentodigital","") taxa_PD = dados("juros","config_pagamentodigital","") minima_PD = 10 'validar promoção! Verifica se ainda é válida! Conectar set rs = conexao.execute("SELECT * FROM promocao WHERE produto='"&request("produto")&"' and ativo='s'") if not rs.eof then verificar = DateDiff("d", date, rs("data_final")) if verificar < 0 then conexao.execute("UPDATE promocao SET ativo='n' WHERE produto='"&request("produto")&"'") end if end if rs.close set rs = nothing Desconectar %> <%=dados("nome", "config_loja", "")%>-<%=dados("slogan","config_loja", "")%>
<% Conectar idproduto = Request.QueryString("produto") if idproduto = "" then idproduto = "0" end if set rs = conexao.execute("SELECT * FROM produtos WHERE id="&idproduto&"")%> <% if rs.bof or rs.eof then%>
 Home » Detalhes de produto

O produto selecionado não existe ou não está mais à venda!

Certifique-se de ter clicado no link correto do produto. Se preferir, escolha outro produto pelo menu de departamentos ao lado.

<% Desconectar else 'PREPARA AS CONFIGURAÇÕES PARA CÁLCULO DE PARCELAMENTO if rs("foto1") = "" then foto = "grande.gif" else foto = rs("foto1") end if variacao = false 'VERIFICA O ESTOQUE DO PRODUTO SQL = "SELECT est_id FROM tbl_estoque_variado WHERE est_estoque > 0 and est_produto='"&rs("id")&"'" set rs1 = conexao.execute(SQL) if rs1.eof then if rs("estoque") = 0 or rs("estoque") = "" then estoque = "n" msg_estoque = "Esgotado" else estoque = "s" msg_estoque = "Disponível" end if else variacao = true estoque="s" msg_estoque = "Disponível" end if rs1.close set rs1 = nothing set rs3 = conexao.execute("SELECT * FROM sessoes INNER JOIN categoria ON categoria.sessao=sessoes.ses_id WHERE categoria.cat_id="&rs("categoria")&"") 'Se o preço não estiver informado, então monta o preço normal if (preco*1) = "" or (preco*1) <= 0 then 'Então, monta o preço normal preco = formatnumber(fnc_pdt_preco(rs("moeda"), rs("preco"), cotacao),2) end if 'Monta a promoção, na nova função por = FP_validar_promocao(rs("id")) if por <> "" then economia = formatnumber(preco-por,2) end if IF por <> "" then valor_no_deposito = desconto(por, desconto_deposito) valor_no_boleto = desconto(por, desconto_boleto) preco_cartao = por else valor_no_deposito = desconto(preco, desconto_deposito) valor_no_boleto = desconto(preco, desconto_boleto) preco_cartao = preco end if %>
 Home » <%=rs3("ses_nome")%> <% response.write "» " & rs3("cat_nome") &"" %> <% if rs("subcategoria") <> "" and len(rs("subcategoria")) > 1 then set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_categoria='"&rs3("cat_id")&"'") if not rs4.eof then response.write " » " & rs4("sub_nome") &"" end if end if %>
<% sql = "SELECT * FROM produtos_conjugados INNER JOIN produtos ON produtos_conjugados.id_1=produtos.id or produtos_conjugados.id_2=produtos.id and produtos_conjugados.idconj <> produtos_conjugados.idconj WHERE id_1='"&rs("id")&"' or id_2='"&rs("id")&"'" SET cj = conexao.execute(SQL) if not cj.eof then%> <%end if cj.close set cj = nothing%>


<%=rs("nome")%>
Referência: <%=rs("referencia")%>
Fabricante: <%=rs("fabricante")%>
Disponibilidade: <%if estoque = "s" then response.write "Disponível" else response.write "ESGOTADO"%>
Peso: <%=formatnumber(rs("peso"),3)%> kg
<%if por <> "" then preco_do_produto = preco%> De <%= moeda & " " & preco%> ( Economia de <%= moeda & " " & economia%> )
Por <%= moeda & " " & por%> à vista
<%else preco_do_produto = preco %> Por <%= moeda & " " & preco%> à vista <%end if%> <%if calcular_parcela = "s" then response.write "
" if por <> "" then response.write parcelase(por, parcelas, minima) else response.write parcelase(preco, parcelas, minima) end if response.write "" end if%>
<%if 1 + desconto_deposito - 1 > 0 then%> <%end if%>
<%if 1 + desconto_boleto - 1 > 0 then%>
Aproveite <%=desconto_boleto%>% off no Boleto Bancário
<%end if%>
<% if estoque = "s" then response.write "" %> <% response.write "" else%> <%end if%>
<% if variacao = true then 'CONECTA ÀS ESPECIFICAÇÕES PARA FAZER O LOOP E MONTAR OS SELECTS set es = conexao.execute("SELECT id_especifi, titulo FROM especificacoes") i = 0%> ESCOLHA AS OPÇÕES:
<%while not es.eof i = i + 1 'CONECTA ÀS ESPECIFICAÇÕES DE PRODUTO E PEGA O QUE FOR DESTA ESPECIFICAÇÃO 'set rs2 = conexao.execute("SELECT * FROM p_esp_estoque WHERE id_esp='"&es("id_especifi")&"' and estoque > 0 and id_produto='"&idproduto&"';") ' 'CONSULTA ERRADA. 'SQL = "SELECT DISTINCT(var_valor) FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON tbl_estoque_variado.est_produto = '"&rs("id")&"' WHERE var_titulo = '"&es("id_especifi")&"'" SQL = "SELECT DISTINCT(var_valor), var_id FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON est_produto='"&rs("id")&"' and est_id=var_referencia and est_estoque > 0 WHERE var_titulo = '"&es("id_especifi")&"' GROUP BY var_valor" 'response.write SQL set rs2 = conexao.execute(SQL) if not rs2.eof then%> <%end if es.movenext wend%>
<%=es("titulo")%>:
<%end if%>
" />
PRODUTO SEM ESTOQUE DISPONÍVEL!
Você pode solicitar este produto por email. Preencha abaixo:
" /> " />
Endereço de Email:
Aproveite <%=desconto_deposito%>% off no Depósito Bancário

" maxlength="500">

<% if rs("foto2") <> "grande.gif" or rs("foto3") <> "grande.gif" or rs("foto4") <> "grande.gif" or rs("foto5") <> "grande.gif" or rs("foto6") <> "grande.gif" then%> <%if rs("foto2") <> "grande.gif" then%> <%end if%> <%if rs("foto3") <> "grande.gif" then%> <%end if%> <%if rs("foto4") <> "grande.gif" then%> <%end if%> <%if rs("foto5") <> "grande.gif" then%> <%end if%> <%if rs("foto6") <> "grande.gif" then%> <%end if%>
">" rel="shadowbox" title="<%=rs("nome")%>">" width="50" border="0" >" rel="shadowbox" title="<%=rs("nome")%>">" width="50" border="0" >
" rel="shadowbox" title="<%=rs("nome")%>">" width="50" border="0" >" rel="shadowbox" title="<%=rs("nome")%>">" width="50" border="0" >" rel="shadowbox" title="<%=rs("nome")%>">" width="50" border="0" >
<%end if%>
 
Aproveite e compre junto
<%while not cj.eof set pd1 = conexao.execute("SELECT id, nome, preco, foto1, moeda FROM produtos WHERE id='"&cj("id_1")&"'") set pd2 = conexao.execute("SELECT id, nome, preco, foto1, moeda FROM produtos WHERE id='"&cj("id_2")&"'") preco_normal1 = fnc_pdt_preco(pd1("moeda"), desconto(pd1("preco"), cj("desconto_1")), cotacao) set promo = conexao.execute("SELECT * FROM promocao WHERE produto='"&pd1("id")&"' and ativo='s'") if promo.eof or promo.bof then preco1 = preco_normal1 else preco1 = desconto(preco_normal1,promo("desconto")) end if promo.close set promo=nothing preco_normal2 = fnc_pdt_preco(pd2("moeda"), desconto(pd2("preco"), cj("desconto_2")), cotacao) set promo = conexao.execute("SELECT * FROM promocao WHERE produto='"&pd2("id")&"' and ativo='s'") if promo.eof or promo.bof then preco2 = preco_normal2 else preco2 = desconto(preco_normal2,promo("desconto")) end if promo.close set promo=nothing total_conjugado = formatnumber(1+ preco1 + preco2 - 1,2) %>
<% if Cint(cj("id_1")) = Cint(rs("id")) then If len(cstr(pd1("foto1")))<3 or pd1("foto1") = "grande.gif" then foto1="pequena.gif" else foto1=pd1("foto1") end if else If len(cstr(pd2("foto1")))<3 or pd2("foto1") = "grande.gif" then foto1="pequena.gif" else foto1=pd2("foto1") end if end if%> + <% if Cint(cj("id_2")) = Cint(rs("id")) then If len(cstr(pd1("foto1")))<3 or pd1("foto1") = "grande.gif" then foto2="pequena.gif" else foto2=pd1("foto1") end if else If len(cstr(pd2("foto1")))<3 or pd2("foto1") = "grande.gif" then foto2="pequena.gif" else foto2=pd2("foto1") end if end if%> <% if Cint(cj("id_1")) = Cint(rs("id")) then id1 = pd1("id") response.write ""&pd1("nome")&"" else id1=pd2("id") response.write ""&pd2("nome")&"" end if%> + <% if Cint(cj("id_2")) = Cint(rs("id")) then id2 = pd1("id") response.write ""&pd1("nome")&"" else id2=pd2("id") response.write ""&pd2("nome")&"" end if %> ">
Por apenas R$ <%=total_conjugado%> à vista <%if calcular_parcela = "s" then%> ou <%=parcelase(total_conjugado, parcelas, minima)%> <%end if%>
<% 'CONECTA ÀS ESPECIFICAÇÕES PARA FAZER O LOOP E MONTAR OS SELECTS set es = conexao.execute("SELECT id_especifi, titulo FROM especificacoes") i = 0%> ESCOLHA AS OPÇÕES:
<%while not es.eof i = i + 1 'CONECTA ÀS ESPECIFICAÇÕES DE PRODUTO E PEGA O QUE FOR DESTA ESPECIFICAÇÃO 'set rs2 = conexao.execute("SELECT * FROM p_esp_estoque WHERE id_esp='"&es("id_especifi")&"' and estoque > 0 and id_produto='"&idproduto&"';") ' 'CONSULTA ERRADA. 'SQL = "SELECT DISTINCT(var_valor) FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON tbl_estoque_variado.est_produto = '"&rs("id")&"' WHERE var_titulo = '"&es("id_especifi")&"'" SQL = "SELECT DISTINCT(var_valor), var_id FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON est_produto='"&id1&"' and est_id=var_referencia and est_estoque > 0 WHERE var_titulo = '"&es("id_especifi")&"' GROUP BY var_valor" 'response.write SQL set rs2 = conexao.execute(SQL) if not rs2.eof then%> <%end if es.movenext wend%>
<%=es("titulo")%>:
  <% 'CONECTA ÀS ESPECIFICAÇÕES PARA FAZER O LOOP E MONTAR OS SELECTS set es = conexao.execute("SELECT id_especifi, titulo FROM especificacoes") i = 0%> <%while not es.eof i = i + 1 'CONECTA ÀS ESPECIFICAÇÕES DE PRODUTO E PEGA O QUE FOR DESTA ESPECIFICAÇÃO 'set rs2 = conexao.execute("SELECT * FROM p_esp_estoque WHERE id_esp='"&es("id_especifi")&"' and estoque > 0 and id_produto='"&idproduto&"';") ' 'CONSULTA ERRADA. 'SQL = "SELECT DISTINCT(var_valor) FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON tbl_estoque_variado.est_produto = '"&rs("id")&"' WHERE var_titulo = '"&es("id_especifi")&"'" SQL = "SELECT DISTINCT(var_valor), var_id FROM tbl_est_variacao INNER JOIN tbl_estoque_variado ON est_produto='"&id2&"' and est_id=var_referencia and est_estoque > 0 WHERE var_titulo = '"&es("id_especifi")&"' GROUP BY var_valor" 'response.write SQL set rs2 = conexao.execute(SQL) if rs2.eof then%> <%else%>ESCOLHA AS OPÇÕES:
<%end if es.movenext wend%>
<%=es("titulo")%>:

<%cj.movenext wend pd1.close pd2.close set pd1 = nothing set pd2 = nothing%>
 

<%=rs("detalhes")%>

<%if visa_utilizar = "s" then%> <%end if if master_utilizar = "s" then %> <%end if if pagseguro_utilizar = "s" then %> <%end if if PD_utilizar = "s" then %> <%end if%>
R$ <%=valor_no_deposito%>
R$ <%=valor_no_boleto%>

<%Desconectar END IF%>