" alt="Retour à la page principale">

<% =EnvironnementRes("envname") %> profil | s'enregistrer | préférences | faq | rechercher Seule les personnes enregistrées peuvent poster et répondre.

<% Do Until TopicRes.EOF = True %> <% 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 %> <% actual=0 %> <% TopicRes.MoveNext %> <% Loop %>

Date de votre dernière visite : <% =visdt %>, <% =vish %>
">	" width="100%">Thèmes	">Envois	">Dernier envoi	">Modérateur
"><% Else %><% =EnvironnementRes("envnew") %><% End If %>">	" width="100%">&visdt2=<% =visdt %>&vish2=<% =vish %>"><% =TopicRes("topicdesc") %> <% =TopicRes("topicinfo") %>	"><% =TopicRes("topicpost") %>	"><% If TopicRes("topicpost")>0 Then %><% =PostRes("postdt") %>, <% =PostRes("posth") %><% End If %>	"><% =AdminRes("usrlogin") %>

"> Nouveaux messages depuis votre dernière visite.
"> Aucun nouveau message depuis votre dernière visite.