Discussion :

[StephM_asp]

Salut,

J'ai pas le temps de tout regarder mais je vois juste une grosse erreur (je parle pas de l'algo dont je n'ai pas pris connaissance) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SQL = "SELECT * FROM Donnee where Email ='" & login & "' and Pass = '" & pass & "' "

A remplacer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SQL = "SELECT * FROM Donnee where Email LIKE '" & login & "' and Pass LIKE '" & pass & "' "

Pas de "=" lorsque tu traites des chaines de caractères, uniquement pour les valeurs numériques.

++

[LaJess]

D'accord, merci beaucoup.
J'ai modifier mais j'ai toujours l'erreur.

[StephM_asp]

Je pige pas là, où est le code où tu enregistres le contenu du formulaire d'inscription ?

Ta table des membres est bien remplie ?
Et celle où tu enregistres chaque connexion aussi ?

++

[LaJess]

Le code de l'enregistrement des données du formulaire d'inscription est sur une autre page. Je n'ai pas besoin de celle ci maintenant.
Oui j'ai remplis correctement mes deux tables.

[StephM_asp]

Ok, en fait tu ne boucles pas sur ton recordset.

essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<%   Dim id, Email, Heure, rs, Connstring	
	Set cnn = Server.CreateObject("ADODB.Connection")
	ConnString = "DBQ=" & Server.MapPath("/test/Inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
	cnn.Open ConnString
	SQL = "SELECT * FROM Login"
	Set RS = Cnn.Execute(SQL)
 do while not RS.EOF
     id = RS("id")
     Email = RS("Email")
     Heure = RS("Heure")
  RS.movenext
 loop
%>

[LaJess]

Effectivement, j'avais oublié de boucler.
J'ai une autre petite erreur. J'ai une condition, avec une rédirection, et cette condition est placée juste avant mon code, ce qui fait que lors de la redirection, l'enregistrement ne se fait pas (vu que le code est placé après). Mais je n'arrive pas à mettre ma condition au bon endroit pour que ça joue.. Voici le code :

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
<% Dim Email, Pass, id, rs, Connstring
	login = Request.form("login") 
	pass = Request.form ("pass") 
 
	Set cnn = Server.CreateObject("ADODB.Connection")
	ConnString = "DBQ=" & Server.MapPath("/test/Inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
	cnn.Open ConnString
	SQL = "SELECT * FROM Donnee where Email ='" & login & "' and Pass = '" & pass & "' "
	Set RS = Cnn.Execute(SQL)
 
%>
 
 
 
 
<%if RS.eof then%>
   <a href="inscription.asp">Inscription</a>
 
<%else
	Session("access") = Request("login")
	Response.Redirect("sauvegarde.asp")
 
end if%>
 
 
<%
	RS.close
	Cnn.close
	set RS = nothing
	set Conn = nothing
%>
<!-- Fin de vérification -->
 
 
 
 
<!-- Connexion a la BDD (table Donnee) pour récupérer mes variable ID et Email -->
<%
	Set cnn = Server.CreateObject("ADODB.Connection")
	ConnString = "DBQ=" & Server.MapPath("/test/Inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
	cnn.Open ConnString
	SQL = "SELECT * FROM Donnee where Email LIKE '" & login & "' "
	Set RS = Cnn.Execute(SQL)
 
id = RS("id")
Email = RS("Email")
%>
 
<!-- Connexion a la BDD (table Login) pour l'enregistrement de l'id et de l'Email-->
<%
Set cnn = Server.CreateObject("ADODB.RecordSet")
	ConnString = "DBQ=" & Server.MapPath("/test/Inscription.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
	'Ouverture de la table dans la base
	cnn.Open "Login", Connstring, 2,3,2
	'Création d'un 'nouvel' enregistrement
	cnn.AddNew()
	'Sauvegarde des valeurs 
	cnn("id") = replace(id, "<", "&lt;")
	cnn("Email") = replace(Email, "<", "&lt;")
	'Enregistrement dans la base de donnée
	cnn.UpDate
	'Fermeture et destruction du record set
	cnn.close
	Set cnn=Nothing
%>

Dois-je rajouter une condition ?

[StephM_asp]

Pourquoi ? Tu souhaites compter une visite même si la personne ne s'est pas correctement identifiée ?

++

[LaJess]

Non. Justement, mon code est placé juste après la condition(qui redirige directement mon visiteur sur les pages auxquelles il a acces). Et vu que la redirection se fait automatiquement, et que mon code est placer après, il n'enregistre pas les données. Il faudrai le placer après la redirection vers la page d'inscription, mais avant la redirection vers les pages ou les visiteurs ont acces.
Suis-je un peu plus claire ?

[StephM_asp]

Ah oui ok je vois.
Et bien tu peux toujours placer les infos dans des variables session, c'est pas mal, je fais comme ça d'ailleurs.

Donc :
- il se log, si c'est pas bon, il doit recommencer
- si c'est bon, tu vas chercher son ID + son email avant de rediriger. Tu places le toute dans 2 sessions ou une session array et après la redirection tu enregistres le tout dans ta table de compteur en te servant donc de ces sessions.

N'oublies pas un petit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<a href="deco.asp"> Se déconnecter</a>

dans laquelle tu nettoies les sessions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Session.Remove("key")
'-- voir même un
Session.abandon
'-- si tu veux finir sa session au passage

++

[LaJess]

Aah hé bien c'est parfait
Merci beaucoup !!

Petite et dernière question, est-ce que je peux, lorsque je ressors mes informations de ma table, les classer par ordre alphabétique ?

[StephM_asp]

Oui, tous les tris et filtres se feront dans ta requête SQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'-- classera les résultats par nom
select * from matable order by nom

++

[LaJess]

Aah nikel, c'est tout bête..
Et y'a-t-il un moyen de savoir qu'elles pages ils ont visité ?

[vva]

tu as toutes les variables de serveur disponibles sur ce tuto

http://www.w3schools.com/asp/coll_servervariables.asp

[LaJess]

Youhou jcomprend pas un mot d'anglais
Merci quand même je vais essayé de me débrouiller avec sa !
Encore merci pour l'aide !!

[vva]

Request.ServerVariables (URL)

[LaJess]

Merci beaucoup pour votre aide, j'ai enfin réussis à faire ce que je voulais