home *** CD-ROM | disk | FTP | other *** search
Wrap
<% @ LANGUAGE="VBScript" lcid="1036" %> <!--#include file="include.asp"--> <% 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) %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>ABB</title> <style type="text/css"> <!-- A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;} A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;} A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;} A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;} --> </style> </head> <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="95%"> <tr> <td width="50%" align="center"><a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td> <td width="50%" align="center"><font face="Arial"><b><% =EnvironnementRes("envname") %><br> <br> </b><font size="1"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> | <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp"> rechercher</a><br> <font face="Arial" size="1">Seule les personnes enregistrΘes peuvent poster et rΘpondre.</font></font></font></td> </tr> </table> </center> </div> <p> </p> <div align="center"> <center> <table border="0" width="95%" cellspacing="1" cellpadding="3"> <tr> <td colspan="3"><font face="Arial" size="2">Date de votre derniΦre visite : <% =Day(visdt) & "/" & Month(visdt) & "/" & Year(visdt) %>, <% =vish %></font></td> <td colspan="3" align="right"><font face="Arial" size="2">Nombre d'utilisateurs inscrits : <% =UserRes(0)-1 %></font></td> </tr> <tr> <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>"> </td> <td bgcolor="<% =EnvironnementRes("envtop") %>" width="100%"><font face="Arial" size="2"><b>ThΦmes</b></font></td> <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>" colspan="2"><font face="Arial" size="2"><b>Envois</b></font></td> <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>Dernier envoi</b></font></td> <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>ModΘrateur</b></font></td> </tr> <% 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 %> <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") %>" width="100%"><font face="Arial" size="2"><a href="topic.asp?topicid=<% =TopicRes("topicid") %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><b><% =TopicRes("topicdesc") %></a></b><br><% =TopicRes("topicinfo") %></font></td> <td align="center" bgcolor="<% =EnvironnementRes("envcol1") %>" colspan="2"><font face="Arial" size="2"><% =TopicRes("topicpost") %></font></td> <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><% If TopicRes("topicpost")>0 Then %><% =PostRes("postdt") %>, <% =PostRes("posth") %><% End If %></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =AdminRes("usrlogin") %></font></td> </tr> <% actual=0 %> <% TopicRes.MoveNext %> <% Loop %> </table> </center> </div> <p><font face="Arial" size="2"><img src="<% =EnvironnementRes("envnew") %>"> Nouveaux messages depuis votre derniΦre visite.<br> <img src="<% =EnvironnementRes("envold") %>"> Aucun nouveau message depuis votre derniΦre visite.</font></p> <!--#include file="basdepage.asp"--> </body> </html>