Ciao ragazzi, mi date una mano per questo errore?
Ho fatto una funzione che prende da un database il valore del campo categoria strutturato in questo modo: "staff;internet;" e inserisce tramite split ogni parola in un array.
Da questo array poi elimino i dati simili e nel nuovo array inserisco la voce e il numero di elementi trovati,separato da ";".
Ecco il codice:
n = 0
Do while NOT ecRS.EOF
campoCategoria = Split(ecRS("categoria"),";")
For i = 0 To Ubound(campoCategoria)
83==> elencoCategoria(i + n) = campoCategoria(i)
Next
n = n + i
ecRS.MoveNext
Loop
x = 0
For i = 0 To Ubound(elencoCategoria)
If Len(elencoCategoria(i)) > 0 Then
categoria(x) = elencoCategoria(i) & ";1"
x = x + 1
For z = (i + 1) to Ubound(elencoCategoria)
valCategoria = Split(categoria(x),";")
If valCategoria(0) = elencoCategoria(z) Then
newVal = valCategoria(1) + 1
categoria(x) = valCategoria(0) & ";" & valCategoria(1)
elencoCategoria(z) = ""
End If
Next
End If
Next
L'errore riscontrato è:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'elencoCategoria'
/include/funzioni.asp, line 83
Vuol dire che devo dichiarare l'array?Ma se non so quant'è la dimensione finale come faccio?
GRAZIE![]()