home *** CD-ROM | disk | FTP | other *** search
Wrap
<% @ LANGUAGE="VBScript" lcid="1036" %> <!--#include file="include.asp"--> <% Email2=Replace(request.form("Email"), "'", "''") Passe2=Replace(request.form("Passe"), "'", "''") Internet2=Replace(request.form("Internet"), "'", "''") Occupation2=Replace(request.form("Occupation"), "'", "''") Location2=Replace(request.form("Location"), "'", "''") Interets2=Replace(request.form("Interets"), "'", "''") ICQ2=Replace(request.form("ICQ"), "'", "''") Signature2=Replace(request.form("Signature"), "'", "''") 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"), "'", "''") Id2=request.form("Id") Nom2=request.form("Nom") cookie2=request.form("cookie") If Email2<>"" and Passe2<>"" Then If cookie2="Oui" Then Response.Cookies("abb").Expires = Now() Else Response.Cookies("abb")("nom") = Nom2 Response.Cookies("abb")("passe") = Passe2 Response.Cookies("abb").Expires = Now() + 365 End If End If %> <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") %>"> <font face="Arial" size="2"><b> <% If Email2<>"" and Passe2<>"" Then %> <% 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>255 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 'Cryptage du mot de passe SQLStmt3 = "UPDATE Utilisateur " SQLStmt3 = SQLStmt3 & "SET usrmail='" & Email2 & "' , usrpass='" & Passe2 & "' , usrweb='" & Internet2 & "' , usrocc='" & Occupation2 & "' , usrloc='" & Location2 & "' , usrint='" & Interets2 & "' , usricq='" & ICQ2 & "' , usrsign='" & Signature2 & "' , usrfacul1='" & Facul12 & "' , usrfacul2='" & Facul22 & "' , usrfacul3='" & Facul32 & "' , usrfacul4='" & Facul42 & "' , usrfacul5='" & Facul52 & "' " SQLStmt3 = SQLStmt3 & "WHERE usrid=" & Id2 & " " Set RS3 = ConnectionBD.Execute(SQLStmt3) %> <center>Merci, les modifications ont ΘtΘ effectuΘes.<br><br>Vous allez automatiquement Ωtre ramenΘ sur le forum.<br>Sinon cliquez ici : <a href="default.asp">Retour au forum</a></center> <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <script language="javascript"> document.location="default.asp"; </script> <% Else %> <center>Remplissez tous les champs obligatoires SVP.</center> <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <script language="javascript"> history.back(); </script> <% End If %> </b></font> <!--#include file="basdepage.asp"--> </body> </html>