home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / Autre / defaultfreeflight.asp next >
Text File  |  2000-02-29  |  5KB  |  106 lines
  1. <% @ LANGUAGE="VBScript" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     strTopicSQL = "SELECT * FROM Topic"
  5.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  6.     
  7.     vision=Request.Cookies("abb")("vision")
  8.     If vision="" Then
  9.         Response.Cookies("abb")("vision") = "10"
  10.     End If
  11.     visdt=Request.Cookies("abb")("date")
  12.     vish=Request.Cookies("abb")("heure")
  13.     Response.Cookies("abb")("date") = date
  14.     Response.Cookies("abb")("heure") = time
  15.     Response.Cookies("abb").Expires = Now() + 365
  16.         
  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. <p align="center">
  38. <img src="http://www.cockpit.be/freeflight/images/banniere1.gif" width=400 height=60 border=0 alt="[Free Web Hosting by Freeflight]">
  39. </p>
  40. <div align="center">
  41.   <center>
  42.   <table border="0" cellpadding="0" cellspacing="0" width="95%">
  43.     <tr>
  44.       <td width="50%" align="center"><a href="defaultfreeflight.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td>
  45.       <td width="50%" align="center"><font face="Arial"><b><% =EnvironnementRes("envname") %><br>
  46.         <br>
  47.         </b><font size="1"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> |
  48.         <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp">
  49.         rechercher</a><br>
  50.         <font face="Arial" size="1">Seule les personnes enregistrΘes peuvent
  51.         poster et rΘpondre.</font></font></font></td>
  52.     </tr>
  53.   </table>
  54.   </center>
  55. </div>
  56.  
  57. <p> </p>
  58. <div align="center">
  59.   <center>
  60.   <table border="0" width="95%" cellspacing="1" cellpadding="3">
  61.     <tr>
  62.       <td colspan="5"><font face="Arial" size="2">Date de votre derniΦre visite : <% =visdt %>, <% =vish %></font></td>
  63.     </tr>
  64.     <tr>
  65.       <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>"> </td>
  66.       <td bgcolor="<% =EnvironnementRes("envtop") %>" width="100%"><font face="Arial" size="2"><b>ThΦmes</b></font></td>
  67.       <td align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>Envois</b></font></td>
  68.       <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>Dernier envoi</b></font></td>
  69.       <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><b>ModΘrateur</b></font></td>
  70.     </tr>
  71.     <% Do Until TopicRes.EOF = True %>
  72.     <% strAdminSQL = "SELECT usrlogin FROM Utilisateur WHERE usrid=" & TopicRes("topicadm") & " "
  73.     set AdminRes=ConnectionBD.Execute(strAdminSQL) 
  74.     If TopicRes("topicpost")>0 Then
  75.         strPostSQL = "SELECT postdt,posth FROM Post WHERE posttopic=" & TopicRes("topicid") & " ORDER BY postdt DESC,posth DESC"
  76.         set PostRes=ConnectionBD.Execute(strPostSQL)
  77.         If DateDiff("d",visdt,PostRes("postdt"))>0 Then
  78.             actual=1
  79.             Else
  80.             If DateDiff("d",visdt,PostRes("postdt"))=0 Then
  81.                 If DateDiff("s",vish,PostRes("posth"))>=0 Then
  82.                     actual=1
  83.                 End If
  84.             End If
  85.         End If
  86.     End If
  87.     %>
  88.     <tr>
  89.       <td align="center" bgcolor="<% =EnvironnementRes("envcol2") %>"><img src="<% If actual=0 Then %><% =EnvironnementRes("envold") %><% Else %><% =EnvironnementRes("envnew") %><% End If %>"></td>
  90.       <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>
  91.       <td align="center" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =TopicRes("topicpost") %></font></td>
  92.       <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><% If TopicRes("topicpost")>0 Then %><% =PostRes("postdt") %>, <% =PostRes("posth") %><% End If %></font></td>
  93.       <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =AdminRes("usrlogin") %></font></td>
  94.     </tr>
  95.     <% actual=0 %>
  96.     <% TopicRes.MoveNext %>
  97.     <% Loop %>
  98.   </table>
  99.   </center>
  100. </div>
  101. <p><font face="Arial" size="2"><img src="<% =EnvironnementRes("envnew") %>"> Nouveaux messages depuis votre derniΦre visite.<br>
  102. <img src="<% =EnvironnementRes("envold") %>"> Aucun nouveau message depuis votre derniΦre visite.</font></p>
  103. <p align="center">
  104. <!--#include file="basdepage.asp"-->
  105. </body>
  106. </html>