<% 'PREPARA AS CONFIGURAÇÕES PARA CÁLCULO DE PARCELAMENTO description_loja = dados("description", "config_loja", "") keywords_loja = dados("keywords", "config_loja", "") nome_loja = dados("nome", "config_loja", "") slogan_loja = dados("slogan", "config_loja", "") Conectar set cc = conexao.execute("SELECT * FROM config_master, config_visa") masterp = cc("m_nr_sem_juros") masterpm = cc("m_parcela_minima") visap = cc("v_nr_sem_juros") visapm = cc("v_parcela_minima") if cc("v_utilizar") = "s" then visa = "s" calcular_parcela = "s" else visa = "n" end if if cc("m_utilizar") = "s" then master = "s" calcular_parcela = "s" else master = "n" end if if master = "s" and visa = "s" then if 1 + visap - 1 >= 1 + masterp - 1 then cartao = "Visa" parcelas = visap minima = visapm else cartao = "Mastercard" parcelas = masterp minima = masterpm end if else if master = "s" and visa = "n" then cartao = "Mastercard" parcelas = masterp minima = masterpm elseif master = "n" and visa = "s" then cartao = "Visa" parcelas = visap minima = visapm end if end if Desconectar ssessao = pform("sessao") scategoria = pform("categoria") ssubcategoria = pform("subcategoria") adi_2 = "" if LEN(ssessao) > 0 then SQL_topo = "SELECT ses_id, ses_nome FROM sessoes WHERE ses_id='"&ssessao&"'" adi_2 = " and produtos.sessao = '"&ssessao&"' " i_referencia = "ses_nome" end if if LEN(scategoria) > 0 then SQL_topo = "SELECT ses_id, ses_nome, cat_nome, cat_id FROM sessoes INNER JOIN categoria ON categoria.sessao = sessoes.ses_id WHERE cat_id='"&scategoria&"'" adi_2 = adi_2 & " and produtos.categoria = '"&scategoria&"' " i_referencia = "cat_nome" end if if LEN(ssubcategoria) > 0 then SQL_topo = "SELECT ses_id, ses_nome, cat_nome, cat_id, sub_id, sub_nome FROM sessoes INNER JOIN categoria ON categoria.sessao = sessoes.ses_id INNER JOIN subcategoria ON subcategoria.sub_categoria = categoria.cat_id WHERE sub_id='"&ssubcategoria&"'" adi_2 = adi_2 & " and produtos.subcategoria = '"&ssubcategoria&"' " i_referencia = "sub_nome" end if Conectar set rs = conexao.execute(SQL_topo) if rs.eof then categoria_inexistente = true description = description_loja keywords = keywords_loja titulo = nome_loja & " - "&slogan_loja else description = rs(i_referencia) &" "&nome_loja keywords = rs(i_referencia)&","&keywords_loja titulo = rs(i_referencia)& " - "&nome_loja nome_pagina = rs(i_referencia) if LEN(ssubcategoria) > 0 then tsessao = rs("ses_id") tcategoria = rs("cat_id") tsubcategoria = rs("sub_id") end if if LEN(scategoria) > 0 then tsessao = rs("ses_id") tcategoria = rs("cat_id") tsubcategoria = "" end if if LEN(ssessao) > 0 then tsessao = rs("ses_id") tcategoria = "" tsubcategoria = "" end if end if rs.close set rs = nothing Desconectar %> <%=titulo%>
<% Conectar Set rs = Server.CreateObject("adodb.recordset") registroporpagina = 15 RS.PageSize = registroporpagina RS.CursorLocation = 3 RS.CacheSize = registroporpagina 'Vamos fazer a busca na tabela contatos if tcategoria = "" then sql = "SELECT * FROM produtos WHERE sessao='"&tsessao&"' and visivel='s'" elseif tcategoria <> "" and tsubcategoria = "" then sql = "SELECT * FROM produtos WHERE sessao='"&tsessao&"' and categoria='"&tcategoria&"' and visivel='s'" elseif tcategoria <> "" and tsubcategoria <> "" then sql = "SELECT * FROM produtos WHERE sessao='"&tsessao&"' and categoria='"&tcategoria&"' and subcategoria='"&tsubcategoria&"' and visivel='s'" end if rs.Open sql,conexao,3 If rs.EOF Or rs.bof Then set rs3 = conexao.execute("SELECT * FROM sessoes WHERE ses_id='"&tsessao&"'") %>
 Home » <%=rs3("ses_nome")%> » <% if tcategoria <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&tcategoria&"'") response.write rs2("cat_nome") end if%>

A sessão de produtos selecionada está vazia!

Novos produtos são cadastrados todos os dias. Volte em breve e escolha esta categoria para visualizar nossos produtos.

<% else cotacao_dia = dados_nc("cotacao", "config_geral", "") moeda = dados_nc("moeda", "config_geral", "") IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rs.PageCount then intpagina=rs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF rs.AbsolutePage = intpagina intrec=0 set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_id='"&tsubcategoria&"'") set rs3 = conexao.execute("SELECT * FROM sessoes WHERE ses_id='"&tsessao&"'") 'esta linha serve apenas para edição. remover após terminar.%>
 Home » <%=rs3("ses_nome")%> <%if tcategoria <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&tcategoria&"'") response.write "» " & rs2("cat_nome") &"" end if %> <%if tsubcategoria <> "" then set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_id='"&tsubcategoria&"'") response.write " » " & rs4("sub_nome") &"" end if %> | <%=rs.recordcount%> produtos. Página <%=intpagina%> de <%=rs.pagecount%>
<%While intrec < rs.PageSize and not rs.EOF 'validar promoção! Verifica se ainda é válida! set promov = conexao.execute("SELECT * FROM promocao WHERE produto='"&rs("id")&"' and ativo='s'") if not promov.eof then verificar = DateDiff("d", date, promov("data_final")) if verificar < 0 then conexao.execute("UPDATE promocao SET ativo='n' WHERE produto='"&rs("id")&"'") end if end if promov.close set promov=nothing %>
  • <% preco = formatnumber(fnc_pdt_preco(rs("moeda"), rs("preco"), cotacao_dia),2) set promo = conexao.execute("SELECT * FROM promocao WHERE produto='"&rs("id")&"' and ativo='s'") if promo.eof or promo.bof then por =0 else por = desconto(preco,promo("desconto")) end if %> &produto=<%=rs("id")%>');" onMouseOut="mOut(this,'')" width="100%" align="center" height="246" > <%if calcular_parcela = "s" then if por <> "" then response.write parcela(por, parcelas, minima) else response.write parcela(preco, parcelas, minima) end if end if%>
    <%=img_promo(rs("id"))%><% If len(cstr(rs("foto1")))<3 or rs("foto1") = "grande.gif" then foto1="pequena.gif" else foto1=rs("foto1") end if%>
    <%=rs("nome")%>
    <%if por <> "" and por <> 0 then%> De <%= moeda & " " & preco%>
    Por <%= moeda & " " & por%> à vista <%else%> Apenas <%= moeda & " " & preco%> à vista <%end if%>
  • <% rs.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF rs.EOF then response.write " " END IF Wend%>
    <% IF (intpagina) <> 0 then %> Página: <% for i = 1 to RS.PageCount if ssubcategoria<>"" then%> <% end if if scategoria<>"" then%> <% end if if ssessao<>"" then%> <% end if %> <%if 1 + i - 1 = 1 + intpagina - 1 then response.write "" end if%> [ <%Response.Write i%> ] <%if 1 + i - 1 = 1 + intpagina - 1 then response.write "" end if%>   <%next%> <% END IF %>
    <%END IF Desconectar%>