FUNCTION funkGetPWD(intLoop)
' ## PASSWORD GENERATOR
Randomize ' Initialize random-number generator.
DO UNTIL i = CInt(intLoop)
strPassword = strPassword & chr((25 * Rnd) + 65)
i = i + 1
LOOP
funkGetPWD = i
END FUNCTION
response.write funkGetPWD(6)
Hur göra? Det ska stå DO UNTIL i = 6
Alltså sex tecken...
FUNCTION funkGetPWD(intLoop)
' ## PASSWORD GENERATOR
Randomize ' Initialize random-number generator.
DO UNTIL i = CInt(intLoop)
strPassword = strPassword & chr((25 * Rnd) + 65)
i = i + 1
LOOP
funkGetPWD = strPassword
END FUNCTION
response.write funkGetPWD(6)