Her er en password generator som generere et 8 ciffers password. 
Jeg ved ikke om du ville både have store og små bogstaver, for dette eksempel danner både store og små bogstaver samt tal.
<%
genPassword = ""
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
      strPartPass = Chr(intNum)
    Case 2
      strPartPass = Chr(intUpper)
    Case 3
      strPartPass = Chr(intLower)
    End Select
  genPassword = genPassword & strPartPass
Next
response.write("Password : " & genPassword & "<br>")
%>