Este é um script que criei com base em outros feitos em pequenas páginas por mim.
Este script possui Sub’s de Navegação, Listagem, Paginação númerica, auto reconhecimento e geração dos nomes das colunas e exibição da página atual e total de páginas.
É de fácil adaptação, podendo ser aplicados seus próprios estilos e métodos de formatação. E por se tratar de estar totalmente modularizado, a disposição da paginação, paginação númeria ou listagem, fica à total disposição do desenvolvedor.
Baixe o arquivo em anexo para pegar a versão completa do código
"") then buscaNomeOk = true 'Se houver caracteres em BuscaNome, BuscaNomeOk é VERDADEIRO if((buscaNomeOk)) then 'SE BuscaNomeOk É VERDADEIRO, queryDadosExtra também será. Aqui, adicione seguidas condicionais para verificar todos os campos de busca, e fazer o mesmo com o queryDadosExtra queryDadosExtra = True end if '------------------------------------------ if(queryDadosExtra) then 'Se QueryDadosExtra é verdadeiro if(buscaNomeOk) then 'E busca também o é buscaInterna = buscaInterna & " nome like '%" & buscaNome & "%'" ' Então, adicione à buscaInterna estes parametros. LEMBRE-SE do espaço no ínicio de cada campo verdadeiro end if queryDados = queryDados & " where" & buscaInterna 'Logo, se querDadosExtra e buscaNome é verdadeiro e BuscaInterna foi preenchida, à queryDados é concatenada com o valor da buscaInterna. end if 'Já se foi o mais chato, agora é configuração de RecordSet apenas(outra parte que pode ser muita chata se houverem incorreções no queryBusca! fique atento ;]) '------------------------------------------ objCon.open driver ' Abre o driver especificado objRs.ActiveConnection = objCon ' Abre sua conexão com o BD objRs.CursorLocation = 3 ' adUseClient, use 2(adUseServer) caso queira que o cursos fique no Server objRs.CursorType = 2 'adUseDinamic ou 1 para adUseStatic objRs.PageSize = tamanhoPag 'Tamanho de cada pagina paginada(huashuasuh) objRs.open queryDados ' Sua Consulta está sendo aberta! :O contador = objRs.PageCount ' Aqui é recebido o total de páginas calculada pelo seu BD, essa variável servirá para controle posterior if(pagAtual > contador) then pagAtual = contador 'A página atual nunca poderá ser maior que o total de páginas existentes objRs.AbsolutePage = pagAtual ' Muda o recordSet para a página atual end Sub %> ") For Each campo in obj.Fields %>") obj.MoveNext Wend else Response.Write(" ") end if end sub %> ") For each Coluna in obj.Fields %> Dados não inicializados ou não há registros para paginação. ") end sub %> Avançar Avançar 1) then %> Voltar Voltar Página / pag) then %> &qtd=&txt_nome=>