Bonjour,

J'ai une page identification avec un login et un mot de passe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
<%
	Select Case Request("Action")
	Case "","Erreur"
%>
<%
	If Request("Action")="Erreur" Then
		Response.Write("<font color='red'><b>DONNÉES D'IDENTIFICATION INCONNUES !!!</b></font>")
	End If	
%>	
 
	<form action="Identification.asp" method="post">
		Identifiant
	<br>
		(Ex : guide.congres@copyright.fr) 
	<br>
	<br>
			<input type="text" name="login" size="20"  style="border-style: solid; border-width: 1">
	<p>
		Code personnel
	<br>
		(il s'agit de votre code client CL****)
	<br>
	<br>
			<input type="password" name="password" size="20" style="border-style: solid; border-width: 1">
	<p>
			<input type="submit" value="Me Connecter" name="Action" style="border-style:solid; border-width:1; background-color: #64FEFD; border-color: #FFFFFF">    										
	<p>
			> Code personnel oublié
  </form>
 
    <%
	Case "Me Connecter"
		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Request("login") & "' AND CodePersonnel='" & Request("password") & "'"
		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
		RsMonCompte.Open strRequete,ConnexAdmin
 
		If RsMonCompte.Eof Then
			Response.Redirect "Identification.asp?Action=Erreur&login=" & Request("login") & "&password=" & Request("password")
		Else
			Session("user")=RsMonCompte("identifiant")
			Response.Redirect "MesDonnees.asp"
		End If
end Select
%>
 
<%
' après que identification ok'
session("identOk")=true
session("login")=Request.form("login")
%>
Je veux que l'identifiant puisse modifier son login et mot passe comme bon lui semble.
Comment faire...

Merci d'avance,

Cédric