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
- Google moteur de recherche page d'accueil - Guide
- Copernic moteur de recherche - Télécharger - Navigateurs
- Copiez la ligne qui indique aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Pourquoi mon moteur de recherche change tout seul ✓ - 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>
--
