<%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
Dim Adocon
Dim ObjMateria
Dim rsMateria
Dim Ok
Dim TabelaMateria
Dim TabelaMateriaDestaque
Dim CodigoMateria
Dim Imagem
Dim DataEvento
Dim LocalEvento
Dim Texto
Dim Titulo
Dim NumeroPaginas
Dim ItensPagina
Dim PagAtual
Dim NumeroItens
Dim ContadorPaginas
Dim ContadorAux
Dim Aux
Dim CodigoProduto
CodigoProduto=""
set rsMateria = server.CreateObject("adodb.recordset")
rsMateria.CursorLocation = 3
CodigoMateria = Request.QueryString("CodigoMateria")
if CodigoMateria="" then CodigoMateria=0
ItensPagina = 6
PagAtual = Request.QueryString("PagAtual")
if PagAtual ="" then
PagAtual = 1
else
PagAtual=cint(PagAtual)
end if
set ObjMateria= new TMateria
rsMateria.CursorLocation = 3
rsMateria.Pagesize = ItensPagina
rsMateria.cachesize = ItensPagina
' Busca os Materias setados como Lançamento em t_Materia
Ok = ObjMateria.ObtemAgendaAtual(rsMateria)
if rsMateria.state=0 then rsMateria.Open
If Ok then
if not rsMateria.EOF then
NumeroItens=rsMateria.recordCount
rsMateria.AbsolutePage = PagAtual
ContadorPaginas = NumeroItens / ItensPagina
if ContadorPaginas - int(ContadorPaginas) <> 0 then
ContadorPaginas = Int(ContadorPaginas) + 1
end if
ContadorAux = 1
while not rsMateria.EOF AND ContadorAux<=ItensPagina
ContadorAux = ContadorAux + 1
Titulo = rsMateria("TitMat")
Texto = rsMateria("TxtMat")
DataEvento = trim(rsMateria("DtaMat"))
if DataEvento<> "" then
'formata a data para o formato dd de mes por extenso de aaaa
DataEvento = FormataDataExtenso(DataEvento)
end if
Imagem = rsMateria("ArqImg")
LocalEvento = rsMateria("LocMat")
'se veio da Busca, vem com um código de matéria e
'monta a matéria destacada na página
if cdbl(CodigoMateria)=cdbl(rsMateria("CodMat")) then
TabelaMateriaDestaque = TabelaMateriaDestaque &"
"
end if
rsMateria.MoveNext
wend
TabelaMateria =TabelaMateriaDestaque &" "& TabelaMateria
end if
else
set ObjMateria = nothing
set rsMateria = nothing
Response.Redirect("/mensagem.asp?Erro=-25") ' Ocorreu um erro ao carregar os itens da Agenda. Por favor, tente novamente.
end if
set ObjMateria = nothing
set rsMateria = nothing
%>
Nova Fronteira
_
"
TabelaMateriaDestaque = TabelaMateriaDestaque &"