<% 'prepara paginacao if len(request.querystring("modo")) = 0 then wpesquisa = 30 wproximo = 30 winicio = "s" wantes = 0 else wpesquisa = request.querystring("modo") & ", 30" wproximo = request.querystring("modo") + 30 wantes = request.querystring("modo") - 30 winicio = "n" if wproximo <= 30 then winicio = "s" end if end if wdados_passados = request.querystring wpos = InStr(1, wdados_passados, "&") if wpos > 0 then wdados_passados = mid(wdados_passados, wpos + 1, len(wdados_passados)) end if SQL = "" SQL = Fpesquisa_DB_t (SQL, "Materia_Aprovado", "s", "=") SQL = Fpesquisa_DB_t (SQL, "Secao_Aprovado", "s", "=") SQL = Fpesquisa_DB_n (SQL, "Secao_Versao", session("edicao"), "=") SQL = Fbalanceamento_DB ( SQL, "tSecao", "Secao_Codigo", "tMateria", "Materia_Secao" ) SQL = Fmonta_SQL_c ( "Secao_Nome, Secao_Codigo, Materia_Codigo, Materia_Referencia", "tSecao, tMateria", SQL, "", "Secao_Ordem, Materia_Ordem limit " & wpesquisa ) 'response.write SQL 'response.flush set lido = Conexao.Execute(SQL) wconta = 0 wsecao = 0 do while not lido.eof wconta = wconta + 1 if not wsecao = lido("Secao_Codigo") then wsecao = lido("Secao_Codigo") response.write "
" & lido("Secao_Nome") & "
" end if if len(lido("Materia_Referencia")) > 0 then wtitulo = lido("Materia_Referencia") else wtitulo = FAcerta_data(lido("Materia_Data")) end if response.write "- " & wtitulo & "
" lido.movenext loop response.write "
" if winicio = "n" then %> << Anteriores      <% end if if wconta = 30 then %> Próximas >> <% end if wescolha_3 = Application("coluna_3") %>