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"
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)
%>
<tr>
<td align="center" bgcolor="<% =EnvironnementRes("envcol2") %>"><img src="<% If PostRes("postfin")=true Then %><% =EnvironnementRes("envclose") %><% Else %><% =EnvironnementRes("envoldp") %><% End If %>"></td>