<% 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 TbProdutoVenda " &_ " WHERE (Id_Promocao_COMEMORATIVO = 4 Or Id_Promocao_VENDA = 4 Or INFORMACOESdvd = 'PARAENSE') AND Secao = 'LOJA_DVD' " 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 %>
dvd novos - Artistas Paraenses - <%=nQtdReg%> itens encontrados
Você está aqui: Home > Venda > Artistas Paraenses
 
<% 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 = "/filmes/index.asp?fCodigo=" & oRS("Codigo") & "&fArea=" & nArea sCapa = oRS("Codigo") sCaminhoFoto = sCaminhoProduto & sCapa & ".gif" If Not TemFoto(sCaminhoFoto) Then sCapa = Right("000" & oRS("IntCodCatalogo"),6) sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" sEstiloCapa = "CapaVendas" Else sEstiloCapa = "ProdutosVendas" End If sTitulo = oRS("Descricao") If UCase(Left(sTitulo,4)) = "BX -" Then sTitulo = "Box " & Mid(sTitulo,6,Len(sTitulo)) End If If UCase(Left(sTitulo,4)) = "CL -" Then sTitulo = "Coleção " & Mid(sTitulo,6,Len(sTitulo)) End If If UCase(Left(sTitulo,4)) = "ST -" Then sTitulo = "Série " & Mid(sTitulo,6,Len(sTitulo)) End If If UCase(Left(sTitulo,4)) = "MS -" Then sTitulo = "Minissérie " & Mid(sTitulo,6,Len(sTitulo)) End If %> <% 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%>
<%=sTitulo%>
R$ <%=FormatNumber(oRS("Preco"),2)%>
&fQtdProduto=1">Comprar
Produto em falta
Nenhum título encontrado
 
<%Paginacao nPaginaAtual,nQtdPagina,nQtdPorPagina,sNomePagina%>