<% @ LANGUAGE="VBScript" lcid="1036" %> <% Nom2=Replace(request.form("Nom"), "'", "''") Passe2=Replace(request.form("Passe"), "'", "''") %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">

" alt="Retour à la page principale"> Modifier votre profil <% If len(Nom2) > 0 Then strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' " set AutRes=ConnectionBD.Execute(strAutSQL) If AutRes.EOF=false Then Passe3=Passe2 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 If AutRes("usrpass") = Passe2 Then strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " " set StatRes=ConnectionBD.Execute(strStatSQL) %>

 

Merci, Votre identité est confirmée : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>)

Vous pouvez modifier les informations suivantes :
(les champs marqués par * sont obligatoires)

<% If EnvironnementRes("envfacul1")<>"" Then %> <% End If %> <% If EnvironnementRes("envfacul2")<>"" Then %> <% End If %> <% If EnvironnementRes("envfacul3")<>"" Then %> <% End If %> <% If EnvironnementRes("envfacul4")<>"" Then %> <% End If %> <% If EnvironnementRes("envfacul5")<>"" Then %> <% End If %> <% If EnvironnementRes("envicq")=true Then %> <% End If %>
">*Adresse E-mail : ">">
">*Mot de passe : ">
"><% =EnvironnementRes("envfacul1") %> ">">
"><% =EnvironnementRes("envfacul2") %> ">">
"><% =EnvironnementRes("envfacul3") %> ">">
"><% =EnvironnementRes("envfacul4") %> ">">
"><% =EnvironnementRes("envfacul5") %> ">">
">Site Internet : ">">
">Occupation : ">">
">Ville, Pays : ">">
">Intérêts : ">">
">Numéro ICQ : ">">
" valign="top">Signature : ">
">Sauvegarder le nom d'utilisateur et mot de passe dans un cookie ?
(Attention, ne pas utiliser les cookies vous obligera à entrer votre nom et mot de passe à chaque fois, pour en savoir plus sur les cookies, cliquez ici)		 "> Oui

Non
">

  <% Else %>  

Ce n'est pas le bon mot de passe. <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If Else %>

Entrez un nom d'utilisateur valide.

Si vous n'êtes pas encore inscrit, cliquez ici. <% temps=Now() While DateDiff("s",temps,Now())<10 Wend %> <% End If Else %>

Entrez un nom d'utilisateur valide.

Si vous n'êtes pas encore inscrit, cliquez ici. <% temps=Now() While DateDiff("s",temps,Now())<10 Wend %> <% End If %>