home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE="VBScript" lcid="1036" %>
- <!--#include file="include.asp"-->
- <%
- Nom2=Replace(request.QueryString("Nom"), "'", "''")
- Passe2=Replace(request.QueryString("Passe"), "'", "''")
-
- name2=Replace(request.form("name"), "'", "''")
- site2=Replace(request.form("site"), "'", "''")
- contact2=Replace(request.form("contact"), "'", "''")
- back2=Replace(request.form("back"), "'", "''")
- txt2=Replace(request.form("txt"), "'", "''")
- lnk2=Replace(request.form("lnk"), "'", "''")
- vlnk2=Replace(request.form("vlnk"), "'", "''")
- top2=Replace(request.form("top"), "'", "''")
- col12=Replace(request.form("col1"), "'", "''")
- col22=Replace(request.form("col2"), "'", "''")
- logo2=Replace(request.form("logo"), "'", "''")
- old2=Replace(request.form("old"), "'", "''")
- new2=Replace(request.form("new"), "'", "''")
- oldp2=Replace(request.form("oldp"), "'", "''")
- newp2=Replace(request.form("newp"), "'", "''")
- close2=Replace(request.form("close"), "'", "''")
- post2=Replace(request.form("post"), "'", "''")
- rep2=Replace(request.form("rep"), "'", "''")
- postlogo2=Replace(request.form("postlogo"), "'", "''")
- pro2=Replace(request.form("pro"), "'", "''")
- edit2=Replace(request.form("edit"), "'", "''")
- mail2=Replace(request.form("mail"), "'", "''")
- drawer2=Replace(request.form("drawer"), "'", "''")
- tree12=Replace(request.form("tree1"), "'", "''")
- tree22=Replace(request.form("tree2"), "'", "''")
- smi12=Replace(request.form("smi1"), "'", "''")
- smi22=Replace(request.form("smi2"), "'", "''")
- smi32=Replace(request.form("smi3"), "'", "''")
- smi42=Replace(request.form("smi4"), "'", "''")
- smi52=Replace(request.form("smi5"), "'", "''")
- html2=Replace(request.form("html"), "'", "''")
- abb2=Replace(request.form("abb"), "'", "''")
- sign2=Replace(request.form("sign"), "'", "''")
- email2=Replace(request.form("email"), "'", "''")
- icq2=Replace(request.form("icq"), "'", "''")
- facul12=Replace(request.form("facul1"), "'", "''")
- facul22=Replace(request.form("facul2"), "'", "''")
- facul32=Replace(request.form("facul3"), "'", "''")
- facul42=Replace(request.form("facul4"), "'", "''")
- facul52=Replace(request.form("facul5"), "'", "''")
- decal2=Replace(request.form("decal"), "'", "''")
- 'RΘcupΘration du formulaire prΘcΘdent
-
- SQLStmt = "UPDATE Environnement "
- 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 & ") "
- Set RS = ConnectionBD.Execute(SQLStmt)
- %>
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
- <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
- <meta name="ProgId" content="FrontPage.Editor.Document">
- <title>ABB</title>
- <style type="text/css">
- <!--
- A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- -->
- </style>
- </head>
-
- <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
- <p align="center"><font face="Arial"><b>
- Modifications effectuΘes</b></font>
- <p align="center">
- <%
- longeur1=Len(Nom2)
- longeur2=Len(Passe2)
-
- J=1
- For I=1 To longeur2
- char1=Mid(Nom2,J,1)
- char2=Mid(Passe2,I,1)
- char3=Mid(Passe2,I,1)
- code1=Asc(char1)
- code2=Asc(char2)
- code2=code2-code1
- If code2<0 Then
- code2=code2+255
- End If
- char2=Chr(code2)
- Passe2=Replace(Passe2,char3,char2,1,1)
-
- J=J+1
- If J>longeur1 Then
- J=1
- End If
- Next
- 'DΘ-Cryptage du mot de passe
- %>
- <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
- </b></font></p>
- <script language="javascript">
- parent.abbdown.location="default.asp";
- </script>
- <!--#include file="basdepage.asp"-->
- </body>
-
- </html>
-