random kode

Det er langt nemmere at sætte din accesdatabase til at lave vilkårlig tal.

Virker fint for mig.

Lidt omstændig, men her er noget der virker hos mig:

' Danner en adgangskode på 5 tegn (anvender bogstaver og tal). Adgangskoden er Case-sensitiv.
Dim sKode
Dim iKodeLaengde
Function rndKode(iKodeLaengde)
    Dim arrTegn(60)
    arrTegn(0) = "A"
    arrTegn(1) = "B"
    arrTegn(2) = "C"
    arrTegn(3) = "D"
    arrTegn(4) = "E"
    arrTegn(5) = "F"
    arrTegn(6) = "G"
    arrTegn(7) = "H"
    arrTegn(8) = "I"
    arrTegn(9) = "J"
    arrTegn(10) = "K"
    arrTegn(11) = "L"
    arrTegn(12) = "M"
    arrTegn(13) = "N"
    arrTegn(14) = "O"
    arrTegn(15) = "P"
    arrTegn(16) = "Q"
    arrTegn(17) = "R"
    arrTegn(18) = "S"
    arrTegn(19) = "T"
    arrTegn(20) = "U"
    arrTegn(21) = "V"
    arrTegn(22) = "W"
    arrTegn(23) = "X"
    arrTegn(24) = "Y"
    arrTegn(25) = "Z"
    arrTegn(26) = "a"
    arrTegn(27) = "b"
    arrTegn(28) = "c"
    arrTegn(29) = "d"
    arrTegn(30) = "e"
    arrTegn(31) = "f"
    arrTegn(32) = "g"
    arrTegn(33) = "h"
    arrTegn(34) = "i"
    arrTegn(35) = "j"
    arrTegn(36) = "k"
    arrTegn(37) = "l"
    arrTegn(38) = "m"
    arrTegn(39) = "n"
    arrTegn(40) = "o"
    arrTegn(41) = "p"
    arrTegn(42) = "q"
    arrTegn(43) = "r"
    arrTegn(44) = "s"
    arrTegn(45) = "t"
    arrTegn(46) = "u"
    arrTegn(47) = "v"
    arrTegn(48) = "w"
    arrTegn(49) = "x"
    arrTegn(50) = "y"
    arrTegn(51) = "0"
    arrTegn(52) = "1"
    arrTegn(53) = "2"
    arrTegn(54) = "3"
    arrTegn(55) = "4"
    arrTegn(56) = "5"
    arrTegn(57) = "6"
    arrTegn(58) = "7"
    arrTegn(59) = "8"
    arrTegn(60) = "9"

    sKode = ""
    Randomize
    Do Until Len(sKode) = iKodeLaengde
          sAdgangsKode = sKode & arrTegn(int(rnd()*60))
    Loop
    rndKode = sKode
End Function

call rndKode(5)

http://www.magik.dk/test/vis_funktion.asp?id=3

Prøv lige denne:
randomize
pwdlen=6            'Hvor langt skal passwordet være i karakterer.
password=""
pwdchr="abcdefghjkmpqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ123456789"  'Hvilke karakterer må indgå i passwordet
chrlen=len(pwdchr)
for n=1 to pwdlen
x=Int((chrlen - 1 + 1) * Rnd + 1)
password=password & mid(pwdchr,x,1)
next
response.write password

ok jeg indrømmer at "min" ligner ret meget den magik har lagt et link på

:)