home *** CD-ROM | disk | FTP | other *** search
Wrap
<% @ LANGUAGE="VBScript" lcid="1036" %> <!--#include file="include.asp"--> <% 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 %> <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"> <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><br> <font face="Arial" size="2"><b><% =TopicRes("topicdesc") %><br> </b></font><font face="Arial" size="1">(modΘrateur : <% =AdminRes("usrlogin") %>)</font></td> <center> <td width="50%" align="center"> <div align="center"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td><font face="Arial" size="1"><img border="0" src="<% =EnvironnementRes("envdrawer") %>"> <a href="default.asp"><% =EnvironnementRes("envname") %></a></font> </td> </tr> <tr> <td><font face="Arial" size="1"><img border="0" src="<% =EnvironnementRes("envtree1") %>"><img border="0" src="<% =EnvironnementRes("envdrawer") %>"> <% =TopicRes("topicdesc") %></font> </td> </tr> </table> </div> <p><a href="new.asp?topicid=<% =topicid2 %>"><img border="0" src="<% =EnvironnementRes("envpost") %>" alt="Nouveau message"></a> </p> <p><font size="1" face="Arial"><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><font face="Arial" size="1">Seules les personnes enregistrΘes peuvent poster et rΘpondre.</font></p> </td> </tr> </table> </center> </div> <div align="right"> <form method="POST" action="topic.asp?topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"> <font face="Arial" size="2">Voir les sujets datant de : <select size="1" name="vision"> <option value="1" <% If vision2=1 Then %>selected<% End If %>>La derniΦre journΘe</option> <option value="2" <% If vision2=2 Then %>selected<% End If %>>2 jours</option> <option value="5" <% If vision2=5 Then %>selected<% End If %>>5 jours</option> <option value="10" <% If vision2=10 Then %>selected<% End If %>>10 jours</option> <option value="20" <% If vision2=20 Then %>selected<% End If %>>20 jours</option> <option value="30" <% If vision2=30 Then %>selected<% End If %>>30 jours</option> <option value="45" <% If vision2=45 Then %>selected<% End If %>>45 jours</option> <option value="60" <% If vision2=60 Then %>selected<% End If %>>60 jours</option> <option value="10000" <% If vision2=10000 Then %>selected<% End If %>>Voir tous les sujets</option> </select><input type="submit" value="Go"></font></p> </form> </div> <div align="center"> <center> <table border="0" width="95%" cellspacing="1" cellpadding="3"> <tr> <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>"> </td> <td bgcolor="<% =EnvironnementRes("envtop") %>" width="100%"><font face="Arial" size="2"><b>Sujet</b></font></td> <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>DΘpart du sujet</b></font></td> <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>RΘponses</b></font></td> <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>Dernier envoi</b></font></td> </tr> <% 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 %> <tr> <td align="center" bgcolor="<% =EnvironnementRes("envcol2") %>"><img src="<% If PostRes("postfin")=true Then %><% =EnvironnementRes("envclose") %><% Else %><% If actual=0 Then %><% =EnvironnementRes("envoldp") %><% Else %><% =EnvironnementRes("envnewp") %><% End If %><% End If %>"></td> <td bgcolor="<% =EnvironnementRes("envcol2") %>" width="100%"><font face="Arial" size="2"><a href="post.asp?postid=<% =PostRes("postid") %>&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><% =PostRes("posttitle") %></a></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =SubRes("usrlogin") %></font></td> <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><% =PostRes("postans") %></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =PostRes("postdt") %>, <% =PostRes("posth") %></font></td> </tr> <% End If %> <% actual=0 %> <% PostRes.MoveNext %> <% Loop %> </table> </center> </div> <% strthemeSQL = "SELECT topicid,topicdesc FROM Topic" set themeRes=ConnectionBD.Execute(strthemeSQL) %> <div align="right"> <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!-- function FrontPage_Form2_Validator(theForm) { if (theForm.jump.selectedIndex == 0) { alert("La premiΦre option \"jump\" n'est pas une sΘlection valide. Choisissez une des autres options."); theForm.jump.focus(); return (false); } return (true); } //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="jump.asp?visdt2=<% =visdt %>&vish2=<% =vish %>" onsubmit="return FrontPage_Form2_Validator(this)" name="FrontPage_Form2"> <font face="Arial" size="2">Aller au thΦme : <!--webbot bot="Validation" B-Disallow-First-Item="TRUE" --> <select size="1" name="jump"> <option selected>Choississez un ThΦme</option> <% Do Until themeRes.EOF = True %> <option value="<% =themeRes("topicid") %>"><% =themeRes("topicdesc") %></option> <% themeRes.MoveNext %> <% Loop %> </select><input type="submit" value="Go"></font> </form> </div> <p><font face="Arial" size="2"><img src="<% =EnvironnementRes("envnewp") %>"> Contient de nouveaux envois depuis votre derniΦre visite.<br> <img src="<% =EnvironnementRes("envoldp") %>"> Ne contient pas de nouveaux envois depuis votre derniΦre visite.<br> <img src="<% =EnvironnementRes("envclose") %>"> Sujet fermΘ, aucune nouvelle rΘponse acceptΘe.</font></p> <p align="center"><a href="new.asp?topicid=<% =topicid2 %>"><img border="0" src="<% =EnvironnementRes("envpost") %>" alt="Nouveau message"></a></p> <!--#include file="basdepage.asp"--> </body> </html>