<% Response.Expires=0 Response.CacheControl="no-cache" on error resume next %> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConnection 'pega a pagina atual pagina = request.ServerVariables("SCRIPT_NAME") 'numero de registros por pagina... pageSize = 16 if(len(Request.QueryString("p")) = 0 )then paginaAtual = 1 else paginaAtual = CInt(Request.QueryString("p")) end if ' conta o numero de registros... sql = "SELECT COUNT(*) AS total "_ &"FROM tb_noticias" set rs = Objconn.execute(sql) 'total de registros recordCount = Cint(rs("total")) 'calculamos o número de páginas NUMERO = (recordCount/pageSize) 'função para arredondar para cima NUMERO1 = NUMERO NUMERO2 = Fix(NUMERO) If NUMERO1 <> NUMERO2 Then NUMERO = NUMERO2 + 1 End If pageCount = NUMERO If pageCount < 1 then pageCount = 1 end if rs.Close() Flag1 = INT(paginaAtual / pagesize) PI = INT(Flag1 * pagesize) IF PI = 0 THEN PI = 1 END IF PF = PI + pagesize - 1 strQuery = "SELECT * "_ &"FROM tb_noticias "_ &"ORDER BY id_noticia DESC "_ &"LIMIT "&(paginaAtual - 1) * pageSize&" , "&pageSize&"" Set ObjRs = objConn.Execute(strQuery) 'Criamos as Validações if ObjRs.eof then %>

 

  
   Nenhuma notícia encontrada!
 
  <% Response.End else %>
Total de <%=recordcount%> cadastros

<%do while not ObjRs.eof%> <% ObjRs.MoveNext() loop ObjRs.Close() Set ObjRs = nothing Set Conn = nothing %>
<%=Server.HTMLEncode(ObjRs("titulo"))%>


<% ' cria os links de paginas... IF CInt(paginaAtual) > 1 THEN %> Primeira <%Else%> Anterior <% End if if CInt(paginaAtual) > 1 then %> Anterior <%Else%> Anterior <% End if for i=1 to pageCount %> <%=i%> <% next IF (CInt(paginaAtual) < pagecount) THEN IF CInt(PF) <> pagecount THEN %> Próxima <% End if Else %> Próxima <% End if IF (CInt(paginaAtual) <> pagecount) THEN IF CInt(PF) <> pagecount THEN %> Última <% End if Else %> Próxima <% End if %> Página <%=paginaAtual%> de <%=pagecount%>
<% End if 'ref. validação se vazio %>