<%
intRecsPerPage = ultimos
AbreConexao
set rs=Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM noticias ORDER BY id DESC"
rs.Open sSQL, Conexao,3,3
if rs.recordcount = 0 then
response.write "não existem noticias cadastradas"
else
rs.PageSize=intRecsPerPage
for intRecord=1 to rs.PageSize
If Len(rs("assunto")) < 25 Then
Resumo = rs("assunto")
Else
Resumo = Mid(rs("assunto"),1,140) & "..."
End If
end if
%>