<% nArea = 3 lLojaVirtual = True ' Indica que estamos na Área da Loja Virtual lLojaVirtualLocacao = False ' Indica que estamos na Loja Virtual - Locação lLojaVirtualVendas = True ' Indica que estamos na Loja Virtual - Vendas lLojaRede = False ' Indica que estamos na Área da Lojas da Rede sEstiloBarra = "BarraVendas" sEstiloTitulo = "TituloVendas" sEstiloLink = "CapaLinkVendas" sNavegacao = "Loja Virtual > Venda" lPromocoes = False ' Indica que deve aparece o quadro de promoções lHome = False ' Indica que estamos na Home Page do site Estilos lPromocoes, lLojaVirtualLocacao, lLojaVirtualVendas, lLojaVirtual, lLojaRede, lHome %>
<% nQtdPorPagina = 16 nNumPorLinha = 4 nPaginaAtual = Cint(Request.Querystring("pagina")) sNomePagina = Request.ServerVariables("script_name") sQueryBase = " FROM TbLivrosVenda " &_ " WHERE Lancamentos = 1 AND Cod_Categoria NOT IN (237,19) AND (Data_Cadastro > GETDATE() - 90)" sQuery = " SELECT Codigo,IntCodCatalogo, LOWER(Descricao) as Descricao,Preco,Qtd_Estoque " & sQueryBase & " ORDER BY Data_Cadastro DESC" sQueryContar = " SELECT Count(Codigo) AS QTD" & sQueryBase nQtdPagina = ContarPaginas(sQueryContar,nQtdPorPagina) nQtdReg = ContarRegistros(sQueryContar) sNomePagina = sNomePagina & "?fCategoria=" & nCodCategoria & "&area=" & nArea If nPaginaAtual < 1 Then nPaginaAtual = 1 If nPaginaAtual > nQtdPagina Then nPaginaAtual = nQtdPagina %>
Venda Livro - Lançamentos - <%=nQtdReg%> itens encontrados
Você está aqui: Home > Venda > Lançamentos
 
<% If nQtdPagina > 1 Then %> <% End If %>

Exibindo:

 Página <%=nPaginaAtual%> de <%=nQtdPagina%>.
<% Set oRS = ConexaoFox.Execute(sQuery) If Not oRS.EOF Then oRS.MoveFirst oRS.Move (nPaginaAtual - 1) * nQtdPorPagina x = 0 While Not oRS.EOF AND Cint(x) < CInt(nQtdPorPagina) If ((x) mod nNumPorLinha)=0 Then %> <% End If sURL = "/loja_virtual/venda/livros/livro_detalhe.asp?fCodigo=" & oRS("Codigo") & "&fArea=" & 6 sCapa = oRS("Codigo") sCaminhoFoto = sCaminhoLivro & sCapa & ".gif" sEstiloCapa = "ProdutosVendas" sDescricao = oRS("Descricao") %> <% If ((x+1) mod nNumPorLinha)= 0 Then %> <% End If x = x + 1 oRS.MoveNext Wend Else %> <% End If oRS.Close Set oRS = Nothing %>
<% If CInt(oRS("Qtd_Estoque")) > 0 Then If Not Vazio(oRS("Preco")) Then If CCur(oRS("Preco")) > 0 Then %> <% End If End If %> <% Else %> <% End If %>
<%If TemFoto(sCaminhoFoto) Then%><%=sTitulo%> <% Else%><%End If%>
<%=sDescricao%>
R$ <%=FormatNumber(oRS("Preco"),2)%>
&fQtdProduto=1&fIdTipoOperacao=4">Comprar
Produto em falta
Nenhum título encontrado
 
<%Paginacao nPaginaAtual,nQtdPagina,nQtdPorPagina,sNomePagina%>