Ciao a tutti,
Poiché mi sono arenato (sarà che poi il dopo pranzo è sempre più pesante ), avrei bisogno di un piccolo aiutino.

Ho una piccola routine in VBA che simula un estrazione di numeri casuali, ma trovo difficoltà a riportarla in ASP (soprattutto non so se è corretto e/o bello il "GoTo").

La routine è la seguente:

codice:
Sub Estrazione()
Dim i As Integer, Limite As Integer, cod As String, estratto As Integer, usciti As String, finito As Boolean

finito = False
Limite = 8
i = 0
usciti = ""
While Not finito = True
Inizio:
    Randomize
    estratto = CInt((Limite - 1) * Rnd() + 1)
    If InStr(1, usciti, estratto) Then
        GoTo Inizio
    Else
        i = i + 1
    End If

    If i <= 4 Then
        cod = "A" & i
    ElseIf i >= 5 And i <= 8 Then
        cod = "B" & (i - 4)
    End If
    
    MsgBox "Codice:" & cod & " - Squadra:" & estratto, vbOKOnly, "Sorteggi"
    usciti = usciti & estratto
    If cod = "B4" Then
        finito = True
    End If
Wend
End Sub
In sostanza la routine sceglie casulamente un numero da 1 a 8 perché deve abbinarlo a dei codici che vanno da A1 a B4; il GoTo ha lo scopo di rimandare all'inizio della routine se il generatore di numeri casuali "caccia" fuori un numero già "estratto".

Qualcuno sa darmi consigli su come "ottimizzare" questa routine per ASP?

Grazie e ciao.