home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doprop.asp < prev    next >
Text File  |  2000-03-02  |  5KB  |  108 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.     name2=Replace(request.form("name"), "'", "''")
  8.     site2=Replace(request.form("site"), "'", "''")
  9.     contact2=Replace(request.form("contact"), "'", "''")
  10.     back2=Replace(request.form("back"), "'", "''")
  11.     txt2=Replace(request.form("txt"), "'", "''")
  12.     lnk2=Replace(request.form("lnk"), "'", "''")
  13.     vlnk2=Replace(request.form("vlnk"), "'", "''")
  14.     top2=Replace(request.form("top"), "'", "''")
  15.     col12=Replace(request.form("col1"), "'", "''")
  16.     col22=Replace(request.form("col2"), "'", "''")
  17.     logo2=Replace(request.form("logo"), "'", "''")
  18.     old2=Replace(request.form("old"), "'", "''")
  19.     new2=Replace(request.form("new"), "'", "''")
  20.     oldp2=Replace(request.form("oldp"), "'", "''")
  21.     newp2=Replace(request.form("newp"), "'", "''")
  22.     close2=Replace(request.form("close"), "'", "''")
  23.     post2=Replace(request.form("post"), "'", "''")
  24.     rep2=Replace(request.form("rep"), "'", "''")
  25.     postlogo2=Replace(request.form("postlogo"), "'", "''")
  26.     pro2=Replace(request.form("pro"), "'", "''")
  27.     edit2=Replace(request.form("edit"), "'", "''")
  28.     mail2=Replace(request.form("mail"), "'", "''")
  29.     drawer2=Replace(request.form("drawer"), "'", "''")
  30.     tree12=Replace(request.form("tree1"), "'", "''")
  31.     tree22=Replace(request.form("tree2"), "'", "''")
  32.     smi12=Replace(request.form("smi1"), "'", "''")
  33.     smi22=Replace(request.form("smi2"), "'", "''")
  34.     smi32=Replace(request.form("smi3"), "'", "''")
  35.     smi42=Replace(request.form("smi4"), "'", "''")
  36.     smi52=Replace(request.form("smi5"), "'", "''")
  37.     html2=Replace(request.form("html"), "'", "''")
  38.     abb2=Replace(request.form("abb"), "'", "''")
  39.     sign2=Replace(request.form("sign"), "'", "''")
  40.     email2=Replace(request.form("email"), "'", "''")
  41.     icq2=Replace(request.form("icq"), "'", "''")
  42.     facul12=Replace(request.form("facul1"), "'", "''")
  43.     facul22=Replace(request.form("facul2"), "'", "''")
  44.     facul32=Replace(request.form("facul3"), "'", "''")
  45.     facul42=Replace(request.form("facul4"), "'", "''")
  46.     facul52=Replace(request.form("facul5"), "'", "''")
  47.     decal2=Replace(request.form("decal"), "'", "''")
  48.     'RΘcupΘration du formulaire prΘcΘdent
  49.         
  50.     SQLStmt = "UPDATE Environnement "
  51.     SQLStmt = SQLStmt & "SET envname = ('" & name2 & "'), envsite = ('" & site2 & "'), envcontact = ('" & contact2 & "'), envback = ('" & back2 & "'), envtxt = ('" & txt2 & "'), envlnk = ('" & lnk2 & "'), envvlnk = ('" & vlnk2 & "'), envtop = ('" & top2 & "'), envcol1 = ('" & col12 & "'), envcol2 = ('" & col22 & "'), envlogo = ('" & logo2 & "'), envold = ('" & old2 & "'), envnew = ('" & new2 & "'), envoldp = ('" & oldp2 & "'), envnewp = ('" & newp2 & "'), envclose = ('" & close2 & "'), envpost = ('" & post2 & "'), envrep = ('" & rep2 & "'), envpostlogo = ('" & postlogo2 & "'), envpro = ('" & pro2 & "'), envedit = ('" & edit2 & "'), envmail = ('" & mail2 & "'), envdrawer = ('" & drawer2 & "'), envtree1 = ('" & tree12 & "'), envtree2 = ('" & tree22 & "'), envsmi1 = ('" & smi12 & "'), envsmi2 = ('" & smi22 & "'), envsmi3 = ('" & smi32 & "'), envsmi4 = ('" & smi42 & "'), envsmi5 = ('" & smi52 & "'), envhtml = (" & html2 & "), envabb = (" & abb2 & "), envsign = (" & sign2 & "), envemail = (" & email2 & "), envicq = (" & icq2 & "), envfacul1 = ('" & facul12 & "'), envfacul2 = ('" & facul22 & "'), envfacul3 = ('" & facul32 & "'), envfacul4 = ('" & facul42 & "'), envfacul5 = ('" & facul52 & "'), envdecal = (" & decal2 & ") "
  52.     Set RS = ConnectionBD.Execute(SQLStmt)
  53. %>
  54. <html>
  55. <head>
  56. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  57. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  58. <meta name="ProgId" content="FrontPage.Editor.Document">
  59. <title>ABB</title>
  60. <style type="text/css">
  61. <!--
  62. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  63. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  64. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  65. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  66. -->
  67. </style>
  68. </head>
  69.  
  70. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  71. <p align="center"><font face="Arial"><b>
  72. Modifications effectuΘes</b></font>
  73. <p align="center"> 
  74. <%
  75.     longeur1=Len(Nom2)
  76.     longeur2=Len(Passe2)
  77.  
  78.     J=1
  79.     For I=1 To longeur2
  80.         char1=Mid(Nom2,J,1)
  81.         char2=Mid(Passe2,I,1)
  82.         char3=Mid(Passe2,I,1)
  83.         code1=Asc(char1)
  84.         code2=Asc(char2)
  85.         code2=code2-code1
  86.         If code2<0 Then
  87.             code2=code2+255
  88.         End If
  89.         char2=Chr(code2)
  90.         Passe2=Replace(Passe2,char3,char2,1,1)
  91.  
  92.         J=J+1
  93.         If J>longeur1 Then
  94.             J=1
  95.         End If
  96.     Next
  97.     'DΘ-Cryptage du mot de passe
  98. %>
  99. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  100. </b></font></p>
  101. <script language="javascript">
  102. parent.abbdown.location="default.asp";
  103. </script>
  104. <!--#include file="basdepage.asp"-->
  105. </body>
  106.  
  107. </html>
  108.