home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / prop.asp < prev    next >
Text File  |  2000-03-02  |  27KB  |  391 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom2=Replace(request.QueryString("Nom"), "'", "''")
  5.     Passe2=Replace(request.QueryString("Passe"), "'", "''")
  6. %>
  7. <html>
  8.  
  9. <head>
  10. <meta http-equiv="Content-Language" content="fr">
  11. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  12. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  13. <meta name="ProgId" content="FrontPage.Editor.Document">
  14. <title>ABB</title>
  15. <style type="text/css">
  16. <!--
  17. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  18. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  19. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  20. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  21. -->
  22. </style>
  23. </head>
  24.  
  25. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  26. <%
  27. If len(Nom2) > 0 Then
  28.     strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
  29.     set AutRes=ConnectionBD.Execute(strAutSQL)
  30.     
  31.     If AutRes.EOF=false Then
  32.     
  33.     If AutRes("usrpass") = Passe2 Then 
  34.     
  35.     If AutRes("usrstatu") = 1 Then
  36.     %>
  37. <p align="center"><font face="Arial" size="4"><b>PropriΘtΘs</b></font></p>
  38. <form method="POST" action="doprop.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">
  39.   <div align="center">
  40.     <center>
  41.     <table border="0" cellspacing="1" cellpadding="3" width="95%">
  42.       <tr>
  43.         <td width="100%" colspan="4" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Le
  44.           forum :</font></td>
  45.       </tr>
  46.       <tr>
  47.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom du forum :</font></td>
  48.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="name" size="50" value="<% =EnvironnementRes("envname") %>"></font></td>
  49.       </tr>
  50.       <tr>
  51.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Adresse du site web :</font></td>
  52.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="site" size="30" value="<% =EnvironnementRes("envsite") %>"></font></td>
  53.       </tr>
  54.       <tr>
  55.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Adresse E-mail :</font></td>
  56.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="contact" size="30" value="<% =EnvironnementRes("envcontact") %>"></font></td>
  57.       </tr>
  58.       <tr>
  59.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Code HTML autorisΘ :</font></td>
  60.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="radio" value="true" <% If EnvironnementRes("envhtml")=true Then %>checked<% End If %> name="html">Oui<br>
  61.           <input type="radio" name="html" <% If EnvironnementRes("envhtml")=false Then %>checked<% End If %> value="false">Non</font></td>
  62.       </tr>
  63.       <tr>
  64.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Code ABB autorisΘ :</font></td>
  65.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="radio" name="abb" value="true" <% If EnvironnementRes("envabb")=true Then %>checked<% End If %>>Oui<br>
  66.           <input type="radio" name="abb" value="false" <% If EnvironnementRes("envabb")=false Then %>checked<% End If %>>Non</font></td>
  67.       </tr>
  68.       <tr>
  69.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Signatures
  70.           autorisΘes :</font></td>
  71.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="radio" name="sign" value="true" <% If EnvironnementRes("envsign")=true Then %>checked<% End If %>>Oui<br>
  72.           <input type="radio" name="sign" value="false" <% If EnvironnementRes("envsign")=false Then %>checked<% End If %>>Non</font></td>
  73.       </tr>
  74.       <tr>
  75.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">E-mail
  76.           autorisΘ :</font></td>
  77.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="radio" name="email" value="true" <% If EnvironnementRes("envemail")=true Then %>checked<% End If %>>Oui<br>
  78.           <input type="radio" name="email" value="false" <% If EnvironnementRes("envemail")=false Then %>checked<% End If %>>Non</font></td>
  79.       </tr>
  80.       <tr>
  81.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">ICQ
  82.           affichΘ :</font></td>
  83.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="radio" name="icq" value="true" <% If EnvironnementRes("envicq")=true Then %>checked<% End If %> checked>Oui<br>
  84.           <input type="radio" name="icq" value="false" <% If EnvironnementRes("envicq")=false Then %>checked<% End If %>>Non</font></td>
  85.       </tr>
  86.       <tr>
  87.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">DΘcalage
  88.           horaire :<br>
  89.           Heure rΘelle du serveur : <% =time %></font></td>
  90.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><select size="1" name="decal">
  91.             <option value="-12" <% If EnvironnementRes("envdecal")=-12 Then %>selected<% End If %>>-12</option>
  92.             <option value="-11" <% If EnvironnementRes("envdecal")=-11 Then %>selected<% End If %>>-11</option>
  93.             <option value="-10" <% If EnvironnementRes("envdecal")=-10 Then %>selected<% End If %>>-10</option>
  94.             <option value="-9" <% If EnvironnementRes("envdecal")=-9 Then %>selected<% End If %>>-9</option>
  95.             <option value="-8" <% If EnvironnementRes("envdecal")=-8 Then %>selected<% End If %>>-8</option>
  96.             <option value="-7" <% If EnvironnementRes("envdecal")=-7 Then %>selected<% End If %>>-7</option>
  97.             <option value="-6" <% If EnvironnementRes("envdecal")=-6 Then %>selected<% End If %>>-6</option>
  98.             <option value="-5" <% If EnvironnementRes("envdecal")=-5 Then %>selected<% End If %>>-5</option>
  99.             <option value="-4" <% If EnvironnementRes("envdecal")=-4 Then %>selected<% End If %>>-4</option>
  100.             <option value="-3" <% If EnvironnementRes("envdecal")=-3 Then %>selected<% End If %>>-3</option>
  101.             <option value="-2" <% If EnvironnementRes("envdecal")=-2 Then %>selected<% End If %>>-2</option>
  102.             <option value="-1" <% If EnvironnementRes("envdecal")=-1 Then %>selected<% End If %>>-1</option>
  103.             <option value="0" <% If EnvironnementRes("envdecal")=0 Then %>selected<% End If %>>0</option>
  104.             <option value="1" <% If EnvironnementRes("envdecal")=1 Then %>selected<% End If %>>+1</option>
  105.             <option value="2" <% If EnvironnementRes("envdecal")=2 Then %>selected<% End If %>>+2</option>
  106.             <option value="3" <% If EnvironnementRes("envdecal")=3 Then %>selected<% End If %>>+3</option>
  107.             <option value="4" <% If EnvironnementRes("envdecal")=4 Then %>selected<% End If %>>+4</option>
  108.             <option value="5" <% If EnvironnementRes("envdecal")=5 Then %>selected<% End If %>>+5</option>
  109.             <option value="6" <% If EnvironnementRes("envdecal")=6 Then %>selected<% End If %>>+6</option>
  110.             <option value="7" <% If EnvironnementRes("envdecal")=7 Then %>selected<% End If %>>+7</option>
  111.             <option value="8" <% If EnvironnementRes("envdecal")=8 Then %>selected<% End If %>>+8</option>
  112.             <option value="9" <% If EnvironnementRes("envdecal")=9 Then %>selected<% End If %>>+9</option>
  113.             <option value="10" <% If EnvironnementRes("envdecal")=10 Then %>selected<% End If %>>+10</option>
  114.             <option value="11" <% If EnvironnementRes("envdecal")=11 Then %>selected<% End If %>>+11</option>
  115.             <option value="12" <% If EnvironnementRes("envdecal")=12 Then %>selected<% End If %>>+12</option>
  116.           </select></td>
  117.       </tr>
  118.       <tr>
  119.         <td width="100%" bgcolor="<% =EnvironnementRes("envtop") %>" colspan="4">
  120.           <p align="center"><font face="Arial" size="2">ParamΦtres facultatifs de
  121.           l'utilisateur :<br>
  122.           </font><font face="Arial" size="1">(Laissez vide si inutile)</font></td>
  123.       </tr>
  124.       <tr>
  125.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom
  126.           de paramΦtre utilisateur facultatif 1 :</font></td>
  127.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="facul1" size="30" value="<% =EnvironnementRes("envfacul1") %>"></font></td>
  128.       </tr>
  129.       <tr>
  130.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom
  131.           de paramΦtre utilisateur facultatif 2 :</font></td>
  132.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="facul2" size="30" value="<% =EnvironnementRes("envfacul2") %>"></font></td>
  133.       </tr>
  134.       <tr>
  135.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom
  136.           de paramΦtre utilisateur facultatif 3 :</font></td>
  137.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="facul3" size="30" value="<% =EnvironnementRes("envfacul3") %>"></font></td>
  138.       </tr>
  139.       <tr>
  140.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom
  141.           de paramΦtre utilisateur facultatif 4 :</font></td>
  142.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="facul4" size="30" value="<% =EnvironnementRes("envfacul4") %>"></font></td>
  143.       </tr>
  144.       <tr>
  145.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nom
  146.           de paramΦtre utilisateur facultatif 5 :</font></td>
  147.         <td width="67%" colspan="3" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="facul5" size="30" value="<% =EnvironnementRes("envfacul5") %>"></font></td>
  148.       </tr>
  149.       <tr>
  150.         <td width="100%" colspan="4" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Les
  151.           couleurs :</font></td>
  152.       </tr>
  153.       <tr>
  154.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Fond :</font></td>
  155.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="back" size="20" value="<% =EnvironnementRes("envback") %>"></font></td>
  156.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envback") %>"><b>Actuel</b></font></td>
  157.       </tr>
  158.       <tr>
  159.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Texte :</font></td>
  160.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="txt" size="20" value="<% =EnvironnementRes("envtxt") %>"></font></td>
  161.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envtxt") %>"><b>Actuel</b></font></td>
  162.       </tr>
  163.       <tr>
  164.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Liens :</font></td>
  165.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="lnk" size="20" value="<% =EnvironnementRes("envlnk") %>"></font></td>
  166.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envlnk") %>"><b>Actuel</b></font></td>
  167.       </tr>
  168.       <tr>
  169.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Liens visitΘs :</font></td>
  170.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="vlnk" size="20" value="<% =EnvironnementRes("envvlnk") %>"></font></td>
  171.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envvlnk") %>"><b>Actuel</b></font></td>
  172.       </tr>
  173.       <tr>
  174.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Haut des tableaux :</font></td>
  175.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="top" size="20" value="<% =EnvironnementRes("envtop") %>"></font></td>
  176.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envtop") %>"><b>Actuel</b></font></td>
  177.       </tr>
  178.       <tr>
  179.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Case 1 :</font></td>
  180.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="col1" size="20" value="<% =EnvironnementRes("envcol1") %>"></font></td>
  181.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envcol1") %>"><b>Actuel</b></font></td>
  182.       </tr>
  183.       <tr>
  184.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Case 2 :</font></td>
  185.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="col2" size="20" value="<% =EnvironnementRes("envcol2") %>"></font></td>
  186.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2" color="<% =EnvironnementRes("envcol2") %>"><b>Actuel</b></font></td>
  187.       </tr>
  188.       <tr>
  189.         <td width="100%" colspan="4" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Les
  190.           images :</font></td>
  191.       </tr>
  192.       <tr>
  193.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Logo :</font></td>
  194.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="logo" size="20" value="<% =EnvironnementRes("envlogo") %>"></font></td>
  195.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></td>
  196.       </tr>
  197.       <tr>
  198.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nouveau message dans le
  199.           sujet :</font></td>
  200.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="new" size="20" value="<% =EnvironnementRes("envnew") %>"></font></td>
  201.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envnew") %>"></td>
  202.       </tr>
  203.       <tr>
  204.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Ancien message dans le sujet
  205.           :</font></td>
  206.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="old" size="20" value="<% =EnvironnementRes("envold") %>"></font></td>
  207.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envold") %>"></td>
  208.       </tr>
  209.       <tr>
  210.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nouveau message :</font></td>
  211.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="newp" size="20" value="<% =EnvironnementRes("envnewp") %>"></font></td>
  212.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envnewp") %>"></td>
  213.       </tr>
  214.       <tr>
  215.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Ancien message :</font></td>
  216.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="oldp" size="20" value="<% =EnvironnementRes("envoldp") %>"></font></td>
  217.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envoldp") %>"></td>
  218.       </tr>
  219.       <tr>
  220.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Message fermΘ :</font></td>
  221.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="close" size="20" value="<% =EnvironnementRes("envclose") %>"></font></td>
  222.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envclose") %>"></td>
  223.       </tr>
  224.       <tr>
  225.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Nouveau message :</font></td>
  226.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="post" size="20" value="<% =EnvironnementRes("envpost") %>"></font></td>
  227.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envpost") %>"></td>
  228.       </tr>
  229.       <tr>
  230.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">RΘpondre :</font></td>
  231.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="rep" size="20" value="<% =EnvironnementRes("envrep") %>"></font></td>
  232.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envrep") %>"></td>
  233.       </tr>
  234.       <tr>
  235.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Message :</font></td>
  236.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="postlogo" size="20" value="<% =EnvironnementRes("envpostlogo") %>"></font></td>
  237.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envpostlogo") %>"></td>
  238.       </tr>
  239.       <tr>
  240.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Profil :</font></td>
  241.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="pro" size="20" value="<% =EnvironnementRes("envpro") %>"></font></td>
  242.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envpro") %>"></td>
  243.       </tr>
  244.       <tr>
  245.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Edition :</font></td>
  246.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="edit" size="20" value="<% =EnvironnementRes("envedit") %>"></font></td>
  247.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envedit") %>"></td>
  248.       </tr>
  249.       <tr>
  250.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">E-mail :</font></td>
  251.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="mail" size="20" value="<% =EnvironnementRes("envmail") %>"></font></td>
  252.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envmail") %>"></td>
  253.       </tr>
  254.       <tr>
  255.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Dossier de l'arborescence :</font></td>
  256.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="drawer" size="20" value="<% =EnvironnementRes("envdrawer") %>"></font></td>
  257.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envdrawer") %>"></td>
  258.       </tr>
  259.       <tr>
  260.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Arborescence 1 :</font></td>
  261.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="tree1" size="20" value="<% =EnvironnementRes("envtree1") %>"></font></td>
  262.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envtree1") %>"></td>
  263.       </tr>
  264.       <tr>
  265.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">Arborescence 2 :</font></td>
  266.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="tree2" size="20" value="<% =EnvironnementRes("envtree2") %>"></font></td>
  267.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envtree2") %>"></td>
  268.       </tr>
  269.       <tr>
  270.         <td width="100%" colspan="4" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Les
  271.           smiley :</font></td>
  272.       </tr>
  273.       <tr>
  274.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">:)</font></td>
  275.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="smi1" size="20" value="<% =EnvironnementRes("envsmi1") %>"></font></td>
  276.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envsmi1") %>"></td>
  277.       </tr>
  278.       <tr>
  279.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">:(</font></td>
  280.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="smi2" size="20" value="<% =EnvironnementRes("envsmi2") %>"></font></td>
  281.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envsmi2") %>"></td>
  282.       </tr>
  283.       <tr>
  284.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">;)</font></td>
  285.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="smi3" size="20" value="<% =EnvironnementRes("envsmi3") %>"></font></td>
  286.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envsmi3") %>"></td>
  287.       </tr>
  288.       <tr>
  289.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">:D</font></td>
  290.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="smi4" size="20" value="<% =EnvironnementRes("envsmi4") %>"></font></td>
  291.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envsmi4") %>"></td>
  292.       </tr>
  293.       <tr>
  294.         <td width="33%" bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">:o</font></td>
  295.         <td width="33%" colspan="2" bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="text" name="smi5" size="20" value="<% =EnvironnementRes("envsmi5") %>"></font></td>
  296.         <td width="34%" bgcolor="<% =EnvironnementRes("envcol2") %>"><img border="0" src="<% =EnvironnementRes("envsmi5") %>"></td>
  297.       </tr>
  298.       <tr>
  299.         <td width="50%" colspan="2" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  300.         <td width="50%" colspan="2" align="center" bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2"><input type="reset" value="RΘtablir"></font></td>
  301.       </tr>
  302.     </table>
  303.     </center>
  304.   </div>
  305. </form>
  306.  
  307. <%
  308.     longeur1=Len(Nom2)
  309.     longeur2=Len(Passe2)
  310.  
  311.     J=1
  312.     For I=1 To longeur2
  313.         char1=Mid(Nom2,J,1)
  314.         char2=Mid(Passe2,I,1)
  315.         char3=Mid(Passe2,I,1)
  316.         code1=Asc(char1)
  317.         code2=Asc(char2)
  318.         code2=code2-code1
  319.         If code2<0 Then
  320.             code2=code2+255
  321.         End If
  322.         char2=Chr(code2)
  323.         Passe2=Replace(Passe2,char3,char2,1,1)
  324.  
  325.         J=J+1
  326.         If J>longeur1 Then
  327.             J=1
  328.         End If
  329.     Next
  330.     'DΘ-Cryptage du mot de passe
  331. %>
  332. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">
  333. Retour au menu d'administration</a>
  334. <% Else %>
  335. </b></font></p>
  336. <p align="center">
  337.  <font face="Arial" size="2"><b>
  338. Vous n'avez pas le droit d'administrer le forum.
  339. <%
  340. temps=Now()
  341. While DateDiff("s",temps,Now())<3
  342. Wend
  343. %>
  344. <script language="javascript">
  345. history.back();
  346. </script>
  347. <% End If
  348. Else %>
  349. <p align="center">
  350.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  351.  <%
  352. temps=Now()
  353. While DateDiff("s",temps,Now())<3
  354. Wend
  355. %>
  356. <script language="javascript">
  357. history.back();
  358. </script>
  359. <% End If
  360. Else %>
  361. <p align="center">
  362.  <font face="Arial" size="2"><b>
  363. Entrez un nom d'utilisateur valide.
  364. <%
  365. temps=Now()
  366. While DateDiff("s",temps,Now())<3
  367. Wend
  368. %>
  369. <script language="javascript">
  370. history.back();
  371. </script>
  372. <% End If
  373. Else %>
  374. <p align="center">
  375.  <font face="Arial" size="2"><b>
  376. Entrez un nom d'utilisateur valide.
  377. <%
  378. temps=Now()
  379. While DateDiff("s",temps,Now())<3
  380. Wend
  381. %>
  382. <script language="javascript">
  383. history.back();
  384. </script>
  385. <% End If %>
  386. <!--#include file="basdepage.asp"-->
  387. </p>
  388. </body>
  389.  
  390. </html>
  391.