ricerca con più parole in dblog

[davidspy]

ciao qui di seguito ho il codice che cerca una singola parola negli articoli e fa visualizzare i risultati , io vorrei che invece di una singola parola oppure la frase esatta , mi evidenzia anche parole distanti e non vicine . premetto il campo articoli.testo è composto dal nome del file tipo nome.txt che contiene le parole del campo effettive.


non so proprio come fare

<%
	'dBlog 2.0 CMS Open Source
	'Versione file 2.0.0
	'FUNZIONE: questo script si occupa di visualizzare i risultati della ricerca in articoli e fotografie
%>




<%
	Sub Contenuto()
%>
	<div id="briciole">\\ <span><%=Sezione_HomePage%> : <%=Sezione_Cerca%></span></div>
<%
		'Se la ricerca non è abilitata visualizzo il messaggio
		If Abilita_Ricerca = False Then
%>
	<div class="giustificato"><%=Errore_Ricerca_NonAbilitata%></div>
<%
		Else
			Dim SQLArticoli, RSArticoli, Parole, SQLFotografie, RSFotografie, FSTFotografia, ArticoloTrovato, FotografiaTrovata

			'Altrimenti eseguo il controllo sulle parole cercate
			If Request.QueryString("cosa") = "" OR IsNull(Request.QueryString("cosa")) OR Len(Request.QueryString("cosa")) < 3 Then
				Parole = ""
			Else
				Parole = Request.QueryString("cosa")

                           


                             '-----------------------------------------

                               








			End If

			'Il minimo di caratteri richiesti per la ricerca è 3
			If Parole = "" Then
%>
	<div class="giustificato"><%=Errore_Ricerca_Minimo3car%></div>
<%
			Else
%>
	<div class="giustificato"><%=Testo_Seguono_risultati%></div>
	

	<div class="giustificato"><%=Ricerca_Articoli_per%><%=Server.HTMLEncode(Parole)%></div>
	

<%








				'Effettuo la ricerca per parole chiave negli articoli
				SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast FROM Commenti RIGHT JOIN Articoli ON Commenti.IDArticolo = Articoli.ID WHERE  Articoli.Data <= '"& DataToStr(Date()) &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast ORDER BY Articoli.Ora DESC"
				Set RSArticoli = Server.CreateObject("ADODB.Recordset")
				RSArticoli.Open SQLArticoli, Conn, 1, 3

				If RSArticoli.EOF = False Then
					ArticoloTrovato = False

					'E visualizzo gli eventuali risultati
					Do While NOT RSArticoli.EOF

                                          


						If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then
							If InStr(LCase(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0)), LCase(Parole)) > 0 OR InStr(LCase(RSArticoli("Titolo")), LCase(Parole)) > 0 Then
								ArticoloTrovato = True
								StatoAttualeTrailer = Abilita_Trailer
								Abilita_Trailer = True
%>
	<div class="sopra">
		<div class="titolo">
			"><%=Evidenzia(RSArticoli("Titolo"), Parole)%>
		</div>
		<div class="piccolo">
			<%=Contributo_Di%>"><%=RSArticoli("Autore")%><%=Pubblicato_il%><%=StrToData(RSArticoli("Data"))%><%=Pubblicato_alle%><%=StrToOra(RSArticoli("Ora"))%><%=Pubblicato_In%>"><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%><%=RSArticoli("Letture")%><%=Pubblicato_Clic_chiudi%>
		</div>
	</div>

	<div class="giustificato">
		<%=Evidenzia(Trailer(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), "articolo.asp?articolo="& RSArticoli("ID") &"", False), Parole)%>
<%
								If RSArticoli("Podcast") <> "" AND NOT IsNull(RSArticoli("Podcast")) Then
									Call PodcastPlayer(RSArticoli("Podcast"), RSArticoli("Podcast"))
								End If
%>
	</div>

	<div class="sotto">
		">[img]<%=Path_Skin%>articolo.gif[/img]" border="0" /><%=Link_Articolo_permalink%><%If Abilita_Commenti Then%>');<%Else%>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<%End If%>">[img]<%=Path_Skin%>commenti.gif[/img]" border="0" /><%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>)<%End If%>[img]<%=Path_Skin%>storico.gif[/img]" border="0" /><%=Link_Storico%>">[img]<%=Path_Skin%>stampa.gif[/img]" border="0" /><%=Link_Stampa%>
	</div>
	<div class="divider"></div>
<%
								Abilita_Trailer = StatoAttualeTrailer
							End If
						End If
						RSArticoli.MoveNext
					Loop
					If ArticoloTrovato = False Then
%>
	<div class="giustificato"><%=Errore_Articolo_NonTrovato%></div>
<%
					End If
				Else
%>
	<div class="giustificato"><%=Errore_Articolo_NonTrovato%></div>
<%
				End If
				Set RSArticoli = Nothing
%>
	

	<div class="giustificato"><%=Ricerca_Fotografie_per%><%=Server.HTMLEncode(Parole)%></div>
	

<%
				'Effettuo la ricerca per parole chiave nelle fotografie
				SQLFotografie = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM Commenti RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Ora DESC"
				Set RSFotografie = Server.CreateObject("ADODB.Recordset")
				RSFotografie.Open SQLFotografie, Conn, 1, 3

				If RSFotografie.EOF = False Then
					FotografiaTrovata = False

					'E visualizzo gli eventuali risultati
					Do While NOT RSFotografie.EOF
						If Now() > cDate(StrToData(RSFotografie("Data")) & " " & StrToOra(RSFotografie("Ora"))) Then
							If InStr(LCase(RSFotografie("Descrizione")), LCase(Parole)) > 0 Then
								FotografiaTrovata = True
								Set FSTFotografia = CreateObject("Scripting.FileSystemObject")
%>
	<div class="fright">
<%
								If NOT Abilita_ResizeASPNET Then
%>
		">[img]<%If FSTFotografia.FileExists(Server.MapPath(Path_DirPublic & [/img]<%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" />
<%
								Else
%>
		">[img]resize.aspx?img=<%If FSTFotografia.FileExists(Server.MapPath(Path_DirPublic & RSFotografie([/img]<%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&amp;opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" />
<%
								End If
%>
	</div>
	
	<div class="sopra">
		<div class="piccolo">
			<%=Contributo_Di%>"><%=RSFotografie("Autore")%><%=Pubblicato_il%><%=StrToData(RSFotografie("Data"))%><%=Pubblicato_alle%><%=StrToOra(RSFotografie("Ora"))%>, <%=Pubblicato_Letture%><%=RSFotografie("Letture")%><%=Pubblicato_Letture_chiudi%>
		</div>
	</div>
	
	<div class="giustificato">
		<%=Evidenzia(RSFotografie("Descrizione"), Parole)%>">...
	</div>
	
	<div class="sotto">
		">[img]<%=Path_Skin%>articolo.gif[/img]" border="0" /><%=Link_Fotografie%><%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotografie("ID")%>#commenti<%End If%>">[img]<%=Path_Skin%>commenti.gif[/img]" border="0" /><%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%>[img]<%=Path_Skin%>storico.gif[/img]" border="0" /><%=Categorie_Fotografie%>
	</div>
	<div class="divider"></div>
<%
								Set FSTFotografia = Nothing
							End If
						End If
						RSFotografie.MoveNext
					Loop
					If FotografiaTrovata = False Then
%>
	<div class="giustificato"><%=Errore_Fotografia_NonTrovata%></div>
<%
					End If
				Else
%>
	<div class="giustificato"><%=Errore_Fotografia_NonTrovata%></div>
<%
				End If
				Set RSFotografie = Nothing
			End If
		End If
	End Sub

	Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Cerca, "", "")

	Conn.Close
	Set Conn = Nothing
%>

[fraude]

cosa vuol dire distanti e non vicine?

[davidspy]

es , nel testo cè scritto , ... la macchina si è fermata a Roma........

parole chiavi devo cercare macchina Roma e non ad esempio .....la macchina si

forse il termine era consecutive scusa