<% nArea = Request.Form("area") sPalavra = LimpaLixo(Trim(Request("palavra"))) %> Foxvideo <% lPromocoes = False ' Indica que deve aparece o quadro de promoções lLojaVirtual = False ' Indica que estamos na Área da Loja Virtual lLojaVirtualLocacao = False ' Indica que estamos na Loja Virtual - Locação lLojaVirtualVendas = False ' Indica que estamos na Loja Virtual - Vendas lLojaRede = True ' Indica que estamos na Área da Lojas da Rede lHome = False ' Indica que estamos na Home Page do site Estilos lPromocoes, lLojaVirtualLocacao, lLojaVirtualVendas, lLojaVirtual, lLojaRede, lHome %>
Encontramos "<%=sPalavra%>" em:
Você está aqui: Home > Loja Virtual > Resultado da pesquisa
<% sQueryLojasRede = " SELECT Count(IntCodCatalogo) AS TOTAL " &_ " FROM TbCatalogos " &_ " WHERE TemCopia=1 AND IntCodGenero NOT IN (7,19) " sQueryLojasRedeFilme = sQueryLojasRede & " AND StrTituloPort Like '%" & sPalavra & "%'" sQueryLojasRedeDiretor = sQueryLojasRede & " AND StrDiretor Like '%" & sPalavra & "%'" sQueryLojasRedeAtores = sQueryLojasRede & " AND StrAtores Like '%" & sPalavra & "%'" If (nArea = "1" OR Vazio(nArea)) Then ' -- CONSULTAS DE LOJAS DA REDE Set oRSLojasRedeFilme = ConexaoFox.Execute(sQueryLojasRedeFilme) If Not oRSLojasRedeFilme.EOF Then nTotalLojasRedeFilme = oRSLojasRedeFilme("Total") Else nTotalLojasRedeFilme = 0 End If Set oRSLojasRedeFilme = Nothing Set oRSLojasRedeDiretor = ConexaoFox.Execute(sQueryLojasRedeDiretor) If Not oRSLojasRedeDiretor.EOF Then nTotalLojasRedeDiretor = oRSLojasRedeDiretor("Total") Else nTotalLojasRedeDiretor = 0 End If Set oRSLojasRedeDiretor = Nothing Set oRSLojasRedeAtores = ConexaoFox.Execute(sQueryLojasRedeAtores) If Not oRSLojasRedeAtores.EOF Then nTotalLojasRedeAtores = oRSLojasRedeAtores("Total") Else nTotalLojasRedeAtores = 0 End If Set oRSLojasRedeAtores = Nothing nTotalLojasRede = nTotalLojasRedeFilme + nTotalLojasRedeDiretor + nTotalLojasRedeAtores ' -- FIM DAS CONSULTAS DE LOJAS DA REDE End If If (nArea = "2" OR Vazio(nArea)) Then ' -- CONSULTAS DE LOCAÇÃO ON-LINE sQueryComplementoLocacao = " AND StrLojaWeb = 1 AND (StrDvd=1 or StrBlu=1)" sQueryLocacaoFilme = sQueryLojasRedeFilme & sQueryComplementoLocacao Set oRSLocacaoFilme = ConexaoFox.Execute(sQueryLocacaoFilme) If Not oRSLocacaoFilme.EOF Then nTotalLocacaoFilme = oRSLocacaoFilme("Total") Else nTotalLocacaoFilme = 0 End If Set oRSLocacaoFilme = Nothing sQueryLocacaoDiretor = sQueryLojasRedeDiretor & sQueryComplementoLocacao Set oRSLocacaoDiretor = ConexaoFox.Execute(sQueryLocacaoDiretor) If Not oRSLocacaoDiretor.EOF Then nTotalLocacaoDiretor = oRSLocacaoDiretor("Total") Else nTotalLocacaoDiretor = 0 End If Set oRSLocacaoDiretor = Nothing sQueryLocacaoAtores = sQueryLojasRedeAtores & sQueryComplementoLocacao Set oRSLocacaoAtores = ConexaoFox.Execute(sQueryLocacaoAtores) If Not oRSLocacaoAtores.EOF Then nTotalLocacaoAtores = oRSLocacaoAtores("Total") Else nTotalLocacaoAtores = 0 End If Set oRSLocacaoAtores = Nothing nTotalLocacao = nTotalLocacaoFilme + nTotalLocacaoDiretor + nTotalLocacaoAtores ' -- FIM DAS CONSULTAS DE LOCAÇÃO ON-LINE End If If (nArea = "3" OR Vazio(nArea)) Then ' -- CONSULTAS VENDA DE DVD sQueryVendaDVD = " SELECT Count(Codigo) AS TOTAL FROM TbProdutoVenda " &_ " LEFT JOIN TbCatalogos " &_ " ON TbProdutoVenda.IntCodCatalogo = TbCatalogos.IntCodCatalogo " &_ " WHERE TbProdutoVenda.cod_categoria In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (3,5) " &_ " ) " &_ " UNION " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (3,5) " &_ " ) " sQueryVendaDVDFilme = sQueryVendaDVD & " AND (" &_ " (TbProdutoVenda.Descricao Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbProdutoVenda.Descricao,4) IN ('bx -','cl -') AND TbProdutoVenda.Atores Like '%" & sPalavra & "%') " &_ " )" Set oRSVendaDVDFilme = ConexaoFox.Execute(sQueryVendaDVDFilme) If Not oRSVendaDVDFilme.EOF Then nTotalVendaDVDFilme = oRSVendaDVDFilme("Total") Else nTotalVendaDVDFilme = 0 End If Set oRSVendaDVDFilme = Nothing sQueryVendaDVDDiretor = sQueryVendaDVD & " AND (" &_ " (TbCatalogos.StrDiretor Like '%" & sPalavra & "%') " &_ " OR " &_ " (TbProdutoVenda.Diretor Like '%" & sPalavra & "%') " &_ " )" Set oRSVendaDVDDiretor = ConexaoFox.Execute(sQueryVendaDVDDiretor) If Not oRSVendaDVDDiretor.EOF Then nTotalVendaDVDDiretor = oRSVendaDVDDiretor("Total") Else nTotalVendaDVDDiretor= 0 End If Set oRSVendaDVDDiretor = Nothing sQueryVendaDVDAtores = sQueryVendaDVD & " AND (" &_ " (TbCatalogos.StrAtores Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbProdutoVenda.Descricao,4) NOT IN ('bx -','cl -') AND TbProdutoVenda.Atores Like '%" & sPalavra & "%') " &_ " )" Set oRSVendaDVDAtores = ConexaoFox.Execute(sQueryVendaDVDAtores) If Not oRSVendaDVDAtores.EOF Then nTotalVendaDVDAtores = oRSVendaDVDAtores("Total") Else nTotalVendaDVDAtores = 0 End If Set oRSVendaDVDAtores = Nothing nTotalVendaDVD = nTotalVendaDVDFilme + nTotalVendaDVDDiretor + nTotalVendaDVDAtores ' -- FIM DA CONSULTAS VENDA DE DVD End If If (nArea = "4" OR Vazio(nArea)) Then ' -- CONSULTA DE CONVENIÊNCIA sQueryConveniencia = " SELECT Count(Codigo) AS TOTAL FROM TbProdutoVenda " &_ " WHERE cod_categoria In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (1) " &_ " ) " &_ " UNION " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (1) AND Qtd_Estoque > 0 " &_ " ) AND ( " &_ " (Descricao Like '%" & sPalavra & "%') " &_ " ) " Set oRS = ConexaoFox.Execute(sQueryConveniencia) If Not oRS.EOF Then nTotalConveniencia = oRS("Total") Else nTotalConveniencia = 0 End If Set oRS = Nothing ' -- FIM DA CONSULTA DE CONVENIÊNCIA End If If (nArea = "5" OR Vazio(nArea)) Then ' -- CONSULTAS VENDA DE DVD - SEMINOVOS sQueryVendaSemiNovosDVD = " SELECT Count(Codigo) AS TOTAL FROM TbSemiNovos " &_ " LEFT JOIN TbCatalogos " &_ " ON TbSemiNovos.IntCodCatalogo = TbCatalogos.IntCodCatalogo " &_ " WHERE TbSemiNovos.cod_categoria In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (6) AND cod_categoria not in (226,227) " &_ " ) " &_ " UNION " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (6) AND cod_categoria not in (226,227) AND Qtd_Estoque > 0 " &_ " ) " sQueryVendaSemiNovosDVDFilme = sQueryVendaSemiNovosDVD & " AND (" &_ " (TbSemiNovos.Descricao Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbSemiNovos.Descricao,4) IN ('bx -','cl -') AND TbSemiNovos.Atores Like '%" & sPalavra & "%') " &_ " )" 'RESPONSE.WRITE(sQueryVendaSemiNovosDVDFilme) Set oRSVendaSemiNovosDVDFilme = ConexaoFox.Execute(sQueryVendaSemiNovosDVDFilme) If Not oRSVendaSemiNovosDVDFilme.EOF Then nTotalVendaSemiNovosDVDFilme = oRSVendaSemiNovosDVDFilme("Total") Else nTotalVendaSemiNovosDVDFilme = 0 End If Set oRSVendaSemiNovosDVDFilme = Nothing sQueryVendaSemiNovosDVDDiretor = sQueryVendaSemiNovosDVD & " AND (" &_ " (TbCatalogos.StrDiretor Like '%" & sPalavra & "%') " &_ " OR " &_ " (TbSemiNovos.Diretor Like '%" & sPalavra & "%') " &_ " )" Set oRSVendaSemiNovosDVDDiretor = ConexaoFox.Execute(sQueryVendaSemiNovosDVDDiretor) If Not oRSVendaSemiNovosDVDDiretor.EOF Then nTotalVendaSemiNovosDVDDiretor = oRSVendaSemiNovosDVDDiretor("Total") Else nTotalVendaSemiNovosDVDDiretor= 0 End If Set oRSVendaSemiNovosDVDDiretor = Nothing sQueryVendaSemiNovosDVDAtores = sQueryVendaSemiNovosDVD & " AND (" &_ " (TbCatalogos.StrAtores Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbSemiNovos.Descricao,4) NOT IN ('bx -','cl -') AND TbSemiNovos.Atores Like '%" & sPalavra & "%') " &_ " )" Set oRSVendaSemiNovosDVDAtores = ConexaoFox.Execute(sQueryVendaSemiNovosDVDAtores) If Not oRSVendaSemiNovosDVDAtores.EOF Then nTotalVendaSemiNovosDVDAtores = oRSVendaSemiNovosDVDAtores("Total") Else nTotalVendaSemiNovosDVDAtores = 0 End If Set oRSVendaSemiNovosDVDAtores = Nothing nTotalVendaSemiNovosDVD = nTotalVendaSemiNovosDVDFilme + nTotalVendaSemiNovosDVDDiretor + nTotalVendaSemiNovosDVDAtores ' -- FIM DA CONSULTAS VENDA DE DVD SEMINOVOS End If ' -- INICIO DA CONSULTA DE LIVROS ' If (nArea = "6" OR Vazio(nArea)) Then ' -- CONSULTAS VENDA DE LIVROS ' sQueryVendaLivros = " SELECT Count(Codigo) AS TOTAL FROM TbLivrosVenda " &_ " WHERE TbLivrosVenda.cod_categoria In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In ( " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (4) " &_ " ) " &_ " UNION " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (4) " &_ " ) AND cod_categoria Not In(237) " sQueryVendaLivrosDescricao = sQueryVendaLivros & " AND (" &_ " (TbLivrosVenda.Descricao Like '%" & sPalavra & "%')) " Set oRSVendaLivrosDescricao = ConexaoFox.Execute(sQueryVendaLivrosDescricao) If Not oRSVendaLivrosDescricao.EOF Then nTotalVendaLivrosDescricao = oRSVendaLivrosDescricao("Total") Else nTotalVendaLivrosDescricao = 0 End If Set oRSVendaLivrosDescricao = Nothing sQueryVendaLivrosTema = sQueryVendaLivros & " AND (" &_ " (TbLivrosVenda.Tema Like '%" & sPalavra & "%') )" Set oRSVendaLivrosTema = ConexaoFox.Execute(sQueryVendaLivrosTema) If Not oRSVendaLivrosTema.EOF Then nTotalVendaLivrosTema = oRSVendaLivrosTema("Total") Else nTotalVendaLivrosTema= 0 End If Set oRSVendaLivrosTema = Nothing sQueryVendaLivrosAutor = sQueryVendaLivros & " AND (" &_ " (TbLivrosVenda.Autor_Completo Like '%" & sPalavra & "%') )" Set oRSVendaLivrosAutor = ConexaoFox.Execute(sQueryVendaLivrosAutor) If Not oRSVendaLivrosAutor.EOF Then nTotalVendaLivrosAutor = oRSVendaLivrosAutor("Total") Else nTotalVendaLivrosAutor= 0 End If Set oRSVendaLivrosAutor = Nothing nTotalVendaLivros = nTotalVendaLivrosDescricao + nTotalVendaLivrosAutor + nTotalVendaLivrosTema ' -- FIM DA CONSULTA DE LIVROS End If %>
Foram encontrados ocorrências nas opções abaixo:
<% If nTotalLojasRede > 0 Then %> <% End If If nTotalVendaDVD > 0 Then %> <% End If If nTotalVendaLivros > 0 Then %> <% End If If (nTotalLojasRede = 0) AND (nTotalLocacao = 0) AND (nTotalVendaDVD = 0) AND (nTotalVendaSemiNovosDVD = 0) AND (nTotalConveniencia = 0) AND (nTotalVendaLivros = 0) Then %> <% End If %>

LOJAS DA REDE - Filmes disponíveis para locação nas lojas Fox

Filmes: <%=nTotalLojasRedeFilme%> ocorrência(s)
Atores: <%=nTotalLojasRedeAtores%> ocorrência(s)
Diretores: <%=nTotalLojasRedeDiretor%> ocorrência(s)
 

LOJA VIRTUAL - Venda DVD, BLU-RAY e CD

Filmes: <%=nTotalVendaDVDFilme%> ocorrência(s)
Atores: <%=nTotalVendaDVDAtores%> ocorrência(s)
Diretores: <%=nTotalVendaDVDDiretor%> ocorrência(s)
 

LOJA VIRTUAL - Venda de LIVROS

Descrição: <%=nTotalVendaLivrosDescricao%> ocorrência(s)
Autor: <%=nTotalVendaLivrosAutor%> ocorrência(s)
Tema: <%=nTotalVendaLivrosTema%> ocorrência(s)
 
 
Nenhum item encontrado com a palavra pesquisada.
 
Verifique se você digitou corretamente e faça uma nova busca.
  • Acentos ou "ç" não devem ser digitados.
  • Caso exista, o artigo inicial do título do filme não deve ser digitado
  •  
     
     
    Não encontrou seu produto nesta pesquisa?