%@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
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.ObtemLancamentos(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")
' 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
ContadorAux = ContadorAux + 1
TabelaProduto = TabelaProduto &"
"
TabelaProduto = TabelaProduto &"
| "
TabelaProduto = TabelaProduto &" |||||||||||||||||
| "
TabelaProduto = TabelaProduto &" | "
TabelaProduto = TabelaProduto &"
|
_
|
Ao Leitor Internauta, Essa versão digital em pdf do Grande Sertão: Veredas, obra mais famosa de Guimarães Rosa, é um presente para os leitores internautas oferecido por Nonada Cultural, por Tess Advogados e pela Editora Nova Fronteira para comemorar os 50 anos da obra lançada em 1956. Essa idéia conta com o apoio do MEC, através da Secretaria de Educação à Distância, que coordena os portais de conteúdo, que gentilmente hospeda esse texto. O Grande Sertão: Veredas é uma obra protegida por direito autoral que está sendo oferecida em regime experimental de licença especial. Essa licença nasce com o propósito de ser um ponte de encontro e debate sobre as diferentes formas de veiculação de conteúdo literário, procurando transcender os limites do papel impresso. Nosso objetivo é proporcionar ao leitor internauta a oportunidade de entrar em contato com o universo do Grande Sertão: Veredas e viajar nele, passear e conhecer. Nós achamos que essa divulgação é parte do nosso papel como editores e responsáveis por esse tesouro da literatura brasileira. Achamos ainda que uma obra dessa magnitude e extensão precisa de um contato pessoal que será melhor proporcionado pela leitura de uma obra impressa. Recomendamos aos interessados que naveguem pelo texto e descubram as infinitas belezas guardadas nesse livro. Mas, para quem quiser realmente se aproximar em detalhe e aprofundar seu contato com Guimarães Rosa, sugerimos a leitura do texto no bom e “velho” formato de livro. Livro é portátil, livro dispensa eletricidade e baterias, livro é o melhor suporte já inventado para o diálogo entre o leitor e o texto. Quem tiver interesse em adquirir a versão impressa pode encontrá-la nas boas livrarias. O Grande Sertão: Veredas pode ser encontrado em 2 formatos: Nova Fronteira
|
|||||||||||||||||||||||||||