Problemi motore di ricerca interno

[jotaro_76]

Ciao a tutti,
ho un problema con un motore di ricerca interno al sito. Se cerco una sola parola funziona tutto se ne cerco più di una mi da errore
"previsto 1"

vi allego il codice di errore:

im stmSQL, tmpSQL
stmSQL = "SELECT * FROM prodotto WHERE "
tmpSQL = "(titolo LIKE "

Dim Pos
Pos = 1
While Pos > 0
  Pos = InStr(1, strRicerca," ")
   If Pos = 0 Then
     'Ho trovato una sola parola nella stringa da ricercare
     tmpSQL = tmpSQL & "'%" & strRicerca & "%')"
   Else
     'Ci sono più parole, quindi concateno le istruzioni LIKE SQL 
     tmpSQL = tmpSQL & "'%" & Mid(strRicerca,1,Pos) & "%' " & OperatoreBooleano & " prodotto LIKE "
     strRicerca = Mid(strRicerca,Pos+1,len(strRicerca))
   End If
Wend
'Costruisco la stringa finale dell'istruzione SQL
stmSQL = stmSQL & tmpSQL & " AND idprodotto > " & ID
stmSQL = stmSQL & " ORDER BY titolo asc"

ciao e grazie

[Roby_72]

Fatti stampare la query prima di eseguirla così verifichi l'errore:

response.write(stmSQL)
response.end

Roby