salut ,

enfin j'ai trouvé la solution j'ai refai mon code et ça marche

donc je le cole ici pour que tout le monde proffite
config.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
<%
dim Provider
dim dbpath
' Chemin de la base de données
' Si votre base est là : htdocs/database/ma_base.mdb 
' et si votre page est là : htdocs/_connexion.asp
dbPath = Server.MapPath("./pass.mdb")
 
Provider = "DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & dbPath
 
%>
index.asp

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
<% option explicit %>
 
<!-- #include file="config1.asp" -->
 
 
<%
Dim RQuser
Dim RQPass
 
RQuser=request.QueryString("user")
RQPass=request.QueryString("pass")
%>
 
 
 
 
<% if RQuser<>"" and RQPass<>"" then %>
<%
Dim DB_objConn
Set DB_objConn=CreateObject("ADODB.Connection")
DB_objConn.Open Provider
 
 
Dim dataRec_Connection
Set dataRec_Connection=CreateObject("ADODB.RecordSet")
dataRec_Connection.Open "SELECT * FROM Pass WHERE Nick like'" & RQuser & "' AND Pass='" & RQPAss & "'",DB_objConn
 
 
Dim UserLevel
 
If dataRec_Connection.EOF then
	response.Write "<B>Le pseudo ou le pass que vous avez tapé est faux!</B>"
else
	UserLevel=dataRec_Connection("UserLevel")
	if UserLevel=1 then
		response.Write "<B>Vous êtes maintenant connecté en tant que SuperAdmin!</B>"
	elseif UserLevel=2 then
		response.Write "<B>Vous êtes maintenant connecté en tant qu'Admin!</B>"
	else
		response.Write "<B>Vous êtes maintenant connecté en tant que simple utilsateur!</B>"
	end if
 
	'---- Démarre une nouvelle session ----
	Session("user")=RQuser
	Session("Pass")=RQPass
	Session("UserLevel")=UserLevel
	response.write Session("user")
 
 
 
 
end if
 
%>
 
<BR><BR>
<A href=memberarea1.asp>Aller faire un tour dans la zone membre</A>
 
 
 
<% else %>
<HTML>
 
<HEAD>
<TITLE>Identifiez vous</TITLE>
</HEAD>
 
<BODY>
<FORM action=index1.asp method=get>
Pseudo:<BR>
<INPUT type=text name=user><BR>
PassWord:<BR>
<INPUT type=text name=pass><BR>
<INPUT type=submit value="Connection!">
</FORM>
<% response.write "l'utilisateur est"
 response.write Session("user") %>
</BODY>
 
</HTML>
<% end if %>
member.asp
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
 
<% if session("user")="" and Session("Pass")="" then 
 response.redirect "nonmember.asp"
 end if %>
<HTML>
 
<HEAD>
<TITLE>BIenvenue dans la zone membre</TITLE>
</HEAD>
 
<BODY>
	<%
	if Session("UserLevel")=1 then
		response.Write "<B>Vous êtes maintenant connecté en tant que SuperAdmin!</B><BR>Vous disposez de tous les droits de modification!"
	elseif Session("UserLevel")=2 then
		response.Write "<B>Vous êtes maintenant connecté en tant qu'Admin!</B><BR>Vous disposez de quelques droits de modification!"
	else
		response.Write "<B>Vous êtes maintenant connecté en tant que simple utilsateur!</B><BR>Vous ne disposez d'aucun droit de modification!"
	end if
	%>
 
 
<BR><BR><A href=deconnection1.asp>Se déconnecter!</A>
 
</BODY>
 
</HTML>
nonmember.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
<HTML>
 
<HEAD>
<TITLE>Vous ne pouvez pas accéder à la zone membre car vous n'êtes pas connecté!</TITLE>
</HEAD>
 
<BODY>
 
<A href=index1.asp>Se connecter</A>
 
</BODY>
deconnexion.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
<%
session.abandon
response.Redirect "index.asp"
 
%>
 
voila a +++