<%
Response.Write PasswordRandomiz(10)

Function PasswordRandomiz(varLenght)
Do Until i = varLenght
Randomize
varRND = Int(RND * 61) + 1
If varRnd <=10 Then
varRND = varRND + 47
ElseIf varRnd <=36 Then
varRND = varRND + 54
Else
varRND = varRND + 60
End If
Select Case varRND

Case 108
'Dummy - inget händer!
Case Else
varPW = varPW & Chr(varRND)
i = i + 1
End Select
Loop
PasswordRandomiz = varPW
End Function
%>