<% %>

-------------------------------------------------------------------------------------------

<% sqlstmt = "SELECT * FROM noticias ORDER BY ID desc, id desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "" & date1 & "" description = name1 %> <% rs.MoveNext End If Next%> <% =link %> -- <% =description%>