Moteur de recherche ne s'actualise pas

Fermé

nb01 Messages postés 61 Date d'inscription samedi 7 avril 2007 Statut Membre Dernière intervention 27 novembre 2013 - 27 nov. 2013 à 10:39
nb01 Messages postés 61 Date d'inscription samedi 7 avril 2007 Statut Membre Dernière intervention 27 novembre 2013 - 27 nov. 2013 à 13:33

Bonjour,

Je voulais un petit moteur de recherche sur mon site. Je l'ai mis en place avec un formulaire tout simple et quelques lignes de code. Mais voilà, lorsque je le teste la page résultats n'affiche pas les bons résultats mais lorsque j'actualise cette page la recherche se fait bien.
Si vous savez ce que j'ai raté, je suis preneur...

Le code est
<%
Dim strRech = Request.Form("recherche")
'remplacer les virgules par des espaces
strRech = strRech.replace(","," ")
'remplacer les points virgules par des espaces
strRech = strRech.replace(";"," ")
'remplacer chrevrons par des espaces
strRech = strRech.replace("/>"," ")
strRech = strRech.replace("<"," ")
'remplacer les espaces par les Wildcards
strRech = strRech.replace(" ","%")
'ajouter les wildcards au début et à la fin
strRech = "%" + strRech + "%"

application("sessRech") = strRech
%>

Puis l'affichage des résultat se fait par un dataset avec un LIKE sessRech

--

A voir également:

Moteur de recherche ne s'actualise pas
Recherche automatique des chaînes ne fonctionne pas - Guide
Google moteur de recherche page d'accueil - Guide
Safari moteur de recherche - Télécharger - Navigateurs
Copernic moteur de recherche - Télécharger - Navigateurs
Installer qwant moteur de recherche - Télécharger - Navigateurs

1 réponse

Réponse 1 / 1

nb01 Messages postés 61 Date d'inscription samedi 7 avril 2007 Statut Membre Dernière intervention 27 novembre 2013 4
27 nov. 2013 à 13:33

Bon, ben, désolé pour de dérangement. Ca marche.
La solution :

<script runat="server">
Sub Page_Load()
application("sessRechInitiale") = Request.Form("recherche")
'application("sessRech") = nothing
Dim strRech = Request.Form("recherche")
'remplacer les virgules par des espaces
strRech = strRech.replace(","," ")
'remplacer les points virgules par des espaces
strRech = strRech.replace(";"," ")
'remplacer chrevrons par des espaces
strRech = strRech.replace("/>"," ")
strRech = strRech.replace("<"," ")
'remplacer les espaces par les Wildcards
strRech = strRech.replace(" ","%")
'ajouter les wildcards au début et à la fin
strRech = "%" + strRech + "%"
'affecter la valeur à la variable d'application sessRech pour utilisation dans SQL
application("sessRech") = strRech
End Sub
</script>

--

Discussions similaires

1fichier

Google est par défaut, mais change de moteur de recherche

Yahoo Search (moteur de recherche) revient

recherche à partir de la barre d'adresse