<% @ LANGUAGE="VBScript" lcid="1036" %> <% search2=Replace(request.form("search"), "'", "''") ou2=Replace(request.form("ou"), "'", "''") If search2<>"" Then If ou2="titres" Then strPostSQL = "SELECT * FROM Post WHERE posttitle LIKE '%" & search2 & "%' ORDER BY posttopic,postdt DESC,posth DESC" set PostRes=ConnectionBD.Execute(strPostSQL) Else If ou2="messages" Then strPostSQL = "SELECT DISTINCT postid,postaut,posttopic,postfin,posttitle,postans,postdt,posth FROM Post,Postcn WHERE postcncn LIKE '%" & search2 & "%' AND postid=postcnpo ORDER BY posttopic,postdt DESC,posth DESC" set PostRes=ConnectionBD.Execute(strPostSQL) End If End If End If %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">

" alt="Retour à la page principale"> Résultat de la recherche <% If search2<>"" Then %> <% If PostRes.EOF = True Then %>

Pas de réponse correspondant à votre recherche. <% Else %>

<% Do Until PostRes.EOF = True %> <% strSubSQL = "SELECT usrlogin FROM Utilisateur WHERE usrid=" & PostRes("postaut") & " " set SubRes=ConnectionBD.Execute(strSubSQL) strTopicSQL = "SELECT topicdesc FROM Topic WHERE topicid=" & PostRes("posttopic") & " " set TopicRes=ConnectionBD.Execute(strTopicSQL) %> <% PostRes.MoveNext %> <% Loop %>
">  " width="100%">Sujet " align="center">Thème ">Départ du sujet ">Réponses ">Dernier envoi
"><% =EnvironnementRes("envclose") %><% Else %><% =EnvironnementRes("envoldp") %><% End If %>"> " width="100%">&topicid=<% =PostRes("posttopic") %>"><% =PostRes("posttitle") %> "><% topic=TopicRes("topicdesc") %><% =Replace(topic," "," ") %> "><% =SubRes("usrlogin") %> "><% =PostRes("postans") %> "><% =PostRes("postdt") %>, <% =PostRes("posth") %>

<% End If %> <% Else %>


Entrez quelque chose à chercher...
<% End If %>

Nouvelle recherche