Bonjour à tous,
Je programme (enfin j'essaye) en vbScript dans des ASP.
J'essaye desespérément de trouver la faille dans mon code mais je ne la trouve pas :
En gros j'ai une authentification par login/mot de passe, ces données sont stockées dans une base de donnée ACCESS (2003)
J'aimerais que quand une personne se logue, il apparaisse son Nom, le nom du centre où elle se trouve et une photo de son centre.
j'utilise pour ça les Session("blablabla")
J'arrive à faire afficher son Nom mais pas les 2 autres données
Alors voici le code :
Et voici l'erreur généré :
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 set rs = server.CreateObject ("ADODB.Recordset") rs.Open "SELECT * FROM tblRenseignements where Login='"& login &"'",conn set rsNomCentre = Server.CreateObject("ADODB.Recordset") rsNomCentre.Open "SELECT tblRenseignements.Nom, tblCentres.Nom, tblRenseignements.* FROM tblCentres INNER JOIN tblRenseignements ON tblCentres.ID_Centres = tblRenseignements.ID_Centres WHERE (([tblRenseignements]![Login]='"& login &"') AND ([tblRenseignements]![ID_Centres]=[tblCentres]![ID_centres]))", conn Set rsPhotoCentre = Server.CreateObject("ADODB.Recordset") rsPhotoCentre.Open "SELECT tblRenseignements.img_Centre, tblCentres.Nom, tblRenseignements.* FROM tblCentres INNER JOIN tblRenseignements ON tblCentres.ID_Centres = tblRenseignements.ID_Centres WHERE (([tblRenseignements]![Login]='"& login &"') AND ([tblRenseignements]![ID_Centres]=[tblCentres]![ID_centres]))", conn if rs("mdp") = mdp then Session("name") = rs("Nom") Session("Centre") = rsNomCentre("tblCentres.Nom") Session("Photo") = rsPhotoCentre("tblRenseignements.img_Centre") rs.Close conn.Close set rs=nothing set conn=nothing Response.Redirect("action.asp")
ADODB.Recordset error '800a0cc1'
Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.
/portail/admin/verify.asp, line 35
La ligne 35 est celle en rouge dans le code.
En fait la session fonctionne pour monMais ça coince au niveau des 2 autres :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Session("name") = rs("Nom")
--
Code : Sélectionner tout - Visualiser dans une fenêtre à part Session("Centre") = rsNomCentre("tblCentres.Nom")Merci de ce que vous pourrez faire pour moi.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Session("Photo") = rsPhotoCentre("tblRenseignements.img_Centre")
Partager