<% SQL = "SELECT * FROM noticias ORDER BY CDATE(DATA) DESC;" Set rs = Server.CreateObject("ADODB.recordset") rs.Open sql, Conexao, adOpenStatic, adLockReadOnly, adCmdText rs.Pagesize=3 If request.QueryString("pagina") = "" Then intpagina=1 Else if Cint (request.QueryString("pagina")) < 1 Then intpagina=1 else if Cint (request.QueryString("pagina")) > rs.Pagecount Then intpagina = rs.Pagecount else intpagina = Cint(request.QueryString("pagina")) end if end if end if IF RS.recordcount <> 0 then rs.AbsolutePage = intpagina end if %>

<% for x = 1 to 3 %> <% if not rs.eof then %> " class="saiba_mais"> <%response.Write(RS("data"))%> " class="txt_titulo_noticia">
<%response.Write(mid(RS("nome"),1,65))%> ... " class="corpo1">
<%response.Write(mid(RS("texto"),1,120))%> ...

<%rs.movenext%> <% end if %> <%next%>

<% strScriptName = request.ServerVariables("SCRIPT_NAME") %> <% If intpagina <= 1 Then ' response.write " < anterior" Else response.write " < anterior " End If %> <% If intpagina = rs.Pagecount Then 'response.write " próxima >" Else response.write " próxima >" End If %> <% rs.close conexao.close %>