Ho fatto una ricerca sul forum ed ho adattato la mia query in questo modo:

codice:
keyw=split(key," ")
				for i=0 to ubound(keyw)
				next
				Visa ="SELECT * FROM comunica where keys like '%" & keyw(i) & "%' order by ID desc"   				RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic 
				if not RecSet.EOF then 
				do Until RecSet.EOF %>
				[*]&amp;tipo=<%=RecSet("tipo")%>"><%=RecSet("Titolo")%>
<%	RecSet.MoveNext
	Loop
	RecSet.Close
	set RecSet=Nothing
	objConn.Close
	set objConn=Nothing %>
ma quando apro la pagina mi viene fuori questo errore
Indice non incluso nell'intervallo: 'i'
/stampa/articolo.asp, line 73

la linea 73 è quella rossa