Live with Suffering

<%
'-------------------------------------------------------------------------------------------
'If you want to constant first word of password then place the word at the beginning in the like
'Passgenerat = "Planet-source-code"
'Created by Bhushan Paranjpe
'-------------------------------------------------------------------------------------------
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
response.write(Passgenerat & "<br>")
%>