<% @ LANGUAGE="VBScript" lcid="1036" %> <% topicid2 = Request.QueryString("topicid") visdt = Request.QueryString("visdt2") vish = Request.QueryString("vish2") strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & topicid2 & " " set TopicRes=ConnectionBD.Execute(strTopicSQL) strPostSQL = "SELECT * FROM Post WHERE posttopic=" & topicid2 & " ORDER BY postdt DESC,posth DESC" set PostRes=ConnectionBD.Execute(strPostSQL) strAdminSQL = "SELECT usrlogin FROM Utilisateur WHERE usrid=" & TopicRes("topicadm") & " " set AdminRes=ConnectionBD.Execute(strAdminSQL) actual=0 If Request.form("vision")<>"" Then vision2=request.form("vision") Else vision2=Request.Cookies("abb")("vision") End If %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
" alt="Retour à la page principale">
<% =TopicRes("topicdesc") %>
(modérateur : <% =AdminRes("usrlogin") %>)
"> <% =EnvironnementRes("envname") %>
">"> <% =TopicRes("topicdesc") %>

" alt="Nouveau message">

profil | s'enregistrer | préférences | faq | rechercher
Seules les personnes enregistrées peuvent poster et répondre.
 
Voir les sujets datant de :

<% Do Until PostRes.EOF = True %> <% strSubSQL = "SELECT usrlogin FROM Utilisateur WHERE usrid=" & PostRes("postaut") & " " set SubRes=ConnectionBD.Execute(strSubSQL) If visdt<>"" Then 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 %> <% If (DateDiff("d",now,PostRes("postdt"))) > -vision2 Then %> <% End If %> <% actual=0 %> <% PostRes.MoveNext %> <% Loop %>
">  " width="100%">Sujet ">Départ du sujet ">Réponses ">Dernier envoi
"><% =EnvironnementRes("envclose") %><% Else %><% If actual=0 Then %><% =EnvironnementRes("envoldp") %><% Else %><% =EnvironnementRes("envnewp") %><% End If %><% End If %>"> " width="100%">&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><% =PostRes("posttitle") %> "><% =SubRes("usrlogin") %> "><% =PostRes("postans") %> "><% =PostRes("postdt") %>, <% =PostRes("posth") %>
<% strthemeSQL = "SELECT topicid,topicdesc FROM Topic" set themeRes=ConnectionBD.Execute(strthemeSQL) %>
Aller au thème :

"> Contient de nouveaux envois depuis votre dernière visite.
"> Ne contient pas de nouveaux envois depuis votre dernière visite.
"> Sujet fermé, aucune nouvelle réponse acceptée.

" alt="Nouveau message">