Bonjour,

Je suis en train de faire un moteur de recherche sur une base access.
Celui çi marche bien si j'entre qu'un seul mot ou une suite de mot qui se suit dans un résultat mais je ne peux pas faire de recherches sur deux mots séparés.

Bref apres avoir cherché plusieurs solutions différentes je n'ai pas réussi à les appliquer à mon code. Malgres le loop on dirait qu'il ne cherche pas tout.(j'espère que je m'explique bien, je débute).



Pouvez vous m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
<%mot=Request.querystring("mot")%>
 
<%
' nettoyage de la chaine de caractères.
 
mot = Replace(mot, "'"," ")
mot = Replace(mot,"<","&lt")
mot = Replace(mot,">","&gt")
mot = Replace(mot,"?","")
mot = Replace(mot,"*","")
mot = Replace(mot,"|","")
mot = Replace(mot,":","")
mot = Replace(mot,"/","")
mot = Replace(mot,"\","")
mot = Replace(mot,"%","")
mot = Replace(mot,"@","")
mot = Replace(mot,"(","")
mot = Replace(mot,")","")
mot = Replace(mot,"[","")
mot = Replace(mot,"]","")
mot = Replace(mot,"&","")
%>
 
 
<%
'redirection vers la page principale si recherche vide
if mot="" or mot=" " then%>
<%Response.Redirect "index.asp?nomapp=faq"%>
 
<%else%>
<%
'Conexion à la base de données
DSN_BASE = "DBQ=" & Server.Mappath("db/mabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
%>
 
 
<%
'découpage de la chaine de caractères
			mots = Split(mot," ",1)
 
%>
<%
'requête SQL
			SQL = "SELECT * FROM questions where titre like '%"&mot&"%' or appli like '%"&mot&"%' or ref like '%"&mot&"%' or motscles like '%"&mot&"%' or desc like '%"&mot&"%' order by titre"
				Set rs = Server.CreateObject("ADODB.Recordset")
				rs.Open SQL, conn
 
			if rs.eof=true then
%>
 
  <%rs.MoveFirst
  do while Not rs.eof%>
 
 
ensuite l'affichage ... puis
 
<%
rs.MoveNext
loop%>
 
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
 
 
<%end if%>
Merci pour votre aide.

Elyric[code]