log et pwd

Question

J'ai le code suivant : <% Set ConnLog=Server.CreateObject("ADODB.Connection") ConnLog.Open DSN_BASE Set RsLog=Server.CreateObject("ADODB.Recordset") RsLog.Open "Select Nom,MdpFROM Client Where Nom_Med='"&login&"' AND Mdp_Med='"&password&"'" If RsLog.eof=true then response.redirect "loginRDV.asp" else response.redirect "bonjour.asp" end if %> <% RsLog.close Set RsLog=Nothing ConnLog.close Set connLog=Nothing%> login et password sont recupérés a partir d'un formulaire d'une autre page! J'ai l'erreur suivante: Erreur de compilation Microsoft VBScript error '800a0401' Fin d'instruction attendue /iisHelp/common/500-100.asp, line 11 Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL --------------------------------------------------------------------------^ Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié /monsiteweb/accueilRDV.asp, line 18 Pleeeeeeeeeeeeeaaaaaaaaaaaaaaase Heeeeeeeeellp

phildarvador · Answer

a quoi correspondent tes variables login et password ??? as-tu récupéré les valeurs correspondantes du formumaire ?

cs_glopglop · Answer

Salut!
En fait login et password correspondent a l'envoie d'information via un formulaire sur une page précédente! Je recupère ces valeurs en debut de fichier. C'est peut etre la mon erreur: je l'ai mis avant les balise html! Je peux te donner tout mon code si tu veux!!
Merci 
Glop

hellfires · Answer

Bon,
Pour commencer, au niveau de ta requ&#234;te il manque des espaces pour la concatenation de chaines(je crois) ce qui donne ceci : 

RsLog.Open "Select Nom,MdpFROM Client Where Nom_Med='" & login & "' AND Mdp_Med='" & password & "'"

Deuxiemement je dirai ke ta connection est incompl&#232;te,
reprend la sur ce mod&#232;le

      ' Variables
      Dim objConnection
      Dim objRecordset
   
      ' Ouverture d'une connection
      StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="   & server.mappath("\Accueil\BD\AnciensSTJO.mdb")


      Set objConnection = Server.CreateObject("ADODB.Connection")
      objConnection.Open StrConn 
      
      Set objRecordset = Server.CreateObject("ADODB.Recordset")
      sql = "SELECT * FROM contacts_STJO where pseudo='" & request("User") & "' and password='" & request("Password") & "'"
       objRecordset.Open sql, objConnection, 3,3

Les lignes qui ne sont pas justifi&#233;e sont des lignes de codes coup&#233;es par la longueur de la ligne!
voila!
[mailto:mordessa@hotmail.com mordessa@hotmail.com] si il y a un pb  

Bribri ne pense qu'une et une chose...
Programmer ou &#234;tre bugg&#233;!!! MDR

Log et pwd

3 réponses

Votre réponse

Discussions similaires