"
TabelaProduto = TabelaProduto&""
TabelaProduto = TabelaProduto&" ![](/recomendados/imagens/tit_"&Classificacao&".gif) | "
TabelaProduto = TabelaProduto&"  | "
TabelaProduto = TabelaProduto&" "
TabelaProduto = TabelaProduto&" ![](/_conteudo/catalogo/"&Imagem&") | "
TabelaProduto = TabelaProduto&"  | "
TabelaProduto = TabelaProduto&" "& Titulo &"
"& ListaAutores &"
"
TabelaProduto = TabelaProduto&" "& SubGenero &" | "
TabelaProduto = TabelaProduto&" "
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 &"
"
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&" | "
TabelaProduto = TabelaProduto&" "& Titulo &"
"& ListaAutoresQuadro &" | "
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
%>