Generator til 10-cifret nummer

Jeg har denne til som jeg har brugt til at lave et tilfældigt password på X antal karakter rettet til så den kun tager tal i strengen.:


function lavPassword(antal)
  tilladtkarakter = "1234567890"
  str = ""
  for i = 1 to antal
    randomize
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function


Response.Write "Test 10 tal : " & lavPassword(10) & "<br>"


Måske det kan bruges..

randomize
taeller = 5
st = "1234567890"
l = len(st)
for i = 0 to taeller   
      t = int(l*rnd) + 1
      strTest = strTest + (mid(st, t,1))
next
   
Response.Write strTest

proev med:

randomize
str = ""
for i = 1 to 10
  str = str & (rnd()* 9)
next

min version skal lige aendres til:
randomize
str = ""
for i = 1 to 10
  str = str & fix(rnd()* 9)
next

hmmm - der skal lige stå taeller = 9 istedet for taeller = 5 ;-)

Takker!