|
SINDESP-BA NEWS! |
|
<%
intRecsPerPage = ultimos
AbreConexao
set rs=Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM noticias ORDER BY id DESC"
rs.Open sSQL, Conexao,3,3
rs.PageSize=intRecsPerPage
for intRecord=1 to rs.PageSize
If Len(rs("assunto")) < 25 Then
Resumo = rs("assunto")
Else
Resumo = Mid(rs("assunto"),1,30) & "..."
End If
%>
<%=rs("data")%> <% rs.MoveNext If rs.EOF then Exit For End if next rs.Close %> |