%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
Dim Adocon
Dim ObjProduto
Dim rsProduto
Dim Ok
Dim Contador
Dim TipoRelacao
Dim DscRelacao
Dim TabelaProduto
Dim CodigoProduto
Dim Autor
Dim Titulo
Dim Formato
Dim NumeroPaginas
Dim Preco, precoPromocional, precoEcommerce, peso
Dim SubGenero
Dim disponibilidade
Dim Imagem
Dim Teaser
Dim CodigoFormato
Dim ItensPagina
Dim PagAtual
Dim NumeroItens
Dim ContadorPaginas
Dim ContadorAux
Dim Aux
Dim ContMo
Dim ListaAutores
Dim ProximoCodigo
Dim UltimoCodigo
Dim listaCodigo
Dim rsAutor
Dim ISBN
Dim sImg, pathImg
Dim linkLoja
set rsAutor = server.CreateObject("adodb.recordset")
rsAutor.CursorLocation = 3
set rsProduto = server.CreateObject("adodb.recordset")
rsProduto.CursorLocation = 3
set ObjProduto = new TProduto
ItensPagina = 6
PagAtual = Request.QueryString("PagAtual")
if PagAtual ="" then
PagAtual = 1
else
' UltimoCodigo=Request.QueryString("UltimoCodigo")
PagAtual=cint(PagAtual)
end if
'if UltimoCodigo="" then UltimoCodigo=0
'Response.Write "UltimoCodigo " & UltimoCodigo
rsProduto.CursorLocation = 3
rsProduto.Pagesize = ItensPagina
rsProduto.cachesize = ItensPagina
' Busca os produtos setados como Lançamento em t_Produto
Ok = ObjProduto.ObtemPromocoes(rsProduto)
if rsProduto.state=0 then rsProduto.Open
If Ok then
if not rsProduto.EOF then
NumeroItens=rsProduto.recordCount
rsProduto.AbsolutePage = PagAtual
ContadorPaginas = NumeroItens / ItensPagina
if ContadorPaginas - int(ContadorPaginas) <> 0 then
ContadorPaginas = Int(ContadorPaginas) + 1
end if
ContadorAux = 1
ContMo = 1
ListaAutores=""
while not rsProduto.EOF AND ContadorAux<=ItensPagina
CodigoProduto = rsProduto("Codprd")
' if (cdbl(UltimoCodigo)>=cdbl(CodigoProduto))and not rsProduto.EOF then
'Response.Write " Ultimo=Codigo " & UltimoCodigo &" = "& CodigoProduto
'Response.Write " ProximoCodigo " & ProximoCodigo
' rsProduto.MoveNext
' else
'Response.Write " Ultimo<>Codigo " & UltimoCodigo &" <> "& CodigoProduto
'Response.Write " ProximoCodigo " & ProximoCodigo
'CodigoProduto = rsProduto("Codprd")
'Autor = rsProduto("NmePes")
Titulo = rsProduto("TitPrd")
CodigoFormato = rsProduto("CodFmt")
Formato = rsProduto("txtFmt")
NumeroPaginas = rsProduto("NumPag")
Preco=rsProduto("ValPrc")
precoPromocional = rsProduto("PrcPrm")
'if Preco<>null then
'Preco = cstr(rsProduto("ValPrc"))
'else
'Preco=0
'end if
If IsNumeric(preco) Then precoEcommerce = preco Else precoEcommerce = 0
if Preco <> "" then
if Preco=0 then
Preco="Preço livre"
else
if (instr(Preco,".")<=0) and (instr(Preco,",")<=0) then
Preco="R$"&Preco&",00"
Else
Preco = "R$"&FormatNumber(preco, 2)
End If
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
'ListaInformacoes = ListaInformacoes &" preço: "& Preco
Contador = Contador + 1
end if
peso = rsProduto("peso")
If Not IsNumeric(peso) Then peso = 0
'if Preco>0 then
' if (instr(Preco,".")<=0) and (instr(Preco,",")<=0) then Preco=Preco&",00"
'end if
SubGenero = rsProduto("DscSubGnr")
disponibilidade = rsProduto("DspPrd")
Imagem = rsProduto("ArqImg")
Teaser = rsProduto("TxtTsr")
linkLoja = rsProduto("linkLoja")
' 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
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
'if not rsProduto.EOF then
' ProximoCodigo=rsProduto("CodPrd")
'else
' ProximoCodigo=""
'end if
'se o código for igual ao próximo código, vai buscar o outro autor do mesmo livro.
'if CodigoProduto<>ProximoCodigo then
sImg = ""
pathImg = Server.MapPath("/_conteudo/catalogo/")
If fileExist(pathImg & "/"&Imagem) Then
sImg = ""
Else
'sImg = ""
End IF
ContadorAux = ContadorAux + 1
TabelaProduto = TabelaProduto &"
"
ListaAutores=""
ContMo = ContMo + 1
'end if
'end if
rsProduto.MoveNext
wend
end if
else
set ObjProduto = nothing
set rsProduto = nothing
set rsAutor = nothing
Response.Redirect("../mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar os Produtos. Por favor, tente novamente
end if
set rsAutor = nothing
set ObjProduto = nothing
set rsProduto = nothing
%>
Nova Fronteira
_