Consultexto. O texto pronto. :::::: Desde 1997

Produção própria de uma reflexão nascida da prática profissional.

ARTIGOS

<% if totalPaginas > 1 then if intpagina > 1 then %> << Anterior | <% end if p = true if cint(intpagina) < 5 then inicio = 1 fim = menor(10, totalPaginas) else if cint(intpagina+5) > cint(totalPaginas) then inicio = totalPaginas - 9 fim = totalPaginas else inicio = intpagina - 5 fim = intpagina + 5 end if end if 'response.write "in:"&inicio&"] " for i = inicio to fim if i = cint(intpagina) then ip = ""&i&"" else ip = i end if if p then response.write ""&ip&"" p = false else response.write " - "&ip&"" end if next if cint(intpagina) < cint(totalPaginas) then %> | Próxima >> <% end if %>

<% end if %> <% Cadastros.AbsolutePage = intpagina pagAtual = 0 do while pagAtual < Cadastros.PageSize and not Cadastros.eof 'do while not Cadastros.eof pagAtual = pagAtual+1 codigo=Cadastros("codigo") 'titulo=Cadastros("titulo") titulo = checkTexto2(Cadastros("titulo")) titulo = RemoveHTML(titulo) %> <% Cadastros.movenext loop %>

	<%=titulo%>

<% if totalPaginas > 1 then if intpagina > 1 then %> << Anterior | <% end if p = true if cint(intpagina) < 5 then inicio = 1 fim = menor(10, totalPaginas) else if cint(intpagina+5) > cint(totalPaginas) then inicio = totalPaginas - 9 fim = totalPaginas else inicio = intpagina - 5 fim = intpagina + 5 end if end if 'response.write "in:"&inicio&"] " for i = inicio to fim if i = cint(intpagina) then ip = ""&i&"" else ip = i end if if p then response.write ""&ip&"" p = false else response.write " - "&ip&"" end if next if cint(intpagina) < cint(totalPaginas) then %> | Próxima >> <% end if end if %>

Rua Marechal Rondon, 338, Casa Forte, Recife/PE
CEP: 52061-050 - Tel.: (81) 3267-2090 - Tel./Fax: (81) 3442-1444
E-mail: consultexto@uol.com.br