Merhabalar,

Aşağıdaki kod ile id üretimini yapabilirsiniz. Veritabanında alanı metin olarak açık form içerisine hidden elementine oluşturulan değeri atayın ve bu kaydı veritabanına aktarın bu değer her seferinde yenisi üretileceği için değişken her seferinde yenisi üretilecektir.

<%Function SifreUret(HarfSayi, SayiUret, HarfUret) 'Bir function açtık
 
Harf = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z", "Q", "W", "X") 'Arraya harflerimizi tanıtık.
Sayi = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") 'Şimdide sayılarımızı tanıttık
 
 
If SayiUret = "1" AND HarfUret = "1" Then 'Eğer sayı üretme e harf üretme 1 ise
     Denetim = "3" ' Denetim 3 olsun
Elseif SAyiUret = "1" Then 'Aksi Taktirde SAyiUret 1 ise
     Salla = "2" 'Salla 2 olsun
Elseif HarfUret = "1" Then 'Yoksa HarfUret 1 ise
     Salla = "1" 'Salla 1 olsun
End if
Randomize Timer 'Zamana göre üret
For I = 0 To INT(HarfSayi) 'İstenilen Karaktere kadar dön
 
     If Denetim = "3" Then ' Denetim 3 ise
          Salla = Int((Rnd * 2) + 1) 'Salla 1 veya 2 olsun
     End if
      
     If Salla = 2 Then 'Eğer Salla 2 ise
          Gidecek = Gidecek & "" & Sayi(Int((Rnd * 10) + 0)) 'Bir Sayı üret
     Elseif Salla = 1 Then 'Yoksa Salla 1 ise
          Gidecek = Gidecek & "" & Harf(Int((Rnd * 26) + 0)) 'Harf üret
     End if
 
Next
      
SifreUret = Gidecek
 
End Function
 
Response.Write SifreUret(8, "1", "1") '8 karakterli harf ve sayılardan oluşan bir şifre oluşturur
Response.Write "<br>---"
Response.Write SifreUret(8, "1", "0") '8 Karakterli sayılardan oluşan bir şifre 
Response.Write "<br>---"
Response.Write SifreUret(8, "0", "1") '8 Karakterli harflerden oluşan bir şifre
Response.Write "<br>---"%>

İyi çalışmalar