<% nArea = Request.QueryString("fArea") If nArea = 2 Then nArea = 1 sCodigoProduto = Request.QueryString("fCodigo") 'response.write(scodigoproduto) & "codigo poduto" nNumPorLinha = 4 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 = True ' Indica que estamos na Loja Virtual - Vendas lLojaRede = True ' Indica que estamos na Área da Lojas da Rede sEstiloBarra = "BarraLojasRede" sEstiloTitulo = "TituloLojasRede" sNavegacao = "Lojas Rede" sCaminhoNaoEncontrado = sCaminhoNaoEncontradoRede 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 = True ' Indica que estamos na Loja Virtual - Vendas lLojaRede = False ' Indica que estamos na Área da Lojas da Rede sEstiloBarra = "BarraLocacaoOnline" sEstiloTitulo = "TituloLocacao" sNavegacao = "Loja Virtual > Locação on-line" sCaminhoNaoEncontrado = sCaminhoNaoEncontradoLocacao Case 3,4,5: ' 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" sNavegacao = "Loja Virtual > Venda" sCaminhoNaoEncontrado = sCaminhoNaoEncontradoVendaDVD 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 %>
<% ' SELECIONA A QUERY A SER USADA, DEPENDENDO DA ÁREA QUE O FILME PERTENCE If (nArea = 1) Then sQuery = " SELECT C.*, LOWER(C.StrTituloPort) as StrTituloPort, LOWER(C.StrTituloOrigem) as StrTituloOrigem, G.StrDescGenero, C.StrBlu, C.Comentarios " &_ " FROM TbCatalogos AS C " &_ " INNER JOIN TbGeneros AS G " &_ " ON C.IntCodGenero = G.IntCodGenero " &_ " AND C.IntCodCatalogo='" & sCodigoProduto & "'" sBotaoOpcoes = "opcoes_produto_verde.gif" ElseIf (nArea = 2) Then sQuery = " SELECT C.*, LOWER(SUBSTRING(C.StrTituloPort,7,LEN(C.StrTituloPort))) as StrTituloPort, SUBSTRING(C.StrTituloOrigem,7,LEN(C.StrTituloOrigem)) as StrTituloOrigem, G.StrDescGenero " &_ " FROM TbCatalogos AS C " &_ " INNER JOIN TbGeneros AS G " &_ " ON C.IntCodGenero = G.IntCodGenero " &_ " AND C.IntCodCatalogo='" & sCodigoProduto & "'" sBotaoOpcoes = "opcoes_produto_azul.gif" ElseIf (nArea = 5) Then ' PRODUTOS SEMI-NOVOS sQuery = " SELECT LOWER(S.Descricao) AS Descricao,S.Complemento,S.InformacoesDVD,S.Cod_Categoria,S.Preco,S.Diretor,S.Atores,S.Pais,S.Tipo_Produto,S.IntCodCatalogo as Cod_Relacionado,S.Codigo,S.Sinopse as SinopseVenda,S.Mais_Informacoes, CAT.descricao AS categoria,C.* " &_ " FROM TbSemiNovos As S" &_ " LEFT JOIN tbCatalogos As C" &_ " On S.IntCodCatalogo = C.IntCodCatalogo" &_ " INNER JOIN categoria as CAT " &_ " On S.Cod_Categoria = CAT.cod_categoria" &_ " WHERE S.Codigo = '" & sCodigoProduto & "'" sBotaoOpcoes = "opcoes_produto_vermelho.gif" Else sQuery = " SELECT LOWER(V.Descricao) AS Descricao,V.Complemento,V.InformacoesDVD,V.Cod_Categoria,V.Preco,V.Diretor,V.Atores,V.Pais,V.Tipo_Produto,V.IntCodCatalogo as Cod_Relacionado,V.Codigo,V.Sinopse as SinopseVenda,V.Mais_Informacoes, CAT.descricao AS categoria,C.* " &_ " FROM TbProdutoVenda As V" &_ " LEFT JOIN tbCatalogos As C" &_ " On V.IntCodCatalogo = C.IntCodCatalogo" &_ " INNER JOIN categoria as CAT " &_ " On V.Cod_Categoria = CAT.cod_categoria" &_ " WHERE V.Codigo = '" & sCodigoProduto & "'" sBotaoOpcoes = "opcoes_produto_vermelho.gif" End If 'response.write(sQuery)' Set oRS = ConexaoFox.Execute(sQuery) If Not oRS.EOF Then sCapa = Right("000" & oRS("IntCodCatalogo"),6) If (nArea = 1) OR (nArea = 2) Then sTitulo = oRS("StrTituloPort") sTituloOriginal = oRS("StrTituloOrigem") nCodGenero = oRS("IntCodGenero") sGenero = oRS("StrDescGenero") if oRS("StrBlu")=1 then sCaminhoFoto = sCaminhoBlu & sCapa & ".jpg" sBlu = True else sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" end if sCodigoProdutoVenda = RecuperaCodigoProdutoVenda(sCodigoProduto) sCodigoProdutoVendaSemiNovos = RecuperaCodigoSemiNovos(sCodigoRelacionado) 'response.write(scodigoProdutoVendaSemiNovos) & "codigopodutoseminovo" sCodigoRelacionado = oRS("IntCodCatalogo") Else sTitulo = oRS("Descricao") sTituloOriginal = UCase(oRS("Complemento")) sInformacoesDVD = oRS("InformacoesDVD") sMaisInformacoes = oRS("Mais_Informacoes") sSinopseVenda = oRS("SinopseVenda") nCodGenero = oRS("cod_categoria") sGenero = oRS("categoria") sCodigoRelacionado = oRS("Cod_Relacionado") sCodigoProdutoVenda = oRS ("Codigo") If nArea = 5 Then sCodigoProdutoVendaSemiNovos = sCodigoProduto If (Not Vazio(sCodigoRelacionado) AND (sCodigoRelacionado <> 0)) Then sCodigoProdutoVenda = RecuperaCodigoProdutoVenda(sCodigoRelacionado) Else sCodigoProdutoVendaSemiNovos = RecuperaCodigoSemiNovos(sCodigoRelacionado) If (Not Vazio(sCodigoRelacionado) AND (sCodigoRelacionado <> 0)) Then sCodigoProdutoVenda = sCodigoProduto End If If Not Vazio(oRS("Cod_Relacionado")) Then sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" Else sCaminhoFoto = sCaminhoProduto & oRS("Codigo") & ".gif" sCodigoRelacionado = "000" ' não existe na tb_catalogo End If sCapa = oRS("Codigo") If Not Vazio(oRS("Cod_Relacionado")) and nArea <> 5 Then sCaminhoFoto = sCaminhoProduto & sCapa & ".gif" End If If Not TemFoto(sCaminhoFoto) Then sCapa = Right("000" & oRS("IntCodCatalogo"),6) sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" Else sEstiloCapa = "ProdutosVendas" End If ' response.Write(scaminhofoto) End If If nCodGenero < 9 Then nCodGenero = "0" & nCodGenero Else nCodGenero = CStr(nCodGenero) End If If Not Vazio(oRS("IntCodCatalogo")) Then sDiretor = UCase(oRS("StrDiretor")) sAtores = Ucase(oRS("StrAtores")) sTempo = oRS("TempoDuracao") sPaisProducao = oRS("StrPaisProducao") Else sDiretor = oRS("Diretor") sAtores = oRS("Atores") sTempo = oRS("TempoDuracao") sPaisProducao = oRS("Pais") End If If Left(sTitulo,5) = "dvd -" Then sTitulo = Mid(sTitulo,7,Len(sTitulo)) sTituloOriginal = UCase(Mid(sTituloOriginal,7,Len(sTituloOriginal))) elseIf Left(sTitulo,5) = "blu -" Then sTitulo = "Blu-Ray - " + Mid(sTitulo,7,Len(sTitulo)) sTituloOriginal = "Blu-Ray - " + Mid(sTituloOriginal,7,Len(sTituloOriginal)) else If UCase(Left(sTitulo,4)) = "BX -" Then sTitulo = "Box -" & Mid(sTitulo,6,Len(sTitulo)) sTituloOriginal = "Box -" & Mid(sTituloOriginal,6,Len(sTituloOriginal)) End If If UCase(Left(sTitulo,4)) = "CL -" Then sTitulo = "Coleção " & Mid(sTitulo,6,Len(sTitulo)) sTituloOriginal = "Coleção " & Mid(sTituloOriginal,6,Len(sTituloOriginal)) End If If UCase(Left(sTitulo,4)) = "ST -" Then sTitulo = "Série " & Mid(sTitulo,6,Len(sTitulo)) sTituloOriginal = "Série " & Mid(sTituloOriginal,6,Len(sTituloOriginal)) End If If UCase(Left(sTitulo,4)) = "MS -" Then sTitulo = "Minissérie " & Mid(sTitulo,6,Len(sTitulo)) sTituloOriginal = "Minissérie " & Mid(sTituloOriginal,6,Len(sTituloOriginal)) End If End If aAtores = Split(sAtores,",") sAtores = "" If nCodgenero = 19 OR nCodGenero = 7 OR nCodGenero = (227)Then For x=0 to Ubound(aAtores) sAtores = sAtores & "" & aAtores(x) & "" & "
" Next Else For x=0 to Ubound(aAtores) sAtores = sAtores & "" & aAtores(x) & "" & "
" Next End If sAnoProducao = oRS("StrAnoProducao") 'Pegando Sinopse do DVD quando for Blue If sBlu Then If Not Vazio(oRS("Cod_Pai")) Then sQueryVinculo = "SELECT StrSinopse FROM TbCatalogos where intcodcatalogo=" & oRS("Cod_Pai") SET oRSVinculo = conexaofox.Execute(sQueryVinculo) If Not oRSVinculo.EOF Then sSinopse = oRSVinculo("StrSinopse") End If Set oRSVinculo = Nothing End If Else sSinopse = oRS("StrSinopse") End If sComentarios = oRS("Comentarios") sCodigoPreco = oRS("StrCodPreco") sLoja = "" lTemEmLoja = False sCapa = Right("000" & oRS("IntCodCatalogo"),6) If oRS("StrLoja1") Then sLoja = sLoja & "• Dr. Moraes
" lTemEmLoja = True End If If oRS("StrLoja2") Then sLoja = sLoja & "• Castanheira
" lTemEmLoja = True End If If oRS("StrLoja3") Then sLoja = sLoja & "• João Balby
" lTemEmLoja = True End If If oRS("StrLoja4") Then sLoja = sLoja & "• Doca
" lTemEmLoja = True End If If oRS("StrLoja5") Then sLoja = sLoja & "• Cidade Nova
" lTemEmLoja = True End If If oRS("StrLoja7") Then sLoja = sLoja & "• Iguatemi
" lTemEmLoja = True End If If oRS("StrLoja8") Then sLoja = sLoja & "• Duque
" lTemEmLoja = True End If lTemFoxFone = False If oRS("StrFoxFone") Then lTemFoxFone = True End If lTemLojaWeb = False If oRS("StrLojaWeb") Then If TemCopia(sCodigoRelacionado) Then lTemLojaWeb = True End If End If If FilmeLocado(sCodigoRelacionado) Then lFilmeLocado = True Else lFilmeLocado = False End If sTipo = "" If oRS("StrDvd") Then sTipo = sTipo & "DVD " End If If oRS("StrBlu") Then sTipo = sTipo & "BLU-RAY" End If If oRS("StrVhs") Then sTipo = sTipo & "VHS " End If If oRS("StrGames") Then sTipo = sTipo & "Games " End If If nArea = 3 Then sTipo = oRS("Tipo_Produto") End If sStatus = "" If oRS("BolMaisLocado") Then sStatus = sStatus & "Mais Locado, " End If If oRS("BolLancamento") Then sStatus = sStatus & "Lançamento, " End If If oRS("BolRecomendado") Then sStatus = sStatus & "Recomendado, " End If lTemTrailer = TemTrailer(sCodigoRelacionado) End If Set oRS = Nothing nPrecoLocacao = RecuperaPreco(sCodigoPreco) nPrecoLocacaoWeb = RecuperaPrecoWeb(sCodigoPreco) nPrecoVenda = RecuperaPrecoVenda(sCodigoProdutoVenda) nQtdEstoque = RecuperaQtdEstoque(sCodigoProdutoVenda) nPrecoVendaSemiNovos = RecuperaPrecoVendaSemiNovos(sCodigoProdutoVendaSemiNovos) nQtdEstoqueSemiNovos = RecuperaQtdEstoqueSemiNovos(sCodigoProdutoVendaSemiNovos) %>
<%=sTitulo%>
Você está aqui: Home > <%=sNavegacao%> > Detalhes do Filme
<%If nCodgenero = 19 OR nCodGenero = 7 OR nCodGenero = (227)Then%>PROIBIDO PARA MENORES DE 18 ANOS<%End If%> Quero alugar o filme
<% If Vazio(sSinopse) Then sSinopse = sSinopseVenda End If If Not Vazio(sSinopse) Then HTMLEncodeComEnter(sSinopse) %> <% End If If Not Vazio(sComentarios) Then HTMLEncodeComEnter(sComentarios) %> <% End If If (Not Vazio(sInformacoesDVD) OR Not Vazio(sMaisInformacoes)) Then %> <% End If %> <% If (nArea = 5) Then sQueryOutros = "SELECT TOP 4 Codigo,IntCodCatalogo,LOWER(Descricao) as Descricao, Cod_categoria,Preco,Qtd_estoque from TbSeminovos " Else sQueryOutros = " SELECT TOP 4 Codigo,IntCodCatalogo, LOWER(Descricao) as Descricao,cod_categoria,Preco,Qtd_Estoque FROM TbProdutoVenda " End If 'response.write(ncodgenero)' If (nArea = 1) OR (nArea = 2) Then If nCodGenero = 19 Then nCodGenero = 227 sQueryOutros = "SELECT TOP 4 Codigo,IntCodCatalogo,LOWER(Descricao) as Descricao, Cod_categoria,Preco,Qtd_estoque from TbSeminovos" sQueryOutros = sQueryOutros & " WHERE cod_categoria = '" & nCodGenero & "' AND Qtd_estoque > 0 AND Destaque = 1 AND PRECO > 0 ORDER BY NEWID() DESC" Else sQueryOutros = sQueryOutros & " WHERE Genero = '" & nCodGenero & "' AND Qtd_estoque > 0 AND Destaque = 1 AND PRECO > 0 ORDER BY NEWID() DESC" End If Else sQueryOutros = sQueryOutros & " WHERE cod_categoria = '" & nCodGenero & "' AND Qtd_estoque > 0 AND Destaque = 1 AND PRECO > 0 ORDER BY NEWID() DESC" End If 'response.write(squeryoutros)' Set oRS = ConexaoFox.Execute(sQueryOutros) If Not oRS.EOF Then oRS.MoveFirst x = 0 While Not oRS.EOF If ((x) mod nNumPorLinha)=0 Then %> <% End If If nCodgenero = 227 or 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 If (nCodGenero = 227) Then sURL = "/filmes/index.asp?fCodigo=" & oRS("Codigo") & "&fArea=5" Elseif nArea = 5 Then sURL = "/filmes/index.asp?fCodigo=" & oRS("Codigo") & "&fArea="& nArea &"" Else sURL = "/filmes/index.asp?fCodigo=" & oRS("Codigo") & "&fArea=3" 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 Not Vazio(sTempo) Then %> <% End If %>
<% If sBlu Then %> <%end if%>
<%If TemFoto(sCaminhoFoto) Then%> <%=sTitulo%> <% Else%> <%End If%>
Imagem meramente ilustrativa
Título original: <%=UCase(sTituloOriginal)%>
Diretor: <%If nCodgenero = 19 OR nCodGenero = 7 OR nCodGenero = (227)Then%><%=sDiretor%><%Else%><%=sDiretor%><%End If%>
Elenco ou Filmes:
<%=sAtores%>
Gênero/Tipo: <%=sGenero%>/<%=sTipo%>
Produção:
<%=sPaisProducao%> <%If Not Vazio(sAnoProducao) Then%> / <%=sAnoProducao%> <%End If%>
Duração: <%=sTempo%> Minutos
Indicar filme para um amigo(a)   Adicionar filme na lista de favoritos
<%If lTemTrailer Then%> Assistir ao trailer <%Else%>  <%End If%>
 

Sinopse

<%=HTMLEncodeComEnter(sSinopse)%>

<%=HTMLEncodeComEnter(sComentarios)%>
 

Mais Informações

<% If Not Vazio(sInformacoesDVD) Then sInformacoesDVD = Replace(sInformacoesDVD,"ÿ",chr(32)) %>

<%=HTMLEncodeComEnter(sInformacoesDVD)%>

<% End If If Not Vazio(sMaisInformacoes) Then %>

<%=HTMLEncodeComEnter(sMaisInformacoes)%>

<% End If %>
 

Filmes à venda do mesmo gênero:

<% If CInt(oRS("Qtd_Estoque")) > 0 Then If Not Vazio(oRS("Preco")) Then If CCur(oRS("Preco")) > 0 Then %> <% End If End If %> <%If nArea = 5 or nCodGenero = 227 Then%> <%Else%> <%End If%> <% Else %> <% End If %>
<%If TemFoto(sCaminhoFoto) Then%> <%=sTitulo%> <% Else%> <%End If%>
<%=sTitulo%>
R$ <%=FormatNumber(oRS("Preco"),2)%>
&fQtdProduto=1&fIdTipoOperacao=3">Comprar
&fQtdProduto=1">Comprar
Produto em falta
Nenhum título encontrado
+<%if nCodGenero = 227 then %> <%else%> <%end if%>Veja outros filmes à venda
<% lMostrarTituloCompra = True 'response.write(nprecovenda)& "venda" If nPrecoVenda > 0 Then lMostrarTituloCompra = False %> <% 'RESPONSE.WRITE(SCODIGOPRODUTOVENDA)' 'response.write(nQtdEstoque)& "estiqye" If Cint(nQtdEstoque) > 0 Then %> <% Else %> <% End if %> <% End If If lTemFoxFone Then %> <% End If If lTemEmLoja Then %> <% If nPrecoLocacao > 0 Then %> <% End If End If %>
<%if sGenero = "CD" then %>CD NOVO<%else%>DVD NOVO <%end if%>
Comprar
<%if Cint(nQtdEstoque) > 0 Then%> R$ <%=nPrecoVenda%> <% If CCur(ComPonto(nPrecoVenda)) > 30 Then nPrecovenda = ComPonto(nPrecovenda) nPreco3x = FormatNumber(nPrecoVenda,2) nPreco3x = nPrecoVenda /3 nPreco3x = FormatNumber(nPreco3x,2) %>
ou 3 x de <%=nPreco3x%>
sem juros
no cartão

<% elseIf CCur(nPrecoVenda) > 20 Then nprecovenda = ComPonto(nPrecovenda) nPreco2x = FormatNumber(nPrecoVenda,2) nPreco2x = nPreco2x /2 nPreco2x = FormatNumber(nPreco2x,2) %>
ou 2 x de <%=nPreco2x%>
sem juros
no cartão

<%End If%> <%End If%>
Comprar
 
Lojas da rede que você encontra este produto para locar:
 
<%=sLoja%>
Preço da Locação  
R$ <%=nPrecoLocacao%>
por 2 dias