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")%>  "> "><%=Resumo%>
<% rs.MoveNext If rs.EOF then Exit For End if next rs.Close %>