<% nArea = 6 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 = True ' 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 %>
<% nNumPorLinha = 4 sCodigo = Request.QueryString("fCodigo") sQuery = " SELECT L.Codigo, L.Descricao, L.Autor_Completo, C.Descricao Tema, L.Fornecedor, L.Tema TemaPodium, L.Complemento, L.InformacoesLivro, L.Cod_Categoria, L.Sinopse, L.Mais_Informacoes, L.Subtitulo, L.Preco, L.Qtd_Estoque, L.Cod_Categoria, L.Id_Promocao_Venda FROM TbLivrosVenda AS L " &_ " INNER JOIN Categoria AS C ON L.Cod_Categoria = C.Cod_Categoria " &_ " WHERE codigo = '" & sCodigo & "'" Set oRS = ConexaoFox.Execute(sQuery) sCapa = oRS("Codigo") sCaminhoFoto = sCaminhoLivro & sCapa & ".gif" sTitulo = oRS("Descricao") sAutor = oRS("Autor_Completo") sTema = oRS("Tema") sTemaPodium = oRS("TemaPodium") sFornecedor = oRS("Fornecedor") sComplemento = oRS("Complemento") sInformacoesLivro = oRS("InformacoesLivro") nCategoria = oRS("cod_categoria") sSinopse = oRS("sinopse") sMaisInformacoes = oRS("mais_informacoes") sSubtitulo = oRS("Subtitulo") sCodigo = oRS("Codigo") sPreco = oRS("preco") nid_promocao_venda = oRS("Id_Promocao_Venda") nEstoque = oRS("Qtd_Estoque") nCodCategoria = oRS("Cod_Categoria") Set oRS = Nothing %>
VENDA - <%If cInt(nCodCategoria)= 19 Then%>CD <%Else%>LIVRARIA <%End If%>
Você está aqui: Home > <%=sNavegacao%> > Detalhes do <%If CInt(nCodCategoria)=19 Then%>CD<%Else%>Livro<%End If%>
 
<% If Not Vazio(sSinopse) Then %> <% End If If (Not Vazio(sInformacoesLivro) OR Not Vazio(sMaisInformacoes)) Then %> <% if nCodCategoria = 19 then nTipo = "CDs" else nTipo = "Livros" end if %> <% sQueryRelacionados = " SELECT TOP 4 Codigo,IntCodCatalogo, LOWER(Descricao) as Descricao,cod_categoria,Preco,Qtd_Estoque FROM TbLivrosVenda " if nId_Promocao_Venda = 5 then sQueryRelacionados = sQueryRelacionados & " WHERE Qtd_estoque > 0 AND Destaque = 1 AND Id_promocao_venda = 5 ORDER BY NEWID() DESC" elseif nCodCategoria = 19 then sQueryRelacionados = sQueryRelacionados & " WHERE Qtd_estoque > 0 AND Destaque = 1 AND Cod_Categoria = 19 ORDER BY NEWID() DESC" else sQueryRelacionados = sQueryRelacionados & " WHERE Cod_Categoria = '" & nCodCategoria & "' AND Qtd_estoque > 0 AND Destaque = 1 AND Cod_Categoria NOT IN (237,19) ORDER BY NEWID() DESC" End if Set oRS = ConexaoFox.Execute(sQueryRelacionados) If Not oRS.EOF Then oRS.MoveFirst x = 0 While Not oRS.EOF If ((x) mod nNumPorLinha)=0 Then %> <% End If sCapa = oRS("Codigo") sCaminhoFoto = sCaminhoLivro & sCapa & ".gif" If Not TemFoto(sCaminhoFoto) Then sCapa = Right("000" & oRS("IntCodCatalogo"),6) sCaminhoFoto = sCaminhoFilme & sCapa & ".jpg" sEstiloCapa = "CapaVendas" Else sEstiloCapa = "ProdutosVendas" End If sURL = "/loja_virtual/venda/livros/livro_detalhe.asp?fCodigo=" & oRS("Codigo") & "&fArea=6" sTitulo = 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 nCodCategoria = 19 Then %> <%else%> <%end if%> <% End If %>
<%If Not CInt(nCodCategoria) = 19 Then%> <%End If%> <% If CInt(nEstoque) > 0 Then If Not Vazio(sPreco) Then If CCur(sPreco) > 0 Then %> <% If CCur(sPreco) > 30 Then nPreco3x = FormatNumber(sPreco,2) nPreco3x = nPreco3x /3 nPreco3x = FormatNumber(nPreco3x,2) %> <% End If %> <% End If End If Else %> <% End If %>
<%If TemFoto(sCaminhoFoto) Then%> <%=sTitulo%> <% Else%> <%End If%>
Imagem meramente ilustrativa
TITULO:

<%=sTitulo%>
<%=sSubTitulo%>

<%If CInt(nCodCategoria) = 19 Then%> Intérprete: <%Else%>Autor:<%End If%> <%=sAutor%>
Tema: <%=sTema%>
Editora: <%=sComplemento%>
R$: <%=FormatNumber((sPreco),2)%>
  ou 3 x de <%=nPreco3x%>
sem juros no cartão
 
    Produto em falta
 

Sinopse

<%=HTMLEncodeComEnter(sSinopse)%>

Mais Informações

<% If Not Vazio(sInformacoesLivro) Then %>

<%=HTMLEncodeComEnter(sInformacoesLivro)%>

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

<%=HTMLEncodeComEnter(sMaisInformacoes)%>

<% End If %>
 

Veja mais <%=nTipo%> à venda :

<% 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&fIdTipoOperacao=4">Comprar
Produto em falta
Nenhum título encontrado
+ Veja outros cds à venda
+ Veja outros livros à venda