Errore "prevista fine istruzione"

[Grinder]

ricerca = Request.QueryString("cerca")
parole=Split(ricerca," ")
for x=0 to Ubound(parole)
Recordset1.Source = Recordset1.Source" keywords LIKE '%"&parole(x)&"%' AND " 
next
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_camp3000_STRING
Recordset1.Source = "SELECT * FROM campeggi WHERE
"&Left(Recordset1.Source,len(Recordset1.Source)-5)"  ORDER BY
punteggio DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Mi da il seguente errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/camp3000/result.asp, line 20, column 37
Recordset1.Source = Recordset1.Source" keywords LIKE
'%"&parole(x)&"%' AND "
------------------------------------^

Non riesco a capire perchè!

[Francis87]

a cosa servirebbe quell' AND che hai messo alla fine?

[Grinder]

Effettivamente ora che mi ci fai pensare...a niente!!! E' uno script che mi ha passato uno di questo forum, l'ho interpretato male...

Ora l'ho tolto, però continua a darmi errore...

[Grinder]

C'è nessuuuuuunoooooooooo

[Roby_72]

Posta lo script completo, la riga dell'errore e il tipo di errore.

Roby

[Grinder]

L'errore è:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/camp3000/result.asp, line 20, column 37
Recordset1.Source = Recordset1.Source" keywords LIKE
'%"&parole(x)&"%' AND "
------------------------------------^

La riga interessata:

Recordset1.Source = Recordset1.Source" keywords LIKE '%"&parole(x)&"%' AND "

[Shores]

Originariamente inviato da Grinder
La riga interessata:

Recordset1.Source = Recordset1.Source" keywords LIKE '%"&parole(x)&"%' AND "

Per forza, non ha nessun senso mettere una proprietà seguita da una costante senza nulla in mezzo...

Recordset1.Source = Recordset1.Source & " keywords LIKE '%"&parole(x)&"%' AND "


Ah, lo AND finale è INDISPENSABILE, lascialo dov'è...

[Grinder]

Corretto, l'accetta, ho corretto anche la stringa SQL:

Recordset1.Source = "SELECT * FROM campeggi WHERE "&Left(Recordset1.Source,len(Recordset1.Source )-5)&" ORDER BY punteggio DESC"

però adesso mi da questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi: 'Left'
/camp3000/result.asp, line 30

Uff, dov'è che sbaglio sempre?

[Roby_72]

Recordset1.Source = "SELECT * FROM campeggi WHERE Left(Recordset1.Source,len(Recordset1.Source)-5) ORDER BY punteggio DESC"

Roby

[Grinder]

Di nuovo un errore... , com'è pretenzionso l'ASP!!!!

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/camp3000/result.asp, line 34

Il codice è:

Dim Recordset1
Dim Recordset1_numRows

ricerca = Request.QueryString("cerca")
parole=Split(ricerca," ")
for x=0 to Ubound(parole)
Recordset1.Source = Recordset1.Source & " keywords LIKE
'%"&parole(x)&"%' AND"
next

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_camp3000_STRING
Recordset1.Source = "SELECT * FROM campeggi WHERE
Left(Recordset1.Source,len(Recordset1.Source)-5) ORDER BY
punteggio DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Però ormai siamo vicini alla soluzione....lo spero!!