Salve a tutti ho trovato questo codice

----------------------------------

<%
Function Password_GenPass( nNoChars, sValidChars )
Const szDefault = "abcdefghijklmnopqrstuvxyz0123456789"
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
password = Password_GenPass( 6, "" )
Response.Write("

"&password&"</p>")
%>
----------------------------------

e funziona perfettamente, ma se lo inserisco in un ciclo per generare più password si blocca tutto. sto diventando scemo!!!!!

Ho provato di tutto ma si blocca sembre sia con un ciclo do while not sia con un for cosa devo fare?