Top 10 Poster

how to see top ten poster?

<%
Set baglanti=Server.CreateObject("ADODB.connection" )
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("dbpath/mdnname.mdb" )
SQL="select * from tblAuthor ORDER BY No_of_posts desc"
Set kayitseti = baglanti.Execute(SQL)
i=1
Do While i<31 and not kayitseti.Eof
%>
<%=kayitseti("Username")%>&nbsp;  <%=kayitseti("No_of_posts")%> <br>
<% kayitseti.Movenext
i=i+1
Loop
kayitseti.Close
baglanti.Close %>

For MS Access and MSSQL you can just do:

SQL="select top 10 * from tblAuthor ORDER BY No_of_posts desc"

For MySQL you can do this:

SQL="select * from tblAuthor ORDER BY No_of_posts desc limit 0,10"

10 being the number of users you wish to display. Though if you are displaying them in forum pages (eg ones that include "common.asp") then you do not need to connect to the database and can just use adoCon and rsCommon