ti posto tutto il codice che così forse ti è più chiaro...
se poi riesci anche a trovare dove sono gli errori...

codice:
<%
prop1=request("prop1")
prop2=request("prop2")
prop3=request("prop3")
prop4=request("prop4")
prop5=request("prop5")
prop6=request("prop6")


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

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 & "%' & prop2 like '%" & word & "%' &prop3 like '%" & word & "%' &prop4 like '%" & word & "%' &prop5 like '%" & word & "%' &prop6 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("prop1")
	prop2=rs("prop2")
	prop3=rs("prop3")
	prop4=rs("prop4")
        prop5=rs("prop5")
	prop6=rs("prop6")
x=0
conteggio=0

ArrSearch = Split(prop1)
for each Word in ArrSearch
	prova=prop1
	tet="0"
		for y=1 to len (prova)
		tet =instr (prova, word)
		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
%>