| <%
Function RasgeleSayi(basamak)
Dim Ilk, Son, i
Ilk = 1
For i = 1 To Int(basamak) - 1
Ilk = Ilk * 10
Next
Son = (Ilk * 10) - 1
Randomize
RasgeleSayi = Int((Son - Ilk + 1) * Rnd + Ilk)
End Function
%>
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
