<% nArea = Request.QueryString("area") ' SE FOR ESCOLHIDO LOCAL ONLINE, REDICIONAR PARA LOJA DA REDE. If nArea = 2 then nArea = 1 End If Select Case nArea Case 1: ' LOJAS DA REDE ' 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 sEstiloBarra = "BarraLojasRede" sEstiloTitulo = "TituloLojasRede" sEstiloLink = "CapaLinkLojasRede" sEstiloCapa = "CapaLojasRede" sNavegacao = "Lojas Rede" Case 2: ' LOJA VIRTUAL: LOCAÇÃO ON-LINE lLojaVirtual = True ' Indica que estamos na Área da Loja Virtual lLojaVirtualLocacao = True ' Indica que estamos na Loja Virtual - Locação lLojaVirtualVendas = False ' Indica que estamos na Loja Virtual - Vendas lLojaRede = False ' Indica que estamos na Área da Lojas da Rede' sEstiloBarra = "BarraLocacaoOnline" sEstiloTitulo = "TituloLocacao" sEstiloLink = "CapaLinkLocacaoOnline" sEstiloCapa = "CapaLocacaoOnline" sNavegacao = "Loja Virtual > Locação on-line" Case 3,4,5,6: ' LOJA VIRTUAL: VENDA 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" sEstiloCapa = "CapaVendas" sNavegacao = "Loja Virtual > Venda" End Select 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 %>
<% sPalavra = LimpaLixo(Trim(Request.QueryString("palavra"))) nTipo = Request.QueryString("tipo") if nArea <> 4 then Select Case nTipo Case 1: sLegenda = "filme" Case 2: sLegenda = "ator" Case 3: sLegenda = "diretor" End Select end if nQtdPorPagina = 16 nNumPorLinha = 4 nPaginaAtual = Cint(Request.Querystring("pagina")) sNomePagina = Request.ServerVariables("script_name") Select Case nArea Case 1 '// LOJAS REDE sQueryBase = " FROM TbCatalogos " &_ " WHERE TemCopia=1 AND IntCodGenero NOT IN (7,19) " If nTipo = 1 Then sQueryBase = sQueryBase & " AND StrTituloPort Like '%" & sPalavra & "%'" ElseIf nTipo = 2 Then sQueryBase = sQueryBase & " AND StrAtores Like '%" & sPalavra & "%'" ElseIf nTipo = 3 Then sQueryBase = sQueryBase & " AND StrDiretor Like '%" & sPalavra & "%'" End If sQuery = " SELECT IntCodCatalogo,LOWER(StrTituloPort) as StrTituloPort " & sQueryBase & " ORDER BY Intordemlanc,StrTituloPort" sQueryContar = " SELECT COUNT(IntCodCatalogo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoRede Case 2 '// LOCACAÇÃO ON-LINE nOpcao = Request.Querystring("fOpcao") If Vazio(nOpcao) Then nOpcao = 1 If nOpcao = 1 Then sQueryBase = " FROM TbCatalogos " &_ " WHERE TbCatalogos.StrLojaWeb = 1 " &_ " AND TbCatalogos.TemCopia=1 AND TbCatalogos.IntCodGenero NOT IN (7,19) " Else sQueryBase = " FROM TbCatalogos INNER JOIN TbCopias " &_ " ON TbCatalogos.IntCodCatalogo = TbCopias.IntCodCatalogo " &_ " WHERE TbCatalogos.StrLojaWeb = 1 " &_ " AND TbCatalogos.TemCopia=1 AND TbCatalogos.IntCodGenero NOT IN (7,19) " &_ " AND TbCopias.IntQtDvd > 0 " &_ " AND TbCopias.IntTotDvd > 0 " End If If nTipo = 1 Then sQueryBase = sQueryBase & " AND TbCatalogos.StrTituloPort Like '%" & sPalavra & "%'" ElseIf nTipo = 2 Then sQueryBase = sQueryBase & " AND TbCatalogos.StrAtores Like '%" & sPalavra & "%'" ElseIf nTipo = 3 Then sQueryBase = sQueryBase & " AND TbCatalogos.StrDiretor Like '%" & sPalavra & "%'" End If sQuery = " SELECT IntCodCatalogo,LOWER(StrTituloPort) as StrTituloPort " & sQueryBase & " ORDER BY Intordemlanc,StrTituloPort" sQueryContar = " SELECT COUNT(TbCatalogos.IntCodCatalogo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoLocacao Case 3 '// VENDA DVD sQueryBase = " 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) " &_ " ) " If nTipo = 1 Then sQueryBase = sQueryBase & " AND (" &_ " (TbProdutoVenda.Descricao Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbProdutoVenda.Descricao,4) IN ('bx -','cl -') AND TbProdutoVenda.Atores Like '%" & sPalavra & "%') " &_ " )" ElseIf nTipo = 2 Then sQueryBase = sQueryBase & " AND (" &_ " (TbCatalogos.StrAtores Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbProdutoVenda.Descricao,4) NOT IN ('bx -','cl -') AND TbProdutoVenda.Atores Like '%" & sPalavra & "%') " &_ " )" ElseIf nTipo = 3 Then sQueryBase = sQueryBase & " AND TbCatalogos.StrDiretor Like '%" & sPalavra & "%'" sQueryBase = sQueryBase & " AND (" &_ " (TbCatalogos.StrDiretor Like '%" & sPalavra & "%') " &_ " OR " &_ " (TbProdutoVenda.Diretor Like '%" & sPalavra & "%') " &_ " )" End If sQuery = " SELECT TbProdutoVenda.Codigo,TbProdutoVenda.IntCodCatalogo,LOWER(TbProdutoVenda.Descricao) as Descricao,Preco,Qtd_Estoque " & sQueryBase & " ORDER BY TbProdutoVenda.Descricao" sQueryContar = " SELECT Count(TbProdutoVenda.Codigo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoVendaDVD Case 4 '// CONVENIÊNCIA sQueryBase = " 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 ( " &_ " (TbProdutoVenda.Descricao Like '%" & sPalavra & "%') " &_ " ) " sQuery = " SELECT Codigo,IntCodCatalogo,LOWER(Descricao) as Descricao,Preco,Qtd_Estoque " & sQueryBase & " ORDER BY Descricao" sQueryContar = " SELECT Count(Codigo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoVenda sTipoOperacao = "fIdTipoOperacao=2" Case 5 '// VENDA DVD SEMINOVOS sQueryBase = " 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 (227,226) " &_ " ) " &_ " UNION " &_ " SELECT cod_categoria " &_ " FROM categoria " &_ " WHERE cod_pai In (6) and cod_categoria not in (227,226) AND Qtd_Estoque > 0 " &_ " ) " If nTipo = 1 Then sQueryBase = sQueryBase & " AND (" &_ " (TbSemiNovos.Descricao Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbSemiNovos.Descricao,4) IN ('bx -','cl -') AND TbSemiNovos.Atores Like '%" & sPalavra & "%') " &_ " )" ElseIf nTipo = 2 Then sQueryBase = sQueryBase & " AND (" &_ " (TbCatalogos.StrAtores Like '%" & sPalavra & "%') " &_ " OR " &_ " (Left(TbSemiNovos.Descricao,4) NOT IN ('bx -','cl -') AND TbSemiNovos.Atores Like '%" & sPalavra & "%') " &_ " )" ElseIf nTipo = 3 Then sQueryBase = sQueryBase & " AND TbCatalogos.StrDiretor Like '%" & sPalavra & "%'" sQueryBase = sQueryBase & " AND (" &_ " (TbCatalogos.StrDiretor Like '%" & sPalavra & "%') " &_ " OR " &_ " (TbSemiNovos.Diretor Like '%" & sPalavra & "%') " &_ " )" End If sQuery = " SELECT TbSemiNovos.Codigo,TbSemiNovos.IntCodCatalogo,LOWER(TbSemiNovos.Descricao) as Descricao,Preco,Qtd_Estoque " & sQueryBase & " ORDER BY TbSemiNovos.Descricao" sQueryContar = " SELECT Count(TbSemiNovos.Codigo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoVendaDVD sTipoOperacao = "fIdTipoOperacao=3" Case 6 '// VENDA LIVROS sQueryBase = " 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) " If nTipo = 1 Then sLegenda = "Titulo" sQueryBase = sQueryBase & " AND (" &_ " (TbLivrosVenda.Descricao Like '%" & sPalavra & "%')) " ElseIf nTipo = 2 Then sLegenda = "Autor" sQueryBase = sQueryBase & " AND (" &_ " (TbLivrosVenda.Autor_completo Like '%" & sPalavra & "%')) " ElseIf nTipo = 3 Then sLegenda = "Tema" sQueryBase = sQueryBase & " AND TbLivrosVenda.Tema Like '%" & sPalavra & "%'" End If sQuery = " SELECT TbLivrosVenda.Codigo,LOWER(TbLivrosVenda.Descricao) as Descricao,Preco,Qtd_Estoque,Cod_Categoria as Categoria " & sQueryBase & " ORDER BY TbLivrosVenda.Descricao" sQueryContar = " SELECT Count(TbLivrosVenda.Codigo) AS QTD" & sQueryBase sCaminhoNaoEncontrado = sCaminhoNaoEncontradoVenda sTipoOperacao = "fIdTipoOperacao=4" End Select nQtdPagina = ContarPaginas(sQueryContar,nQtdPorPagina) nQtdReg = ContarRegistros(sQueryContar) If Not Vazio(nTipo) Then sNomePagina = sNomePagina & "?palavra=" & Server.URLEncode(sPalavra) & "&area=" & nArea & "&tipo=" & nTipo Else sNomePagina = sNomePagina & "?palavra=" & Server.URLEncode(sPalavra) & "&area=" & nArea End If If Not Vazio(nOpcao) Then sNomePagina = sNomePagina & "&fOpcao=" & nOpcao End If If nPaginaAtual < 1 Then nPaginaAtual = 1 If nPaginaAtual > nQtdPagina Then nPaginaAtual = nQtdPagina %>
Resultado: <%=nQtdReg%> itens encontrados <%If Not Vazio(sLegenda) Then%>com <%=sLegenda%> <%Else%>a palavra <%End If%> "<%=sPalavra%>"
Você está aqui: Home > <%=sNavegacao%> > Resultado da pesquisa
 
<% If nQtdPagina > 1 Then %> <% End If %>
<% If nArea = 2 Then %> <% End If %>

Exibindo :

 Página <%=nPaginaAtual%> de <%=nQtdPagina%>.
checked<%End If%> onClick="window.location='busca_refinada.asp?palavra=<%=sPalavra%>&tipo=<%=nTipo%>&area=<%=nArea%>&fOpcao=1'"> Todos checked<%End If%> onClick="window.location='busca_refinada.asp?palavra=<%=sPalavra%>&tipo=<%=nTipo%>&area=<%=nArea%>&fOpcao=2'"> Disponíveis
<% 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 If (nArea = 1 OR nArea = 2) Then sCapa = Right("000" & oRS("IntCodCatalogo"),6) sURL = "/filmes/index.asp?fCodigo=" & oRS("IntCodCatalogo") & "&fArea=" & nArea sTitulo = oRS("StrTituloPort") sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" If nArea = 1 Then If Left(sTitulo,5) = "dvd -" Then sTitulo = "dvd - " & Mid(sTitulo,7,Len(sTitulo)) sBlu = 0 sEstiloCapa = "CapaLojasRede" elseIf Left(sTitulo,5) = "blu -" Then sTitulo = "Blu-Ray - " + Mid(sTitulo,7,Len(sTitulo)) sCaminhoFoto = sCaminhoBlu & sCapa & ".jpg" sEstiloCapa = "CapaLojasBlu" sBlu = 1 End If End If If nArea= 2 Then If Left(sTitulo,5) = "dvd -" Then sTitulo = "dvd - " & Mid(sTitulo,7,Len(sTitulo)) sBlu = 0 sEstiloCapa = "CapaLojasRede" elseIf Left(sTitulo,5) = "blu -" Then sTitulo = "Blu-Ray - " + Mid(sTitulo,7,Len(sTitulo)) sCaminhoFoto = sCaminhoBlu & sCapa & ".jpg" sEstiloCapa = "CapaLojasBlu" sBlu = 1 End If End If Else If (nArea = 4) Then sURL = "/loja_virtual/produtos/index.asp?fCodigo=" & oRS("Codigo") & "&fArea=4" sCaminhoFoto = sCaminhoProduto & oRS("Codigo") & ".gif" sEstiloCapa = "ProdutosVendas" sTitulo = oRS("Descricao") sComplemento = "CONVENIÊNCIA" If CInt(oRS("Qtd_Estoque")) > 0 Then sBotaoVenda = "botao_comprar.gif" sAltVenda = "Comprar" lTemLink = True Else sBotaoVenda = "botao_em_falta.gif" sAltVenda = "Produto em falta" lTemLink = False End If ElseIf (nArea = 6) Then sURL = "/loja_virtual/venda/livros/livro_detalhe.asp?fCodigo=" & oRS("Codigo") & "&fArea=6" sCaminhoFoto = sCaminholivro & oRS("Codigo") & ".gif" sEstiloCapa = "ProdutosVendas" sTitulo = oRS("Descricao") nCategoria = oRS("Categoria") if CInt(nCategoria) = 19 then sComplemento = "" else sComplemento = "LIVRO" end if If CInt(oRS("Qtd_Estoque")) > 0 Then sBotaoVenda = "botao_comprar.gif" sAltVenda = "Comprar" lTemLink = True Else sBotaoVenda = "botao_em_falta.gif" sAltVenda = "Produto em falta" lTemLink = False End If Else sURL = "/filmes/index.asp?fCodigo=" & oRS("Codigo") & "&fArea=" & nArea If (nArea = 5)then sCapa = Right("000" & oRS("IntCodCatalogo"),6) sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" sEstiloCapa = "CapaVendas" Else 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 End If sTitulo = oRS("Descricao") If UCase(Left(sTitulo,4)) = "BX -" Then sTitulo = "Box " & Mid(sTitulo,6,Len(sTitulo)) ElseIf UCase(Left(sTitulo,4)) = "CL -" Then sTitulo = "Coleção " & Mid(sTitulo,6,Len(sTitulo)) ElseIf UCase(Left(sTitulo,4)) = "ST -" Then sTitulo = "Série " & Mid(sTitulo,6,Len(sTitulo)) ElseIf UCase(Left(sTitulo,4)) = "MS -" Then sTitulo = "Minissérie " & Mid(sTitulo,6,Len(sTitulo)) End If If CInt(oRS("Qtd_Estoque")) > 0 Then If (nArea = 3) Then sBotaoVenda = "botao_comprar.gif" ElseIf (nArea = 5) Then sBotaoVenda = "botao/comprar_seminovos.gif" sTipoOperacao = "fIdTipoOperacao=3" Elseif (nArea = 6) Then sTipoOperacao = "fIdTipoOperacao=4" Elseif (nArea = 4) Then sTipoOperacao = "fIdTipoOperacao=2" End If sAltVenda = "Comprar" lTemLink = True Else sBotaoVenda = "botao_avise.gif" sAltVenda = "Produto em falta" lTemLink = False End If End If 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 sBlu = 1 then%> <%End if%> <% If nArea = 2 Then If FilmeLocado(oRS("IntCodCatalogo")) Then %> <% Else %> <% End If ElseIf (nArea = 3 OR nArea = 4 OR nArea = 5 OR nArea = 6) Then If Not Vazio(oRS("Preco")) Then If CCur(oRS("Preco")) > 0 Then If lTemLink Then %> <% End If %> <% End If End If End If %>
<%If TemFoto(sCaminhoFoto) Then%> <%=sTitulo%> <% Else%> <%End If%>
<%=sComplemento%>
<%=sTitulo%>
Alugado
">Alugar
R$ <%=FormatNumber(oRS("Preco"),2)%>
<%If lTemLink Then%>&fQtdProduto=1&<%=sTipoOperacao%>"><%End If%><%=sAltVenda%><%If lTemLink Then%><%End If%>
Nenhum título encontrado
 
<%Paginacao nPaginaAtual,nQtdPagina,nQtdPorPagina,sNomePagina%>