% Option Explicit %> <% Dim conn, query, rs, s, i Dim filtroCatalogo, filtroNoticia, filtroAgenda Dim countCatalogo, countAgenda, countNoticia Dim filtro, tipo, fSubGenero Dim nPaginas, pagina, strPaginas, linhasDetalhe, intervaloPaginas Dim materia, tituloDesc, texto, data, local Dim noticia, veiculo Dim titulo, subGenero, descSubGenero, tipoRelacao, descTipoRelacao, ListaAutores Dim subMenu, busca Dim sResultado , paginacao busca = Request("Busca") tipo = Request("tipo") If tipo = "" then tipo="C" 'variaveis de pagina intervaloPaginas = 2 linhasDetalhe = 6 pagina = request("pagina") if pagina = "" then pagina = "1" Call conectar() 'Set ObjProduto.Conexao = Adoconexao 'SubMenu="" If busca="1" then rs.ActiveConnection = conn rs.CursorType = 1 'adOpenKeyset rs.LockType = 1 'adLockReadOnly rs.PageSize = linhasDetalhe rs.CacheSize = linhasDetalhe 'define o cache no mesmo tamanho da página por questoes de performance if Request("fCampo") = "" then fCampo = Request("fCampo1") else fCampo = Request("fCampo") if Request("fTexto") = "" then fTexto = Request("fTexto1") else fTexto = Request("fTexto") fSubGenero = Request("SubGenero") If fSubGenero = "" Then fSubGenero = 0 filtroCatalogo = "" 'é preciso saber se tem algum item nas opções para poder ativar o menu mesmo sem mostra-las 'filtroAgenda = montaFiltroAgenda() 'filtroNoticia = montaFiltroNoticia() filtroCatalogo = montaFiltroCatalogo() 'conta Agenda 'rs.open "Select Count(CodMat) " & filtroAgenda, conn : countAgenda = CInt(rs(0)) : rs.Close 'conta notícias 'rs.open "Select Count(codMat) " & filtroNoticia, conn : countNoticia = CInt(rs(0)) : rs.Close 'conta Catalogo 'rs.open "Select Count(pr.CodPrd) " & filtroCatalogo, conn : countCatalogo = CInt(rs(0)) : rs.Close 'Call montaLinkSubMenu() SubMenu = "