Il ciclo non funziona POSSIBILE????

[aledg]

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?

[aledg]

Microsoft VBScript compilation error '800a03ea'

Syntax error

/playweb/tecnici/abbonamenti/test.asp, line 6

Function Password_GenPass( nNoChars, sValidChars )
^
-------------------------
con questo tipo di ciclo
-------------------------
<%
i=0
Do Until i=20

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>")

i=i+1
Loop
%>
---------------------------------------------

[aledg]

up

up
up

[aledg]

Scusate ho perso 2 anni di vita a fare un ciclo senza aver letto bene il codice. E' una funzione!!!!!!!!!!!!!!!!!!!!!!!


Basta richiamare la funzione!!!!!

se servisse:


password = Password_GenPass( 6, "" )
Response.Write("

"&password&"</p>")


dopo la funzione basta riscrivere questi due per generare un nuovo codice