<% strAdminSQL = "SELECT usrlogin FROM Utilisateur WHERE usrid=" & TopicRes("topicadm") & " "
set AdminRes=ConnectionBD.Execute(strAdminSQL)
If TopicRes("topicpost")>0 Then
strPostSQL = "SELECT postdt,posth FROM Post WHERE posttopic=" & TopicRes("topicid") & " ORDER BY postdt DESC,posth DESC"
set PostRes=ConnectionBD.Execute(strPostSQL)
If DateDiff("d",visdt,PostRes("postdt"))>0 Then
actual=1
Else
If DateDiff("d",visdt,PostRes("postdt"))=0 Then
If DateDiff("s",vish,PostRes("posth"))>=0 Then
actual=1
End If
End If
End If
End If
%>
<tr>
<td align="center" bgcolor="<% =EnvironnementRes("envcol2") %>"><img src="<% If actual=0 Then %><% =EnvironnementRes("envold") %><% Else %><% =EnvironnementRes("envnew") %><% End If %>"></td>
<td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><% If TopicRes("topicpost")>0 Then %><% =PostRes("postdt") %>, <% =PostRes("posth") %><% End If %></font></td>