 |
 |
|
|
 |
Vous pouvez effectuer une recherche de tous les documents de notre site Web qui contiennent les mots ou expressions spécifiés. <% strSQL = "SELECT docTitle,characterization,vpath FROM SCOPE() WHERE (path LIKE '%" & Request("qu") & "%')" Set dbConnection = Server.CreateObject("ADODB.Connection") Set rsRecordSet = Server.CreateObject("ADODB.RecordSet") dbConnection.Open "provider=msidxs;Data Source=sauvparcml_asso_fr;" rsRecordSet.Open strSQL,dbConnection if not(rsRecordSet.EOF and rsRecordSet.BOF) then while not rsRecordSet.EOF response.write ("Titre : " & rsRecordSet("docTitle")& "") response.write("Lien : " & "" & "http://" &Request("server_name")&rsRecordSet("vpath")& "" & " ") rsRecordSet.MoveNext output = output & " " wend else output = "Aucun résultats ne correspond à votre recherche" end if Response.Write(output) rsRecordSet.Close dbConnection.Close %>
|
|
Envoyez un courrier électronique à contact@sauvparcml.asso.fr pour toute question ou remarque concernant ce site
Web.
|
