<%
sql="select top 11 * from news where a='13' and ok=true order by pai desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,3
%>

 <%do while not rs.eof%>

<%rs.movenext

loop
rs.close %>