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