<% @ LANGUAGE="VBScript" lcid="1036" %> <% strTopicSQL = "SELECT * FROM Topic" set TopicRes=ConnectionBD.Execute(strTopicSQL) vision=Request.Cookies("abb")("vision") If vision="" Then Response.Cookies("abb")("vision") = "10" End If visdt=Request.Cookies("abb")("date") vish=Request.Cookies("abb")("heure") lheure = Hour(now)+EnvironnementRes("envdecal") If Hour(now)+EnvironnementRes("envdecal")<0 Then lheure = Hour(now)+EnvironnementRes("envdecal")+24 End If lheure = lheure & ":" & Minute(now) & ":" & Second(now) Response.Cookies("abb")("date") = date Response.Cookies("abb")("heure") = lheure Response.Cookies("abb").Expires = Now() + 365 actual=0 strUserSQL = "SELECT COUNT(usrlogin) FROM Utilisateur" set UserRes=ConnectionBD.Execute(strUserSQL) %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
" 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 : <% =Day(visdt) & "/" & Month(visdt) & "/" & Year(visdt) %>, <% =vish %> Nombre d'utilisateurs inscrits : <% =UserRes(0)-1 %>
">  " width="100%">Thèmes " colspan="2">Envois ">Dernier envoi ">Modérateur
"><% Else %><% =EnvironnementRes("envnew") %><% End If %>"> " width="100%">&visdt2=<% =visdt %>&vish2=<% =vish %>"><% =TopicRes("topicdesc") %>
<% =TopicRes("topicinfo") %>		 " colspan="2"><% =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.