Kafanda bir algoritma oluşturan lazim.
Tablonda KayitYili ve KayitNumarasi adında iki tane sayı tipinde sütun olduğunu varsayarak

<%
Function Yenisayiver(NeyeGore)
DbSonuc = Sorgun.Execute("Select Count(IDno) From Tablomuz Where KayitYili="&NeyeGore&")
Yenisayiver = DbSonuc + 1
End Function

Sub OgrenciKayit()
Yilimiz = Year(Now)
Sorgun.Execute("insert into Tablomuz (AdSoyad,KayitYili,KayitNumarasi) Values ('Adisoyadi',"&Yilimiz&","&Yenisayiver(Yilimiz)&");")
End Sub
'Yani = Git veritabanına bak o yıl için kactane kayıt yaptık bir sonuca bir ekle ve yeni sayıya göre kayıt yap.
%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 16:46:04 -->-> Daha önceki mesaj 16:34:53 --

Bu çözümlerden bir tanesi, ayni işi veritabaninda saklı yordam ile de yapabilirsin.