%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true
Response.Expires = 0%>
<%
Dim Adocon
Dim ObjProduto
Dim rsProduto
Dim Ok
Dim TabelaProduto
Dim Data
Dim Operacao
Dim DscRelacao
Dim ListaInformacoes
Dim CodigoProduto
Dim Autor
Dim Titulo
Dim Formato
Dim NumeroPaginas
Dim Preco, precoPromocional, precoEcommerce
Dim SubGenero
Dim Imagem
Dim Origem
Dim CodigoFormato
Dim CodigoSubGenero
Dim Contador
Dim Classificacao
Dim CodClassificacao
Dim CodClassificacaoAux
Dim ListaAutores
Dim ProximoCodigo
Dim ListaAutoresQuadro
Dim ProximoCodigoQuadro
Dim CodigoPessoa
Dim rsAutor
'set Adocon = Server.CreateObject("adodb.connection")
'Adocon.Open strConn
on error resume next
'Response.end
set ObjProduto = new TProduto
'Set ObjProduto.Conexao = Adoconexao
set rsProduto = server.CreateObject("adodb.recordset")
rsProduto.CursorLocation = 3
set rsAutor = server.CreateObject("adodb.recordset")
rsAutor.CursorLocation = 3
'Obtem os produtos que estão na tabela t_recomendado
Ok = ObjProduto.ObtemProdutoRecomendado(rsProduto)
if rsProduto.state=0 then rsProduto.Open
if Ok then
if not rsProduto.EOF then
'Response.Write "total " & rsProduto.RecordCount
While not rsProduto.EOF
Contador=1
Titulo = rsProduto("TitPrd")
CodigoProduto = rsProduto("CodPrd")
'Response.Write " CodProd " & CodigoProduto
NumeroPaginas = rsProduto("NumPag")
CodClassificacao = rsProduto("ClsPrd")
if CodClassificacao <> "" then
select case cint(CodClassificacao)
case 1
Classificacao = "ficcao"
case 2
Classificacao = "naoficcao"
case 3
Classificacao = "infantil"
case 4
Classificacao = "juvenil"
case 5
Classificacao = "referencia"
end select
end if
' Response.Write "
CodClassificacaoAux "&CodClassificacaoAux
' Response.Write " CodClassificacao "&CodClassificacao
Preco = cstr(rsProduto("ValPrc"))
precoPromocional = rsProduto("PrcPrm")
if Preco <> "" then
if (instr(Preco,".")<=0) and (instr(Preco,",")<=0) then Preco=Preco&",00" Else preco = FormatNumber(preco, 2)
If ObjProduto.promocao(rsProduto) Then
If IsNumeric(precoPromocional) Then precoEcommerce = precoPromocional Else precoEcommerce = 0
if precoPromocional <> "" then
if (instr(Preco,".")<=0) and (instr(Preco,",")<=0) then
precoPromocional="R$"&precoPromocional&",00"
Else
precoPromocional = "R$"&FormatNumber(precoPromocional, 2)
End If
'ListaInformacoes = ListaInformacoes &" preço: "& Preco
end if
Else
precoPromocional = ""
End If
end if
CodigoFormato = rsProduto("CodFmt")
Formato = rsProduto("txtFmt")
SubGenero = ucase(rsProduto("DscSubGnr"))
Imagem = rsProduto("ArqImg")
' busca os autores deste produto
ok = ObjProduto.ObtemAutor(CodigoProduto,rsAutor)
'Response.Write " Codigo Produto " & CodigoProduto & Ok
'Response.end
if rsAutor.state=0 then rsAutor.Open
If Ok then
if not rsAutor.EOF then
while not rsAutor.EOF
if ListaAutores<>"" then
ListaAutores = ListaAutores&" | "& rsAutor("NmePes")
else
ListaAutores = rsAutor("NmePes")
end if
rsAutor.MoveNext
wend
end if
rsAutor.close
if ListaAutores<> "" then ListaAutores= "de " & ListaAutores
else
rsAutor.close
'Response.Write err.Description
'Response.End
' erro ao obter os autores do produto
Response.Redirect("../mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar os Produtos. Por favor, tente novamente
end if
' CodigoPessoa = trim(cdbl(rsProduto("CodPes")))
' Response.Write " CodigoPessoa" & CodigoPessoa
' If CodigoPessoa<>979 then
' Autor = rsProduto("NmePes")
'
' if ListaAutores<>"" then
' ListaAutores = ListaAutores&" | "& rsProduto("NmePes")
' else
' ListaAutores = rsProduto("NmePes")
' end if
' end if
rsProduto.MoveNext
if not rsProduto.EOF then
ProximoCodigo=rsProduto("CodPrd")
else
ProximoCodigo=0
CodigoProduto=0
end if
'se o código for igual ao próximo código, vai buscar o outro autor do mesmo livro.
'Response.Write " CodigoProduto "&CodigoProduto
'Response.Write " ProximoCodigo "&ProximoCodigo
if cdbl(CodigoProduto)<>cdbl(ProximoCodigo) then
TabelaProduto = TabelaProduto&"
nº de páginas: 210 "
TabelaProduto = TabelaProduto&" formato:"&Formato&" cm"
If precoPromocional<>"" Then
TabelaProduto = TabelaProduto &"
preço: de "&Preco&" por " & precoPromocional & "
"
Else
TabelaProduto = TabelaProduto &"
preço: "&Preco&"
"
End If
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
'rsProduto.MoveNext
if not rsProduto.EOF then
CodClassificacaoAux = rsProduto("ClsPrd")
'Response.Write " CodClassificacaoAux "&CodClassificacaoAux
'Response.Write " CodClassificacao "&CodClassificacao
if cdbl(CodClassificacaoAux)=cdbl(CodClassificacao) then
Contador=Contador+1
'if Contador>1 then
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
'enquanto existir outro produto do mesmo subgênero
while (Contador<=5) and (cdbl(CodClassificacaoAux)=cdbl(CodClassificacao)) and (not rsProduto.EOF)
Titulo = rsProduto("TitPrd")
CodigoProduto = rsProduto("CodPrd")
' busca os autores deste produto
ok = ObjProduto.ObtemAutor(CodigoProduto,rsAutor)
'Response.Write " Codigo Produto " & CodigoProduto & Ok
'Response.end
if rsAutor.state=0 then rsAutor.Open
If Ok then
if not rsAutor.EOF then
while not rsAutor.EOF
if ListaAutoresQuadro<>"" then
ListaAutoresQuadro = ListaAutoresQuadro&" | "& rsAutor("NmePes")
else
ListaAutoresQuadro = rsAutor("NmePes")
end if
rsAutor.MoveNext
wend
end if
rsAutor.close
else
rsAutor.close
'Response.Write err.Description
'Response.End
' erro ao obter os autores do produto
Response.Redirect("../mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar os Produtos. Por favor, tente novamente
end if
'CodigoPessoa = trim(cdbl(rsProduto("CodPes")))
'Response.Write " CodigoPessoa" & CodigoPessoa
'If CodigoPessoa<>979 then
'
' Autor = rsProduto("NmePes")
'
'' 'Response.Write " CodProd " & CodigoProduto
' if ListaAutoresQuadro<>"" then
' ListaAutoresQuadro = ListaAutoresQuadro&" | "& rsProduto("NmePes")
' else
' ListaAutoresQuadro = rsProduto("NmePes")
' end if
' end if
rsProduto.MoveNext
if not rsProduto.EOF then
ProximoCodigoQuadro=rsProduto("CodPrd")
ProximoCodigo=ProximoCodigoQuadro
else
ProximoCodigoQuadro=""
end if
'se o código for igual ao próximo código, vai buscar o outro autor do mesmo livro.
if CodigoProduto<>ProximoCodigoQuadro then
TabelaProduto = TabelaProduto&"
"
Contador=Contador+1
'rsProduto.MoveNext
if not rsProduto.EOF then
CodClassificacaoAux = rsProduto("ClsPrd")
end if
ListaAutoresQuadro=""
end if
wend
'se existirem mais de 5 produtos da mesma classificação, anda no rs até achar uma Classificação diferente
if Contador>5 then
dim achei
achei = false
while (not rsProduto.EOF) and not achei
if (cdbl(rsProduto("ClsPrd"))=cdbl(CodClassificacao)) then
rsProduto.MoveNext
' CodClassificacaoAux = rsProduto("ClsPrd")
else
CodClassificacaoAux = rsProduto("ClsPrd")
achei = true
end if
wend
end if
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
TabelaProduto = TabelaProduto&"
"
end if
end if
listaAutores=""
end if
wend
end if
else
set ObjProduto = nothing
set rsProduto = nothing
Response.Redirect("/mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar as matérias. Por favor, tente novamente
end if
set ObjProduto = nothing
set rsProduto = nothing
%>
Nova Fronteira
_