home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / ans.asp < prev    next >
Text File  |  2000-03-02  |  5KB  |  92 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.     strTopicSQL = "SELECT topicdesc FROM Topic WHERE topicid=" & topicid2 & " "
  10.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  11.     
  12.     strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " "
  13.     set PostRes=ConnectionBD.Execute(strPostSQL)
  14. %>
  15. <html>
  16.  
  17. <head>
  18. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  19. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  20. <meta name="ProgId" content="FrontPage.Editor.Document">
  21. <title>ABB</title>
  22. <style type="text/css">
  23. <!--
  24. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  25. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  26. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  27. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  28. -->
  29. </style>
  30. </head>
  31.  
  32. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  33.  
  34. <div align="center">
  35.   <center>
  36.   <table border="0" cellpadding="0" cellspacing="0" width="95%">
  37.     <tr>
  38.       <td width="50%" align="center"><a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td>
  39.       <td width="50%" align="center"><font face="Arial" size="2"><b>RΘpondre au message "<% =PostRes("posttitle") %>" du groupe "<% =TopicRes("topicdesc") %>"</b></font>
  40.         <p><font size="1" face="Arial"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> |
  41.         <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp">
  42.         rechercher</a></font></p>
  43.       </td>
  44.     </tr>
  45.   </table>
  46.   </center>
  47. </div>
  48.  
  49. <p> </p>
  50. <form method="POST" action="doans.asp">
  51. <div align="center">
  52.   <center>
  53.   <table border="0" width="95%" cellspacing="1" cellpadding="3">
  54.     <tr>
  55.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre
  56.         nom d'utilisateur :</b></font></td>
  57.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><font face="Arial" size="2"><input type="text" name="Nom" size="30" value="<% =Request.Cookies("abb")("nom") %>"></font></td>
  58.     </tr>
  59.     <tr>
  60.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre
  61.         mot de passe :</b></font></td>
  62.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><input type="password" name="Passe" size="20" value="<% =Request.Cookies("abb")("passe") %>"></td>
  63.     </tr>
  64.     <tr>
  65.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>RΘponse
  66.         :</b></font>
  67.         <p><font face="Arial" size="1"><a href="abb.asp" target="_blank">Code ABB</a> : <% If EnvironnementRes("envabb")=true Then %>Oui<% Else %>Non<% End If %><br>
  68.         Code HTML : <% If EnvironnementRes("envhtml")=true Then %>Oui<% Else %>Non<% End If %></font></p>
  69.       </td>
  70.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><textarea rows="10" name="message" cols="50" wrap="virtual"></textarea></td>
  71.     </tr>
  72.     <tr>
  73.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Options
  74.         :</b></font></td>
  75.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><font face="Arial" size="2"><% If EnvironnementRes("envsign")=true Then %><input type="checkbox" name="Signature" value="ON">Signature<% End If %></font>
  76.       </td>
  77.     </tr>
  78.   </table>
  79.  
  80. <input type="hidden" name="Topic" value="<% =topicid2 %>">
  81. <input type="hidden" name="Post" value="<% =postid2 %>">
  82. <input type="hidden" name="Heure" value="<% =vish %>">
  83. <input type="hidden" name="Date" value="<% =visdt %>">
  84.   <p align="center"><input type="submit" value="Soumettre la rΘponse" name="Envoyer"><input type="reset" value="Effacer tous les champs" name="Effacer">
  85.   </form>
  86.   <p align="center"> 
  87. <iframe src="post.asp?postid=<% =PostRes("postid") %>&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>" width="90%" height="150"><font face="Arial" size="2"><a href="post.asp?postid=<% =PostRes("postid") %>&topicid=<% =topicid2 %>&visdt2=<% =visdt %>&vish2=<% =vish %>" target="_blank">Revoir
  88.   le sujet</a></font></iframe>
  89. </center>
  90. </div><!--#include file="basdepage.asp"-->
  91. </body>
  92. </html>