Salve a tutti,

ho un problema non da poco: non riesco a capire perché questo codice non funzioni.

Potreste testarlo?

Il mio problema è se inserisco un punto di interruzione, il codice funziona egregiamente. Se lo elimino mi viene restituita sempre la stessa stringa.



Private rnd As Random

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim db As New DataAdmin

Dim c, strRnd As String

For i As Integer = 1 To 999
Response.Write(myrnd() & "
")
Next


End Sub

Function myrnd() As String

Dim rnd As Random, numero As Integer, arrLettere As New ArrayList, codice As String

arrLettere.Add("A")
arrLettere.Add("B")
arrLettere.Add("C")
arrLettere.Add("D")
arrLettere.Add("E")
arrLettere.Add("F")
arrLettere.Add("G")
arrLettere.Add("H")
arrLettere.Add("I")
arrLettere.Add("J")
arrLettere.Add("K")
arrLettere.Add("L")
arrLettere.Add("M")
arrLettere.Add("N")
arrLettere.Add("O")
arrLettere.Add("P")
arrLettere.Add("Q")
arrLettere.Add("R")
arrLettere.Add("S")
arrLettere.Add("T")
arrLettere.Add("U")
arrLettere.Add("V")
arrLettere.Add("W")
arrLettere.Add("X")
arrLettere.Add("Y")
arrLettere.Add("Z")

rnd = New Random


'1 numero
numero = rnd.Next(0, 9)
password = CStr(numero)
'2 lettere
numero = rnd.Next(0, 25)
password &= arrLettere(numero)
numero = rnd.Next(0, 25)
password &= arrLettere(numero)
'2 numeri
numero = rnd.Next(10, 99)
password &= CStr(numero)
'1 lettera
numero = rnd.Next(0, 25)
password &= arrLettere(numero)
'3 numeri
numero = rnd.Next(100, 999)
password &= CStr(numero)
'1 lettera
numero = rnd.Next(0, 25)
password &= arrLettere(numero)


Return codice

End Function