Ayberk Atasay'ın blog sayfasındaki kod biraz arasaydın bulurdun kendine göre düzenleyerek kullanabilirsin..

response.write "<ul>"

'Yıllarımızı dizelim. Ben 2008 olarak aldım. Burda 2008 yılından itibaren bulunduğumuz yıla kadar döngü başlatıyoruz.'

for y = 2008 to year(Date())

response.write "<li>"&y&"</li><ol>"

'Aylarımızı döngüye sokuyoruz'

for a = 1 to 12

<li><b>"&a&"</b></li><ol>

'veritabanı bağlantımız ve verilerimiz döngüye giriyor'

Set Rs = Baglanti.execute ("Select * From tbl_veri where year(tarih) = "&y&" and month(tarih) = "&a&"")

Do While Not Rs.eof

Response.Write "<li>"&day(Rs("tarih"))&": "&Rs("baslik")&"</li>"

Rs.MoveNext

loop

Response.Write "</ol>"

next

Response.Write "</ol>"

next

Response.Write "</ol></ul>"