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
| <%
// remplacement espace vide,<,>...
mot=Replace(mot1,"'","''")
mot=Replace(mot,"<","<")
mot=Replace(mot,">",">")
%>
<%
// test mot pour voir si chaine recherche vide
if mot="" or mot=" " then
%>
<%
// si pas vide
else
%>
<%
// connection bdd + requete sql #1
DSN_BASE = "DBQ=" & Server.Mappath("/admin/bddtests.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
SQL = "SELECT * FROM pathologies WHERE titre LIKE '%"&mot&"%' OR auteur LIKE '%"&mot&"%' OR parution LIKE '%"&mot&"%' OR motsclefs LIKE '%"&mot&"%' ;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL , conn
// si RS vide
if rs.eof=true then
%>
<span class="titre_cadrebleu"> Pas de résultat(s) dans >>pathologies<<
contenant l'expression :<%response.write "<br>"+mot1%></span>
<%
// si RS pas vide debut affichage resultats pathologies
else
%>
<font face="Arial" size="2" color="#800000">Vous recherchez <B>
<% =mot1%>
</B>sur ce site,</font></p>
<p align="center">
<BR>
<b><font face="Arial" size="2">Voici les pages trouvées :</font></b></p>
<div align="center"><span class="titre_cadre">Articles Pathologies</span><span class="lien1"><br>
<br>
</span>
<%
// retour boucle affichage pathologies
rs.MoveNext
loop
%>
</table>
</center>
</div>
<%
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
... |
Partager