%@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 &"
| |||||||||
| "& DataEvento &" | " TabelaMateria = TabelaMateria &""& Titulo &" | |||
"
TabelaMateria = TabelaMateria &"
| ||||