<% Conectar categoria = request("categoria") 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 request("categoria") = "" then sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and visivel='s'" elseif request("categoria") <> "" and request("subcategoria") = "" then sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and categoria='"&request("categoria")&"' and visivel='s'" elseif request("categoria") <> "" and request("subcategoria") <> "" then sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and categoria='"&request("categoria")&"' and subcategoria='"&request("subcategoria")&"' 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='"&request("id")&"'") %>
 Home » <%=rs3("ses_nome")%> » <% if request("categoria") <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&request("categoria")&"'") 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='"&request("subcategoria")&"'") set rs3 = conexao.execute("SELECT * FROM sessoes WHERE ses_id='"&request("id")&"'") 'esta linha serve apenas para edição. remover após terminar.%>
 Home » <%=rs3("ses_nome")%> <%if request("categoria") <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&request("categoria")&"'") response.write "» " & rs2("cat_nome") &"" end if %> <%if request("subcategoria") <> "" then set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_id='"&request("subcategoria")&"'") 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" > <%if calcular_parcela = "s" then if por <> 0 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")%>
    <%=exibe_fabricante(rs("fabricante"))%>
    <%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 %> &categoria=<%=request("categoria")%>&subcategoria=<%=request("subcategoria")%>&pagina=<%=i%>"> <%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%>
<%= google_analytics()%>