Bonjour,
j'utilise le code suivant en asp pour mon moteur de recherche interne, seulement quand je lance la recherche, ca me dit "page introuvable"...
D'ou cela peut il venir?
Voici le code :

<% search=request.form("search")
if search<>"" then
   response.cookies("search")=search
   response.cookies("search").expires=date+365
end if%>

<table border=0 cellspacing=0 cellpadding=0><tr>
   <form method="post" action="recherche.asp">
    <td><input name="search"
    value="<%=request.cookies("search")%>"></t
d>
    <td><input type="submit" value="Chercher"></td>
   </form>
</tr></table>

<% cooksrch=request.cookies("search")
if cooksrch<>"" then
   ' on transforme les + en espaces
   search2 = replace(cooksrch,"+"," ")
   ' on vire les espaces de début et de fin
   search2 = trim(search2)
   ' on vire les double-espaces
   while instr(search2," ") > 0
    search2 = replace(search2," "," ")
   wend
end if%>

<%
Function notag(txt)
   dim regEx,temp
   Set regEx = New RegExp
   regEx.Global = True
   regEx.Pattern = "<[^>]+>"
   temp = regEx.REPLACE(txt,"")
   ' supprime aussi les retours
   temp = replace(temp,VbCrLf," ")
   ' et les espaces doubles
   while instr(temp," ") > 0
    temp = replace(temp," "," ")
   wend
   notag = temp
end function
%>

<%
' Création de l'objet
Set FSO = _
   Server.CreateObject("Scripting.FileSystemObje
ct")
' Dossier dans lequel chercher
rep = "."

' S'il y a quelque chose à chercher
if search2<>"" then
   ' Décomposition de la chaîne de recherche
   tableau = split(lcase(search2)," ",-1,1)
   ' Lecture du dossier
   dir = Server.MapPath(rep) & "\"
   set fc = FSO.GetFolder(dir).files
   for each f in fc
    ' Lecture du fichier
    set inF=FSO.openTextFile(dir & f.name,1,false)
    contenu = inF.readAll
    inF.close
    ' Suppression du code
    contenu = notag(contenu)
    content = lcase(contenu)
    ' Recherche des mots
    k = 0
    for i = 0 to UBOUND(tableau)
    ' pas trouvé, on passe au fichier suivant
    if INSTR(content,tableau(i)) < 1 then
    exit for
    ' Trouvé... on continue
    else
    k = k+1
    end if
    next
    ' correspond à tous les mots ?
    if k > ubound(tableau) then
    ' alors on affiche
    %><div align=justify>
    <A href="<%=rep & f.name%>" target="_blank"
    ><%=f.name%></A> :
    <%=LEFT(contenu,200)%>...
    </div><br>
    <% ' et on passe au fichier suivant
    end if
   next
end if
%>

Merci d'avance