Indice non incluso nell'intervallo

[Utente]

Ciao ragazzi ho un problema...tramite uno script estraggo dei dati da un file di testo e li carico nel DB.

Il problema è il seguente, alcuni articoli hanno come dato Categoria una stringa di questo tipo:

Informatica;computer;celeron

con il seguente script:

If INSTR(strCategoria, ";") then

Dim arrCategoria
    arrCategoria = Split(strCategoria, ";")
    strCategoria= arrCategoria(2)

else

end If

estraggo solo l'ultimo dato (celeron) e fin qui tutto ok...quando però ho ad esempio un articolo con solo due campi nel dato Categoria ad esempio:

Informatica;computer

lo script giustamente mi genera l'errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: '[number: 2]'
line 75

Come posso risolvere?

Grazie

[Roby_72]

Se ti serve sempre l'ultimo usa l'Ubound(arrCategoria) anziché puntare il numero dell'indice.
In questo modo sei sicuro di prendere in ogni caso l'ultimo.

Roby

[Utente]

Grazie Mod...risolto.