%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
If Session("CodigoUsuario") <=0 then
Response.Redirect("/cadastro/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
If Ok then
if not rsDestaque.EOF then
MesAux=""
Contador=0
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 &"