<% Response.Buffer = true %> <% 'on error resume next session.lcID = &h40c keyword = Trim(Request("kw")) what = Request.Form("what") Function Highlight(str, query) 'met en highlight les mots trouvés sTag = "" eTag = "" If len(query) >0 Then tmp = Replace(str,query,sTag &query&eTag) tmp = Replace(tmp,Ucase(query),sTag &Ucase(query)&eTag) 'tmp = Replace(tmp,Lcase(query),sTag & Lcase(query)&eTag) 'majuscule word = Ucase(left(query,1))&right(query,len(query)-1) tmp = Replace(tmp,word,sTag &word&eTag) Highlight = tmp Else Highlight = str End If End Function Function write2HTML(str) 'formate une chaine pour du html 'If not isnull(str) Then ostr = Cstr(str) if len(ostr)>0 Then tmp = Replace(ostr, vbCrLf, "
") tmp = Replace(tmp, "''", "'") write2HTML = tmp else write2HTML = ostr End If End Function If keyword <> "" Then query = "$contents "& keyword & " OR #filename *"& keyword & "*" Set cherche = Server.CreateObject("ixsso.query") 'Set Util=Server.CreateObject("Ixsso.Util") 'Util.AddScopeToQuery Cherche, "/arche/", "Deep" cherche.query = query cherche.catalog="arche" cherche.columns="doctitle, path, write, characterization, rank, size" cherche.sortby="rank[d],doctitle" cherche.maxrecords=150 cherche.localeID=&h40c Set rs = cherche.CreateRecordset("nonsequential") End If %> Recherche

Recherche


<% If keyword <> "" Then 'affichage resultats %>

Vous avez cherché un document sur : <%=keyword%>

<% If rs.EOF AND rs.BOF Then %>

Désolé, aucune page hébergée sur l'arche ne correspond à votre recherche.

<% Else %>

<%=rs.recordcount%> page(s) corresponde(nt) à votre recherche sur : <%=keyword%>

<% While not rs.eof path = replace(right(rs("path"),len(rs("path"))-13),"\","/") If rs("size") = "" Then size = "" Else size = Round(CLng(rs("size"))/1000) End If title = rs("doctitle") if title = "" Then title = "Document sans titre" %> <%=title%>
<% If rs("characterization")<>"" Then body = Server.HTMLEncode(rs("characterization")) set rx = new RegExp rx.IgnoreCase = true rx.Global = true rx.Pattern = keyword body = rx.Replace(body, ""& keyword&"") Response.Write body 'Response.Write HighLight(rs("characterization"), keyword) &"
" End If %> <%="
" & path & "   " & size &"K "%>

<% rs.movenext Wend End If %> <% Else %>
Effectuer une recherche parmi les archives de L'Arche sur Internet.
Saisissez le ou les mots-clés correspondant à votre recherche puis validez:

<% End If %>

Droits de reproduction et de diffusion réservés © L'Arche 2002