Hazır olarak kullandığınız bir sisteminiz var ve bu sisteminize en yeni ve/veya en popüler verileri listeleyen bir kod oluşturmak istiyorsunuz. İlk önce veritabani.mdb adlı bir veritabanı dosyanız olsun. Veritabanı dosyası içerisinde TABLO adında bir tablo oluşturun, tablo içerisinde ID, VERI ve HIT şeklinde sütunlar oluşturun. Bunları hazırladıysanız aşağıdaki kodları incelemeye geçebiliriz.

<%
set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb"))
%>
<%
Set veri = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from TABLO ORDER BY HIT DESC"
veri.Open Sorgu,Baglanti,1,3
If veri.eof then
%>
Kayıtlı Veri Bulunamadı
<%
Else
for i = 1 to 10
if veri.eof then exit for
%>
<%=veri("VERI")%> (<%=veri("HIT")%>)<br>
<%
veri.movenext
Next
End if
veri.Close
Set veri=Nothing
%>
<%
Baglanti.Close
Set Baglanti= Nothing
%>

İlk başta bağlantımızı açıyoruz ve veritabanı yolunu yazıyoruz. Ondan sonra esas işlemlere geçiyoruz. İlk öncelikle tablomuza erişmek için kodu yazıyoruz ve ORDER BY HIT DESC kısmında da HIT sütunundaki verilere göre sıralama yapıyoruz. Tam tersi sıralama yapmak için DESC yerine ASC yazmalısınız. HIT yerine ID yazarsanız eklenme sırasına göre listelemiş olursunuz.

Daha sonra tablomuzda veri var mı yok mu diye kontrol ettiriyoruz, eğer veri yoksa ekrana Kayıtlı Veri Bulunamadı yazdırıyoruz. Eğer veri varsa devam ediyoruz. Burada 10 olarak belirtilen sayı kaç tane listelemek istiyorsanız buraya o sayıyı yazınız.

Verileri veri adına ve hit sayısına göre yazdırıp, bir satır atlattırıyoruz. Ve sonunda yukarıda açtığımız bağlantıları kapatıyoruz.