<% Option Explicit %> <% Dim sOrdem Dim nPaginas, pagina, strPaginas, linhasDetalhe, intervaloPaginas, i Dim classificacao Dim Adocon Dim ObjProduto Dim rsProduto Dim rsAutor Dim rsPessoaProduto Dim Ok Dim TabelaProduto Dim Data Dim Operacao Dim Tipo Dim Contador Dim TipoRelacao Dim DscRelacao Dim ListaInformacoes Dim CodigoProduto Dim Autor Dim Titulo Dim SubGenero Dim ComboSubGenero Dim Origem Dim Busca Dim ListaResultados Dim PagAtual Dim ItensPagina Dim ContadorPaginas Dim Aux Dim TituloPesquisa Dim SubGeneroPesquisa Dim AutorPesquisa Dim NumeroItens Dim ContadorAux Dim NumeroItensAux Dim LocalEvento Dim CodigoMateria Dim ObjMateria Dim VeiculoMateria Dim rsNoticia Dim rsAgenda Dim ListaResultadosAgenda Dim ListaResultadosNoticia Dim ListaAutores,paginacao, filtro Dim conn, query, rs ContadorAux=0 ContadorPaginas=0 NumeroItens=0 NumeroItensAux=0 ItensPagina=10 AutorPesquisa = replace(Request("Autor"), "'" ,"") If Busca="" then Busca = Request.form("Busca") PagAtual = Request("pagina") if PagAtual ="" then PagAtual = 1 else PagAtual=cint(PagAtual) end if 'Set ObjProduto.Conexao = Adoconexao ListaResultados = "sss