Indice non incluso nell'intervallo

[neroniano]

Sto cercando di fare l'aggiornamento di un record e ricevo l'errore:

Indice non incluso nell'intervallo: '[number: 3]'

Questo perchè nella variabile selecto, in questo caso ci sono solo tre valori per cui giustamente mi tira fuori quell'errore.
Come posso risolvere?
Grazie

 
    Dim selecto
    selecto = CampiRS("gestione_1")
    
    Dim ricevo
    Ricevo=split(selecto,",")

    set aggiorno = Server.CreateObject("ADODB.Command")
    aggiorno.ActiveConnection = "dsn=pwd;"
    aggiorno.CommandText = "UPDATE Chiamate  SET CodPr =  '" + ricevo(0) + "', CodPr_1 = '" + ricevo(1) + "', CodPr_2 = '" + ricevo(2) + "', , CodPr_3 = '" + ricevo(3) + "' WHERE NumChiamata = 'X1RTU3'"
    aggiorno.CommandType = 1
    aggiorno.CommandTimeout = 0
    aggiorno.Prepared = true
    aggiorno.Execute()

[Sypher]

controlla l'Ubound dell'array

[neroniano]

Intendi un cosa del genere?

Dim selecto
selecto = CampiRS("gestione_1")
Dim ricevo
Ricevo=split(selecto,",")

Dim i
For i = LBound(ricevo) To Ubound(ricevo) Step2

set aggiorno = Server.CreateObject("ADODB.Command")
aggiorno.ActiveConnection = "dsn=pwd;"
aggiorno.CommandText = "UPDATE Chiamate  SET CodPr =  '" + ricevo(0) + "', CodPr_1 = '" + ricevo(1) + "', CodPr_2 = '" + ricevo(2) + "', , CodPr_3 = '" + ricevo(3) + "' WHERE NumChiamata = 'X1RTU3'"
aggiorno.CommandType = 1
aggiorno.CommandTimeout = 0
aggiorno.Prepared = true
aggiorno.Execute()

next

[Sypher]

mmm...no, tu cosa vorresti fare in caso di errore?

[Sypher]

na cosa del genere?

For i = LBound(ricevo) To UBound(ricevo)
If i = 0 Then
    campo = "CodPr"
Else
    campo = "CodPr_" & i
End If
sql = sql & campo & "='" + ricevo(i) + "',"
Next
sql = Left(sql, Len(sql) - 1)
sql = sql & " WHERE NumChiamata = 'X1RTU3'"

[neroniano]

Grazie sypher per ora.

Domani provo e ti faccio sapere.