FreeAsp.Html.it

[andreathedove]

Salve,
ho scarico dalla sezione FreeAsp di Html.it questo codice per creare password in modo casuale:

<%
function password(intLung)
dim ctInd
dim chrCasuale
dim intCasuale
randomize()
for ctInd = 1 to intLung
intCasuale = cint ( ( 3 - 1 ) rnd() + 1 )
select case intCasuale
case 1
chrCasuale = cint ( ( asc("z") - asc("a") ) rnd() + asc("a") )
case 2
chrCasuale = cint ( ( asc("9") - asc("0") ) rnd() + asc("0") )
case 3
chrCasuale = cint ( ( asc("Z") - asc("A") ) rnd() + asc("A") )
end select

password = password &amp; chr(chrCasuale)
next
end function
response.write password(8)
%>

Testando lo sctipt su server Aruba mi da il seguente errore:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/ranpass.asp, line 8

intCasuale = cint ( ( 3 - 1 ) rnd() + 1 )
------------------------------^

Dove sbaglio ?

Grazie,
Andrea

[andreathedove]

nessuno sa risolvere il problema ?

[andreathedove]

Lo script lo trovato su questo sito, mi smebra strano che nessuno sappia risolver eil problema...

[FuocoGreco]

Originariamente inviato da andreathedove

intCasuale = cint ( ( 3 - 1 ) © rnd() + 1 )

Al posto di © ci va un operatore (+ oppure - ecc...)