<% Option Explicit %>
<%
'If Session("CodigoUsuario") <=0 then
' Response.Redirect("/novo/imagens/login.asp?origem=SalaImprensa")
'end if
Dim rsDestaque
Dim ObjDestaque
Dim rsAutor
Dim ObjProduto
Dim Ok
Dim ListaDestaques
Dim Mes
Dim MesAux
Dim Ano
Dim Autor
Dim ListaAutores
Dim ListaOutrosTitulos
Dim Contador
set ObjDestaque = new TDestaque
set rsDestaque = server.CreateObject("adodb.recordset")
rsDestaque.CursorLocation = 3
' Busca os destaques de produtos
ObjDestaque.CodOrg=2 ' Sala de Imprensa
Ok = ObjDestaque.ObtemDestaqueProduto(rsDestaque)
if rsDestaque.state=0 then
rsDestaque.Open
end if
If Ok then
if not rsDestaque.EOF then
MesAux=""
Contador=0
ListaDestaques = ListaDestaques & "
"
while not rsDestaque.EOF
Contador=Contador+1
'monta os dois meses mais recentes abertos, os outros, coloca na combo
if Contador<=2 then
Ano = left(rsDestaque("DtaIni"),4)
Mes=FormataMesExtenso(left(right(rsDestaque("DtaIni"),4),2))
ListaDestaques = ListaDestaques &"
"& uCase(Mes) &" "& Ano &"
"
while (Mes = MesAux) or (MesAux="")
ListaDestaques = ListaDestaques &"
"
rsDestaque.MoveNext
if not rsDestaque.EOF then
MesAux=FormataMesExtenso(left(right(rsDestaque("DtaIni"),4),2))
else
Mes="Fim"
MesAux=0
end if
wend
'MesAux=FormataMesExtenso(left(right(rsDestaque("DtaIni"),4),2))
else
'monta a como de outros títulos
if len(rsDestaque("TitDtq"))<70 then
ListaOutrosTitulos = ListaOutrosTitulos &""
else
ListaOutrosTitulos = ListaOutrosTitulos &""
end if
rsDestaque.MoveNext
end if
wend
ListaDestaques = ListaDestaques & "
"
end if
set ObjDestaque=nothing
set rsDestaque=nothing
else
set ObjDestaque=nothing
set rsDestaque=nothing
Response.Redirect("/novo/mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar os Produtos. Por favor, tente novamente
end if
Autor = Request.QueryString("Autor")
If Autor<>"" then
set ObjProduto = new TPessoa
set rsAutor = server.CreateObject("adodb.recordset")
rsAutor.CursorLocation = 3
'obtem as fotos dos autores cadastrados em t_foto
ObjProduto.Nome=Autor
ok = ObjProduto.ObtemFotoAutor(rsAutor)
if rsAutor.state=0 then rsAutor.Open
If Ok then
if not rsAutor.EOF then
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
ListaAutores = ListaAutores &"
"
while not rsAutor.EOF
ListaAutores = ListaAutores &"
"
end if
set ObjProduto=nothing
set rsAutor=nothing
else
set ObjProduto=nothing
set rsAutor=nothing
Response.Redirect("/novo/mensagem.asp?Erro=-34") ' Ocorreu um erro ao carregar os autores. Por favor, tente novamente
end if
end if
%>
Editora Nova Fronteira
_
<%
Function montaCountPaginas()
Dim s
If CInt(pagina) > rsPessoaProduto.PageCount Then pagina = 1
nPaginas = rsPessoaProduto.PageCount
rsPessoaProduto.AbsolutePage = pagina
If rsPessoaProduto.RecordCount > 1 Then
s = " "&rsPessoaProduto.RecordCount & " títulos localizados"
If rsPessoaProduto.PageCount > 1 Then
s = s & " (mostrando página " & pagina & " de " & rsPessoaProduto.PageCount & " páginas)"
End If
Else
s = "1 título localizado"
End If
montaCountPaginas = s
End Function
Function montaListaPaginas()
Dim s, i, nIni, nFim
intervaloPaginas = intervaloPaginas/2
If rsPessoaProduto.PageCount > 1 Then
s = " "
s = s & "9" & _
"7"
'processa intervalo de páginas para mostrar apenas uma qtd de página
If pagina-intervaloPaginas < 1 Then
nIni=1
nFim = (intervaloPaginas * 2) + 1
If nFim > rsPessoaProduto.PageCount Then nFim = rsPessoaProduto.PageCount
Else
nIni = pagina-intervaloPaginas
If pagina+intervaloPaginas > rsPessoaProduto.PageCount Then nFim = rsPessoaProduto.PageCount : nIni = nIni - ((pagina+intervaloPaginas) - rsPessoaProduto.PageCount) Else nFim = pagina+intervaloPaginas
If nIni < 1 Then nIni = 1
End If
For i=nIni To nFim
If Cstr(i) <> Cstr(pagina) Then
s = s & "" & i & " "
Else
s = s & "" & i & " "
End If
Next
s = s & "8" & _
":"
s = s & ""
else
s = ""
End If
montaListaPaginas = s
End Function
%>
![](/sala_de_imprensa/imagens/"&Autor&".gif){kind=small}
