<% masterp = master("master_quantidade_sjuros") masterpm = master("master_parcela_minima") visap = visa("visa_quantidade_sjuros") visapm = visa("visa_parcela_minima") if visa("visa_utilizar") = "Sim" then visa = "sim" calcular_parcela = "s" else visa = "nao" end if if master("master_utilizar") = "Sim" then master = "sim" calcular_parcela = "s" else master = "nao" end if if master = "sim" and visa = "sim" 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 = "sim" and visa = "nao" then cartao = "Mastercard" parcelas = masterp minima = masterpm elseif master = "nao" and visa = "sim" then cartao = "Visa" parcelas = visap minima = visapm end if end if %> <%=loja("nome_loja") &" - "& loja("slogan_loja")%>
<% categoria = request("categoria") Set rs = Server.CreateObject("adodb.recordset") registroporpagina = 15 RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise. RS.CursorLocation = 3 RS.CacheSize = registroporpagina 'Vamos fazer a busca na tabela contatos if request("categoria") = "" then sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"'" elseif request("categoria") <> "" and request("subcategoria") = "" then sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"' and idcategoria='"&request("categoria")&"'" elseif request("categoria") <> "" and request("subcategoria") <> "" then sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"' and idcategoria='"&request("categoria")&"' and idsubcategoria='"&request("subcategoria")&"'" end if rs.Open sql,conexao,3 If rs.EOF Or rs.bof Then set rs3 = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'") %>
 Home » <%=rs3("nome")%> » <% if request("categoria") <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE idcategoria='"&request("categoria")&"'") response.write rs2("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 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 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage = intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE idsubcategoria='"&request("subcategoria")&"'") set rs3 = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'") 'esta linha serve apenas para edição. remover após terminar.%>
 Home » <%=rs3("nome")%> <%if request("categoria") <> "" then set rs2 = conexao.execute("SELECT * FROM categoria WHERE idcategoria='"&request("categoria")&"'") response.write "» " & rs2("nome") &"" end if %> <%if request("subcategoria") <> "" then set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE idsubcategoria='"&request("subcategoria")&"'") response.write " » " & rs4("nome") &"" end if %> | <%=rs.recordcount%> produtos. Página <%=intpagina%> de <%=rs.pagecount%>
<% 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%>
<%response.write google_analytics%> <%fecha_banco%>