Discussion :

[ldoudl]

Bonjour,
voila je ne comprends pas pq ca marche pas pourtant ma connexion a la bdd est bonne

voila mon 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
 
<%
Dim login
login=Request.Form("login")
Dim pass
pass=Request.Form("pass")
if login = "" then Response.Redirect("vide.asp")
if pass = "" then Response.Redirect("vide.asp")
%>
<!-- #include file="connectbdd.asp" -->
<% 
Dim good
good=false
verif_sql = "SELECT * FROM users where user_login='"& login &"'"
Set verif=Connectionbdd.Execute(verif_sql)
	if verif.EOF=false then
		if verif.fields("user_pass")=pass then 
	 	         Session("login")=login
	 	         Session("pass")=pass
		         good=true
		end if
	end if
Connectionbdd.Close
Set connectionbdd = nothing
if good=true then Response.Redirect("choix.asp")
	else Response.Redirect("error.asp")
 
%>

Si qq'un a une idée
Merci d'avance

[Pymm]

Salut,
Qu'est-ce qui ne "marche" ? Quel est le message d'erreur ?
Il faut être plus précis dans sa demande sinon tu risques de ne pas avoir de réponse.

[ldoudl]

si le login ou le pass sont vrai il me redirige quand meme vers la page error.asp comme si ils étaient pas bon
on dirait que la condition est toujours fausse

[franculo_caoulene]

Tu fais des response.write dans tes if pour voir si tu passes dedans. Tu sauras donc quelle condition est fausse. Et ça t'aidera (et nous aussi éventuellement) à débuguer.

[ldoudl]

Apres avoir testé, l'erreur se trouve dans cette condition

Code :

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

1
2
 
if verif("user_pass")=pass then

avant de faire cette condition et en mettant des Response.write la condition est vraie mais il ne rentre pas dedans je comprends pas pq

[pc75]

Bonjour,

Une première chose ; Est-ce normal que pour vérifier les paramètres de connexion, tu ne testes pas le pass ?

Perso, je ferai comme ç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
15
16
17
18
19
20
21
22
23
24
 
<% 
Dim login 
login=Request.Form("login") 
Dim pass 
pass=Request.Form("pass") 
if login = "" then Response.Redirect("vide.asp") 
if pass = "" then Response.Redirect("vide.asp") 
%> 
<!-- #include file="connectbdd.asp" --> 
<% 
Dim good 
good=false 
verif_sql = "SELECT * FROM users where user_login='"& login &"' and user_pass = '" & pass & "'" 
Set verif=Connectionbdd.Execute(verif_sql) 
   if verif.EOF=false then 
         good=true 
   end if 
Connectionbdd.Close 
Set connectionbdd = nothing 
if good=true then Response.Redirect("choix.asp") 
   else Response.Redirect("error.asp") 
 
%>

[ldoudl]

Merci pour ta solution elle marche nikel
en fait j'allai chercher le login dans ma table avec le pass que je comparai a celui rentré mais j'arriv toujours pas a comprendre pq mon code ne marche pas pourtant il m a l air bon ya que ma condition qui merde j aimerai bien savoir pq?

[Cpas2latarte]

A tout hasard, le champ "user_pass" ne serait'il pas du type "char" dans la base de donnée???

[pc75]

Re,

Ton erreur :

if verif("user_pass")=pass then

corrigée :

Code :

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

1
2
 
if verif("user_pass")="pass" then

=> Les guillemets

[ldoudl]

Bien merci pour tout

[Immobilis]

Code :

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

1
2
 
if verif("user_pass")="pass" then

=> Les guillemets

Ah?? Il me semblait que pass etait une variable...
Ce ne serait pas plutôt le "END IF" qui manque ici:

Code :

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

1
2
if good=true then Response.Redirect("choix.asp") 
   else Response.Redirect("error.asp")

A+

[Cpas2latarte]

Nein !
pas besoin de end if
pas de bloc d'instruction, juste 1 instruction.
On peut le mettre dans la meme ligne que le if, juste apres le then

Je soupsonne un champ dans la BDD du type Char, et non varchar : complétion par des espaces (ou autres caractère) pour remplir le champ.
Ce qui expliquerai que le test en VB ne fonctionne pas alors qu'l fonction en SQL