Poser une question

Re: recherche et surlignage

j'ai la solution, et ça fonctionne :

1. créer la fonction suivante :

<% search_surligne = "<span style=""background-color: #FFFF00"">"

search_surligne = search_surligne & search22

search_surligne = search_surligne & "</span>" %>

<%
Function FormeTexte(contenu)
FormeTexte = ""

Dim temp
temp = contenu

temp = REPLACE(temp,search22,search_surligne)

FormeTexte = temp
End Function
%>

nb : search22 correspond au formulaire d'envoi de recherche :
<form method="post" action="recherches.asp">
<font size="2">Entrer le mot à rechercher :    </font>
<font size="2"><input name="search" value="search22"></font></td>
<font size="2"><input type="submit" value="Chercher">

2. à mettre au sommet de la page recherches.asp

<% search=request.form("search")%>

3. il faut mettre toutes les lettres de search22 :

<% Function toutenminuscule(chaine)
toutenminuscule = ""
Dim tempo
tempo = chaine
tempo = lCase(chaine)
toutenminuscule = tempo
End Function %>

4. puis ouvrir la table selon les variantes voulues

exemple pour que le champs [solution] contienne le mot recherché et que le tri soit ordonnée par [num_panne] descendant :

SQL = "SELECT * FROM Support WHERE solution LIKE '%" & search22 & "%' ORDER BY num_panne DESC"

5. à l'affichage du résolutat du champs :

<% newdescription = toutenminuscule(RS("description_annonce")) %>


<%=FormeTexte(newdescription)%>


Et voilà... le mot entré est surligné en jaune, même s'il a été écrit en majuscules !

L'ordre des données/fonctions n'est peut-être pas correct, mais en tout cas, ça marche (à vous de remettre dans l'ordre au besoin...)

Merci encore,

Four

Réponses

Aucune réponse à ce message...