Moteur de recherche ne s'actualise pas
nb01
Messages postés
62
Statut
Membre
-
nb01 Messages postés 62 Statut Membre -
nb01 Messages postés 62 Statut Membre -
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
--
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
- Copernic moteur de recherche - Télécharger - Navigateurs
- Google moteur de recherche page d'accueil - Guide
- Pourquoi la localisation snap ne s'actualise pas ✓ - Forum Snapchat
- Le fichier pdf à télécharger est disponible avec le même nom sur le site de bell canada. mais vous ne le trouverez pas directement avec un moteur de recherche… quelle est l’url de ce fichier pdf sur le site web de bell canada ? - Forum Réseaux sociaux
1 réponse
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>
--
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>
--
