home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / post.asp < prev    next >
Text File  |  2000-03-02  |  8KB  |  153 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     postid2 = Request.QueryString("postid")
  5.     topicid2 = Request.QueryString("topicid")
  6.     visdt = Request.QueryString("visdt2")
  7.     vish = Request.QueryString("vish2")
  8.     
  9.     strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " "
  10.     set PostRes=ConnectionBD.Execute(strPostSQL)
  11.     
  12.     strContSQL = "SELECT * FROM Postcn WHERE postcnpo=" & postid2 & " ORDER BY postcnid"
  13.     set ContRes=ConnectionBD.Execute(strContSQL)
  14.     
  15.     strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & topicid2 & " "
  16.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  17.     actual=0
  18. %>
  19. <html>
  20.  
  21. <head>
  22. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  23. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  24. <meta name="ProgId" content="FrontPage.Editor.Document">
  25. <title>ABB</title>
  26. <style type="text/css">
  27. <!--
  28. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  29. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  30. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  31. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  32. -->
  33. </style>
  34. </head>
  35.  
  36. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  37.  
  38. <div align="center">
  39.   <center>
  40.   <table border="0" cellpadding="0" cellspacing="0" width="95%">
  41.     <tr>
  42.       <td width="50%" align="center"><a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td>
  43.       <td width="50%" align="center">
  44.         <div align="center">
  45.           <table border="0" cellpadding="0" cellspacing="0">
  46.             <tr>
  47.               <td><font face="Arial" size="1"><img border="0" src="<% =EnvironnementRes("envdrawer") %>">
  48.                 <a href="default.asp"><% =EnvironnementRes("envname") %>
  49.                 </a></font></td>
  50.             </tr>
  51.             <tr>
  52.               <td><font face="Arial" size="1"><img border="0" src="<% =EnvironnementRes("envtree1") %>"><img border="0" src="<% =EnvironnementRes("envdrawer") %>">
  53.                 <a href="topic.asp?topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><% =TopicRes("topicdesc") %></a>
  54.                 </font></td>
  55.             </tr>
  56.             <tr>
  57.               <td><font face="Arial" size="1"><img border="0" src="<% =EnvironnementRes("envtree2") %>"><img border="0" src="<% =EnvironnementRes("envdrawer") %>">
  58.                  <% =PostRes("posttitle") %>
  59.                 </font></td>
  60.             </tr>
  61.           </table>
  62.         </div>
  63.         <p><a href="new.asp?topicid=<% =topicid2 %>"><img border="0" src="<% =EnvironnementRes("envpost") %>" alt="Nouveau message"></a> <% If PostRes("postfin")=false Then %><a href="ans.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><img border="0" src="<% =EnvironnementRes("envrep") %>" alt="RΘpondre"></a><% End If %>
  64.         </p>
  65.         <p><font size="1" face="Arial"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> |
  66.         <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp">
  67.         rechercher</a></font></p>
  68.       </td>
  69.     </tr>
  70.   </table>
  71.   </center>
  72. </div>
  73.  
  74. <p> </p>
  75. <div align="center">
  76.   <center>
  77.   <table border="0" width="95%" cellspacing="1" cellpadding="3">
  78.     <tr>
  79.       <td bgcolor="<% =EnvironnementRes("envtop") %>" width="20%"><font face="Arial" size="2"><b><a name="Auteur">Auteur</a></b></font></td>
  80.       <td bgcolor="<% =EnvironnementRes("envtop") %>" width="80%"><font face="Arial" size="2"><b>Sujet : <% =PostRes("posttitle") %></b></font></td>
  81.     </tr>
  82.     <% 
  83.     fondcoul=1
  84.     Do Until ContRes.EOF = True %>
  85.     <% strSubSQL = "SELECT usrlogin,usrstatu,usrmail FROM Utilisateur WHERE usrid=" & ContRes("postcnau") & " "
  86.     set SubRes=ConnectionBD.Execute(strSubSQL)
  87.     strStatSQL = "SELECT * FROM Statut WHERE statid=" & SubRes("usrstatu") & " "
  88.     set StatRes=ConnectionBD.Execute(strStatSQL)
  89.     If visdt<>"" Then
  90.         If DateDiff("d",visdt,ContRes("postcndt"))>0 Then
  91.             actual=1
  92.             Else
  93.             If DateDiff("d",visdt,ContRes("postcndt"))=0 Then
  94.                 If DateDiff("s",vish,ContRes("postcnh"))>=0 Then
  95.                     actual=1
  96.                 End If
  97.             End If
  98.         End If
  99.     End If
  100.     %>
  101.     <tr>
  102.       <td bgcolor="<% If actual=1 Then %><% =EnvironnementRes("envtop") %><% Else %><% If fondcoul=1 Then %><% =EnvironnementRes("envcol1") %><% Else %><% =EnvironnementRes("envcol2") %><% End If %><% End If%>" width="20%" valign="top"><font face="Arial" size="2"><b><% =SubRes("usrlogin") %></b></font><BR><font face="Arial" size="1"><% =StatRes("statdesc") %></font></td>
  103.       <td bgcolor="<% If fondcoul=1 Then %><% =EnvironnementRes("envcol1") %><% Else %><% =EnvironnementRes("envcol2") %><% End If %>" width="80%"><font face="Arial" size="2"><img src="<% =EnvironnementRes("envpostlogo") %>" alt="Message">    <% =ContRes("postcndt") %>, <% =ContRes("postcnh") %>    <a href="viewprofil.asp?id=<% =ContRes("postcnau") %>" target="_blank"><img src="<% =EnvironnementRes("envpro") %>" border="0" alt="Profil de l'utilisateur"></a>    <a href="mailto:<% =SubRes("usrmail") %>"><img src="<% =EnvironnementRes("envmail") %>" border="0" alt="Envoyer un e-mail α l'utilisateur"></a>    <a href="edit.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>&postcnid=<% =ContRes("postcnid") %>"><img src="<% =EnvironnementRes("envedit") %>" border="0" alt="Editer/Supprimer le message"></a><hr><% =ContRes("postcncn") %><br><br></font></td>
  104.     </tr>
  105.     <% actual=0 %>
  106.     <% ContRes.MoveNext %>
  107.     <% fondcoul = -fondcoul %>
  108.     <% Loop %>
  109.   </table>
  110.   </center>
  111. </div>
  112. <p align="center">
  113. <font face="Arial" size="2"><b>
  114. Options administratives : <% If PostRes("postfin")=false Then %><a href="fermerpost.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>"> Fermer le sujet</a><% Else %><a href="ouvrirpost.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>"> Ouvrir le sujet</a><% End If %> 
  115. </b></font>
  116. <font face="Arial" size="2"><b>
  117.  | <a href="deplacerpost.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>">DΘplacer
  118. le sujet</a> |
  119. <a href="effacerpost.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>"> Supprimer le sujet</a></b></font>
  120. <p align="center">
  121.  
  122. <a href="new.asp?topicid=<% =topicid2 %>"><img border="0" src="<% =EnvironnementRes("envpost") %>" alt="Nouveau message"></a> <% If PostRes("postfin")=false Then %><a href="ans.asp?postid=<% =postid2 %>&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>"><img border="0" src="<% =EnvironnementRes("envrep") %>" alt="RΘpondre"></a><% End If %>
  123. <%
  124. strthemeSQL = "SELECT topicid,topicdesc FROM Topic"
  125. set themeRes=ConnectionBD.Execute(strthemeSQL)
  126. %>
  127. <div align="right">
  128. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
  129. function FrontPage_Form1_Validator(theForm)
  130. {
  131.  
  132.   if (theForm.jump.selectedIndex == 0)
  133.   {
  134.     alert("La premiΦre option \"jump\" n'est pas une sΘlection valide. Choisissez une des autres options.");
  135.     theForm.jump.focus();
  136.     return (false);
  137.   }
  138.   return (true);
  139. }
  140. //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="jump.asp?visdt2=<% =visdt %>&vish2=<% =vish %>" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
  141.   <font face="Arial" size="2">Aller au thΦme : <!--webbot bot="Validation"
  142.   B-Disallow-First-Item="TRUE" --> <select size="1" name="jump">
  143.     <option selected>Choississez un ThΦme</option>
  144.     <% Do Until themeRes.EOF = True %>
  145.     <option value="<% =themeRes("topicid") %>"><% =themeRes("topicdesc") %></option>
  146.     <% themeRes.MoveNext %>
  147.     <% Loop %>
  148.   </select><input type="submit" value="Go"></font>
  149. </form>
  150. </div>
  151. <!--#include file="basdepage.asp"-->
  152. </body>
  153. </html>