Proa a scrivere:

<%
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(password) = 10 ' qui imposti la lunghezza della password
carattere = Int(Rnd(37) + 1) ' Genera un valore casuale compreso tra 0 e Z.
password = password & Mid(caratteri,carattere,1)
Loop
Response.Write ("La tua password è : " & password & "")
%>

A me così non da più l'errore ma ti darà

La tua password è:0000000000