<%
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.
%>