Kayıt numarası verdirme?

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

<!--#include file="baglanti.asp"-->
 
<%
dim rsUye1
Dim  DbSonuc
KAYIT_NO=Request.Form("KAYIT_NO")

strSQL = "SELECT KAYIT_NO FROM UYELER WHERE KAYIT_NO LIKE '"& KAYIT_NO &"'"
set rsUye1 = server.CreateObject("adodb.recordset")
rsUye1.Open strSQL, adocon

if NOT rsUye1.bof or KAYIT_NO="2013/" then
response.Write("<br/><br/><img src='images/hata.gif' /><br/><br/>Bu başvuru numarası zaten kayıtlı.<br/><br/>")
response.Write("<img src='images/ok.gif' /> <a href=JavaScript:history.go(-1)>Geri dönüp başvuru numarasını kontrol ediniz.</a><br><br><br><br>")
else

KAYIT_TARIHI=Request.Form("KAYIT_TARIHI")
UYE_TELEFON=Request.Form("UYE_TELEFON")
KAYIT_TURU=Request.Form("KAYIT_TURU")
ekozellik=Request.Form("ekozellik")
FIRMA_ADRES=Request.Form("FIRMA_ADRES")
TALEP=Request.Form("TALEP")
BEDEL=Request.Form("BEDEL")

if sString = "" then
dim  dtToday
dtToday = date()

strSQL = "SELECT * FROM UYELER"
set rsUye = server.CreateObject("adodb.recordset")
rsUye.Open strSQL, adocon,1,3
rsUye.AddNew

rsUye("KAYIT_TARIHI")=KAYIT_TARIHI
rsUye("KAYIT_NO")=KAYIT_NO
rsUye("TC_NO")=TC_NO
rsUye("UYE_ADI")=UYE_ADI
rsUye("UYE_TELEFON")=UYE_TELEFON
rsUye("KAYIT_TURU")=KAYIT_TURU
rsUye("ekozellik")=ekozellik
rsUye("UYE_ADRES")=UYE_ADRES
rsUye("FIRMA")=FIRMA
rsUye("FIRMA_ADRES")=FIRMA_ADRES
rsUye("TALEP")=TALEP
rsUye("BEDEL")=BEDEL

rsUye.Update
rsUye.close
set rs=nothing
response.Write("<img src='images/tamam.png'/><br><br><br>")
response.Write("Başvuru Başarıyla Alınmıştır.<br><br><br><br>")
response.Write("<a href=basvurular.asp>Başvurulara Geri Dön</a><br><br><br>")
%>

<%else%>
    
<% =sString %>   								

<% end if %>
<% end if %>