BigCoder'ın verdiği örnek kullanılabilir. Ancak tablodan bir kayıt silindiğinde, bazı kayıt numaraları tekrar verilir.
Bunu önlemek için; fonksiyondaki sorguyu "Select KayitNumarasi From Tablomuz Where KayitYili="&NeyeGore&" Order By KayitNumarasi Desc Limit 0, 1" şeklinde değiştirmekte yarar var.
Mysql veritabanı kullandığını varsayarak "limit" kullandım. Diğerleri için "select top 1" yazabilirsin.
elinde kod varsa yardımcı olayim
kayıt formundan gelen bilgileri kayıt eden sayfam bu..
<!--#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 %>buda baglanti kodu;
Alıntı
<%
mysql_server = "*****"
mysql_user = "*****"
mysql_pass = "*****"
mysql_db = "*****"
Set adoCon = Server.createObject("Adodb.Connection")
adoCon.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & mysql_server & "; UID=" & mysql_user & "; pwd=" & mysql_pass & "; db=" & mysql_db & "; stmt=SET NAMES 'latin5';"
%>