<% 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%>

<% 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%> <% 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