Buyur kardeşim...

<%
strsql = "SELECT Top 10 * FROM tabloismi"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2

Do while not rs.eof

%>
Veriyi döngüye sokacağın alan...
<%
rs.movenext
loop
rs.close
%>