banale!

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT TOP 6 * FROM news ORDER BY ID DESC"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

<% RecSet.movenext %>
<% Do Until RecSet.EOF %>