Hite Göre Kayıtları Sıralama

<%
Set Sur = Server.createObject("ADODB.Connection" )
Sur.Open "Driver={Microsoft Access Driver (*.mdb )}; dbq=" & server.mappath("makale.mdb" )
Set efkan = Server.createObject("ADODB.Recordset" )
sor = "select * from makale order by hit desc"
efkan.Open sor,Sur,1,3

if efkan.eof or efkan.bof then
Response.Write "<B>KAYIT BULUNAMADI..</B>"
response.end
end if

for i = 1 to 10
if efkan.eof then exit for
%>

<%=efkan("baslik" )%>"> <BR>

<%
efkan.movenext
Next
efkan.close
set efkan = Nothing
%>