Evidenziare + parole dopo una ricerca

[peppeweb]

Salve a tutti,

utilizzo questo script per evidenziare una parola dopo una ricerca:

<%@LANGUAGE = VBScript%>

<%

	Function FiltroRicerca(MyText, MyKey)
	    Dim re
	    Set re = New RegExp
	    re.Pattern = MyKey
	    re.Global = True
	    re.IgnoreCase = True
	    FiltroRicerca = re.Replace(MyText, "<span style=""background-color: #FFFF00"">" & MyKey & "</span>")
	    Set re = Nothing
	End Function
	
Risultato 	= "Gmail introduce bal bla bla bla"
Chiave    = Trim(Request("q"))
%>

se passo soltanto una parola allora funziona:
http://www.posdatasystem.it/Prova.asp?q=Gmail

se invece passo + parole non funge:

http://www.posdatasystem.it/Prova.asp?q=Gmail%20sociali

sapreste darmi un suggerimento ?

grazie mille

[lucavizzi]

Non funge perchè nel testo non c'è la stringa "Gmail sociali"

Dovresti fare un replace per ogni parola cercata

[peppeweb]

non saprei come farla .... potresti aiutarmi ?

[lucavizzi]

arr_key=Split(MyKey," ")
foreach item in arr_key
  MyText=Replace(MyText, "<span style=""background-color: #FFFF00"">" & item & "</span>")
next

così dovrebbe andare...

[peppeweb]

scusa l'ignoranza, ma dove dovrei inserirlo quel pezzo di codice ... ho fatto delle prove ma mi da errore

[peppeweb]

..... dimenticavo ......

per richiamare la funzione va poi aggiunto questo codice <%=FiltroRicerca(risultato, chiave)%>

[wallrider]

Originariamente inviato da peppeweb
... ho fatto delle prove ma mi da errore

scrivi qui l'ultima versione delle prove fatte e dicci che errore da

[peppeweb]

<%@LANGUAGE = VBScript%>

<%

	Function FiltroRicerca(MyText, MyKey)
	    Dim re
	    Set re = New RegExp
	    re.Pattern = MyKey
	    re.Global = True
	    re.IgnoreCase = True

	    arr_key=Split(MyKey," ")
		foreach item in arr_key
		  MyText=Replace(MyText, "<span style=""background-color: #FFFF00"">" & item & "</span>")
		next 
	    
	    Set re = Nothing
	End Function
	Risultato 	= "Gmail introduce bal bla bla bla"
             Chiave    = Trim(Request("q"))

	
%>

mi da questo errore:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Prova_2.asp, line 16

foreach item in arr_key
-------------^

[peppeweb]

.... scusate, la pagina su cui faccio le prove è questa:

http://www.posdatasystem.it/Prova_2....mail%20sociali

[lucavizzi]

<%@LANGUAGE = VBScript%>

<%

	Function FiltroRicerca(MyText, MyKey)
	    Dim re
	    Set re = New RegExp
	    re.Pattern = MyKey
	    re.Global = True
	    re.IgnoreCase = True
	    arr_key=Split(MyKey," ")
		for each item in arr_key 'for each va staccato
		  MyText=re.Replace(MyText, "<span style=""background-color: #FFFF00"">" & item & "</span>")
		next 

	    Set re = Nothing
                 FiltroRicerca=MyText
	End Function
	
Risultato 	= "Gmail introduce bal bla bla bla"
Chiave    = Trim(Request("q"))
%>

così dovrebbe andare....