Errore UBound...

[vanex]

Ciao
Questo codice mi da questo errore:

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'UBound'
/ecommerce/include/inc_catalogo.asp, line 12

Dov'è che sbaglio?

Set Rs = Server.CreateObject("ADODB.Recordset")
ArrQuery = Split(Q, " ")
SQL = " SELECT * FROM QueryProdotti WHERE "
For i = 0 to UBound(Q, 1)
SQL = SQL& " CPrezzo<>'0' AND idCategorie= "&Cat&" AND Prodotto LIKE '%"&ArrQuery(i)&"%' OR PDescrizione LIKE '%"&ArrQuery(i)&"%' OR Codice LIKE '"&ArrQuery(i)&"'"
Next
Rs.Open SQL, Conn, adOpenStatic, adLockOptimistic

[Roby_72]

La linea 12?

Roby

[weppos]

Se splitti Q in un array ArrQuery allora l'array non sarà Q.

For i = 0 to UBound(ArrQuery)

[vanex]

Linea 12 è proprio: For i = 0 to UBound(Q, 1)

Grazie!