<%
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) )
%>