" alt="Retour à la page principale">

"> <% =EnvironnementRes("envname") %> ">"> <% =TopicRes("topicdesc") %> ">"> <% =PostRes("posttitle") %> " alt="Nouveau message"> <% If PostRes("postfin")=false Then %>" alt="Répondre"><% End If %> profil | s'enregistrer | préférences | faq | rechercher

<% fondcoul=1 Do Until ContRes.EOF = True %> <% strSubSQL = "SELECT usrlogin,usrstatu,usrmail FROM Utilisateur WHERE usrid=" & ContRes("postcnau") & " " set SubRes=ConnectionBD.Execute(strSubSQL) strStatSQL = "SELECT * FROM Statut WHERE statid=" & SubRes("usrstatu") & " " set StatRes=ConnectionBD.Execute(strStatSQL) If visdt<>"" Then If DateDiff("d",visdt,ContRes("postcndt"))>0 Then actual=1 Else If DateDiff("d",visdt,ContRes("postcndt"))=0 Then If DateDiff("s",vish,ContRes("postcnh"))>=0 Then actual=1 End If End If End If End If %> <% actual=0 %> <% ContRes.MoveNext %> <% fondcoul = -fondcoul %> <% Loop %>

" width="20%">Auteur	" width="80%">Sujet : <% =PostRes("posttitle") %>
<% Else %><% If fondcoul=1 Then %><% =EnvironnementRes("envcol1") %><% Else %><% =EnvironnementRes("envcol2") %><% End If %><% End If%>" width="20%" valign="top"><% =SubRes("usrlogin") %> <% =StatRes("statdesc") %>	<% Else %><% =EnvironnementRes("envcol2") %><% End If %>" width="80%">" alt="Message">    <% =ContRes("postcndt") %>, <% =ContRes("postcnh") %>    " target="_blank">" border="0" alt="Profil de l'utilisateur">    ">" border="0" alt="Envoyer un e-mail à l'utilisateur">    ">" border="0" alt="Editer/Supprimer le message"> <% =ContRes("postcncn") %>

Options administratives : <% If PostRes("postfin")=false Then %> Fermer le sujet<% Else %> Ouvrir le sujet<% End If %> | Déplacer le sujet | Supprimer le sujet

  " alt="Nouveau message"> <% If PostRes("postfin")=false Then %>" alt="Répondre"><% End If %> <% strthemeSQL = "SELECT topicid,topicdesc FROM Topic" set themeRes=ConnectionBD.Execute(strthemeSQL) %>