Generate Random Password

[Angelika]

CALL RandomPassword(Passgenerat)
response.write Passgenerat

<%
Function RandomPassword(Passgenerat)
Passgenerat = ""
Randomize
For i = 1 to 8
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPass = Chr(intNum)
Case 2
strPass = Chr(intUpper)
Case 3
strPass = Chr(intLower)
End Select
Passgenerat = Passgenerat & strPass
Next
End Function
%>