Necessario oggetto

[Grinder]

Mi da un errore 424 "Necessario oggetto: " alla riga in rosso, ma non capisco perchè

<%
dim ricerca
dim parole

ricerca = Request.QueryString("cerca")
parole = Split(ricerca," ")

for x=0 to Ubound(parole)
rs.source = rs.source & " keywords LIKE '%"&parole(x)&"%' AND" 
next

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_camp3000_STRING
rs.source = "SELECT * FROM campeggi WHERE Left(rs.source,len(rs.source)-5) ORDER BY punteggio DESC"
rs.Open rs.source
%>

Questo quando ricerco una parola, mentre quando faccio una ricerca "in bianco" mi da

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

Che vuol dire previsto 1???

[Sypher]

Originariamente inviato da Grinder
Mi da un errore 424 "Necessario oggetto: " alla riga in rosso, ma non capisco perchè

<%
dim ricerca
dim parole

ricerca = Request.QueryString("cerca")
parole = Split(ricerca," ")

Set rs = Server.CreateObject("ADODB.Recordset") 

for x=0 to Ubound(parole)
rs.source = rs.source & " keywords LIKE '%"&parole(x)&"%' AND"
next


rs.ActiveConnection = MM_camp3000_STRING
rs.source = "SELECT * FROM campeggi WHERE Left(rs.source,len(rs.source)-5) ORDER BY punteggio DESC"
rs.Open rs.source
%>

[Grinder]

Grazie, però ora mi da sempre

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

a questa riga:

rs.Open rs.source

Cosa vuol dire? Ho provato a metterci ",3,3", ma non funziona

[albis]

scrivi così
<%
dim ricerca
dim parole
dim strLike
dim strSql
ricerca = Request.QueryString("cerca")
parole = Split(ricerca," ")

Set rs = Server.CreateObject("ADODB.Recordset")

for x=0 to Ubound(parole)
strLike = strLike & " keywords LIKE '%"&parole(x)&"%' AND"
next


rs.ActiveConnection = MM_camp3000_STRING
strSql = "SELECT * FROM campeggi WHERE " & Left(strLike,len(strLike)-5) & " ORDER BY punteggio DESC"

rs.Open(strSql,MM_camp3000_STRING)
%>

[Shagrat]

l'errore non sta nell'apertura del recordset ma nella query...fattela stampare

[Grinder]

Ho provato con il "on error resume next", ma lo ignora e da sempre errore (quindi non riesco nemmeno a stampare la query), adesso in

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0414)
Impossibile utilizzare parentesi per la chiamata di routine Sub
/camp3000/result.asp, line 35, column 35
rs.Open(strSql, MM_camp3000_STRING)
----------------------------------^

proprio alla fine della parola STRING e prima della parentesi. Se ci metto le " mi da

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

Che rogna, mi sembra di procedere per tentativi

[albis]

<%
dim ricerca
dim parole
dim strLike
dim strSql
ricerca = Request.QueryString("cerca")
parole = Split(ricerca," ")

Set rs = Server.CreateObject("ADODB.Recordset")

for x=0 to Ubound(parole)
strLike = strLike & " keywords LIKE '%"&parole(x)&"%' AND"
next


rs.ActiveConnection = MM_camp3000_STRING
strSql = "SELECT * FROM campeggi WHERE " & Left(strLike,len(strLike)-5) & " ORDER BY punteggio DESC"

call (rs.Open(strSql,MM_camp3000_STRING) )
%>

[Grinder]

E' questa riga che rompe:

strSql = "SELECT * FROM campeggi WHERE " & Left(strLike,len(strLike)-5) & " ORDER BY punteggio DESC"

che da errore:

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

Se però tolgo "& e &" (come mi dissero in un post precedente) mi torna all'errore di prima...aaaaargh

[albis]

prova così
<%
dim ricerca
dim parole
dim strLike
dim strSql
ricerca = Request.QueryString("cerca")
parole = Split(ricerca," ")

Set rs = Server.CreateObject("ADODB.Recordset")

for x=0 to Ubound(parole)
strLike = strLike & " keywords LIKE '%"&parole(x)&"%' AND"
next

if len("" & strLike) > 0 then
strLike = Left(strLike,len(strLike)-5)
end if

rs.ActiveConnection = MM_camp3000_STRING
strSql = "SELECT * FROM campeggi WHERE " & strLike & " ORDER BY punteggio DESC"

call (rs.Open(strSql,MM_camp3000_STRING))
%>

[teorema55]

Se non passi nessuna parola come input, ti da' errore : parametri insufficienti. In effetti ne aspetta uno, e tu non gliene dai nessuno.

Se passi input l'errore è nella query: qualunque sia il numero delle "parole", la query così conformata ha sempre un "AND" alla fine della condizione "like" e non va bene............se è come penso, dovrebbe funzionare facendo:

for x=0 to Ubound(parole)
strLike = strLike & " keywords LIKE '%"&parole(x)&"%'"

if not x=Ubound (parole) then
strLike=strLike" & " AND"
end if

next