ricerca per parole chiave

[evetta]

ciao ragazzi, avrei un problemino...

io passo delle variabili da flash ad asp: con questa pagina devo ricevere le variabili e poi effettuare una ricerca per parole chiave in un db (le key sono le variabili); vorrei inoltre che mi selezionasse dal db tutti quei record che hanno almeno n parole chiave (ancora devo decidere quante)...

ho scritto questo codice, ma quando provo il filmato di flas mi dà errore nell'aprire la pagina asp... che dite?! qual è il problema?!

<%
prop1=request("prop1")

Set Conn = Server.CreateObject("ADODB.Connection")
Connessione="DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")
Conn.Open StrConnessione

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


sql = "SELECT cinlink FROM filmati WHERE"

ArrSearch = Split(prop1)
x=0
for each Word in ArrSearch
	sql= sql & " (prop1 like '%" & word &"%')"
	If Not x = UBound (ArrSearch) Then
		sql=sql & " or"
	End if


rs.Open SQL, Connessione, 3, 3


 Do While Not (rs.EOF)
 	prop1=rs.fields.item("prop1").value
x=0
conteggio=0

ArrSearch = Split(prop1)
for each Word in ArrSearch
	prova=prop1
	tet="0"
		if tet<>0 then
		conteggio=conteggio+1
		prova=mid(prova,tet+1)
		end if
	next
x=x+1
next

rs.movenext
loop

Response.flush
Response.end

rs.Close
Set rs=Nothing
%>

HELP!!!!!!!! :master: :master:

[albis]

che errore ti dà ?

[evetta]

possibile che nessuno mi sappia aiutare?!?!?!?!?

[evetta]

mi dà un errore di apertura del file proprietà.asp, che è il file asp a cui invio le variabili, da cui le ricevo, attraverso cui faccio la ricerca e rinvio il valore dei campi cinlink che corrispondono alla ricerca fatta...

[albis]

quale è il testo dell'errore ?

[evetta]

Error opening URL "http://localhost/proprieta.asp"

(me lo dà in flash quando faccio test movie)

[albis]

così (non potendo vedere la descrizione dell'errore non saprei)

prova a fare un pò di debug
nella pag proprieta.asp cancella tutto (salvandolo su una altra pagina)

poi aggiungi una riga alla volta e provando quando viene generato l'errore

così mi può solo venire in mente che non viene pasato nessun valore

[evetta]

all'inizio me lo dava perchè avevo scritto

Conn.Open StrConnessione

invece che

Conn.Open Connessione

ho corretto ed ho continuato il debug e l'errore me lo ha ridato qundo ho scritto il ciclo for

for each Word in ArrSearch
	sql= sql & " (prop1 like '%" & word &"%')"
	If Not x = UBound (ArrSearch) Then
		sql=sql & " or"
	End if

[albis]

prova a scriverci
for each Word in ArrSearch
sql= sql & " (prop1 like '%" & word &"%')"
next

[evetta]

corretto!!
niente più errore, sei un grande!!!!!

ho continuato il debug...
ora me lo dà quando scrivo

rs.Open sql, Connessione, 3, 3