Pb de connexion dns
fautgratterdede
Messages postés
5
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2006
-
8 mai 2003 à 15:06
fautgratterdede Messages postés 5 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 25 janvier 2006 - 8 mai 2003 à 15:10
fautgratterdede Messages postés 5 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 25 janvier 2006 - 8 mai 2003 à 15:10
1 réponse
fautgratterdede
Messages postés
5
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2006
8 mai 2003 à 15:10
8 mai 2003 à 15:10
Je donne le code de ma page en meme temps
<%
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "asp"
'on recupere les champs du formulaire
dim Login
dim Pwd
Login = request.form("login")
Pwd = request.form("pwd")
SQL = "select * from tbl_user where Password='"&Pwd&"' and Login='"&Login&"'"
Set RsLot = Server.CreateObject("ADODB.Recordset")
RsLot.Open SQL, 2, 1, 1
If not RsLot.eof then
'mot de passe ok
session("nom") = RsLot("nom")
session("prenom") = RsLot("prenom")
If RsLot.Fields("Niveau") = "A" then
'redirection vers l'index admin
Else
'redirectionvers l'index utilistaeur
<!--#include file= "indexutil.asp" target="_parent"-->
End If
Else
'personne inconnue ou erreur de saisie
response.write("nul")
End if
De plus, je veux recuperer dans cette page, le login et le mot de passe pour acceder au site, mais ca ne passe pas dans mon if, ca va directement dasn le else et me ressort en erreur. J'ai verifie mes noms de variable, identique, mon enregistrement dans m bdd access il existe.
Je ne comprends pas d'ou vient l'erreur
'-------fermeture de la connection et du recordset----------
RsLot.Close
Set RsLot = Nothing
connection.Close
Set connection = Nothing
%>
</html>
<%
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "asp"
'on recupere les champs du formulaire
dim Login
dim Pwd
Login = request.form("login")
Pwd = request.form("pwd")
SQL = "select * from tbl_user where Password='"&Pwd&"' and Login='"&Login&"'"
Set RsLot = Server.CreateObject("ADODB.Recordset")
RsLot.Open SQL, 2, 1, 1
If not RsLot.eof then
'mot de passe ok
session("nom") = RsLot("nom")
session("prenom") = RsLot("prenom")
If RsLot.Fields("Niveau") = "A" then
'redirection vers l'index admin
Else
'redirectionvers l'index utilistaeur
<!--#include file= "indexutil.asp" target="_parent"-->
End If
Else
'personne inconnue ou erreur de saisie
response.write("nul")
End if
De plus, je veux recuperer dans cette page, le login et le mot de passe pour acceder au site, mais ca ne passe pas dans mon if, ca va directement dasn le else et me ressort en erreur. J'ai verifie mes noms de variable, identique, mon enregistrement dans m bdd access il existe.
Je ne comprends pas d'ou vient l'erreur
'-------fermeture de la connection et du recordset----------
RsLot.Close
Set RsLot = Nothing
connection.Close
Set connection = Nothing
%>
</html>
