<% passwd=Request.QueryString("passe") 'Response.Redirect("Biblio_Documentaire/Biblio_0.htm") %> <% fp_sQry = "select mot_de_passe from passe where mot_de_passe = '"& passwd &"'" fp_sDefault = "" fp_sNoRecords = "Aucun enregistrement trouvé" fp_iMaxRecords = 0 fp_iTimeout = 0 fp_iCurrent = 1 fp_fError = False fp_bBlankField = False If fp_iTimeout <> 0 Then Server.ScriptTimeout = fp_iTimeout If Not fp_fError Then On Error Resume Next set fp_rs = CreateObject("ADODB.Recordset") If fp_iMaxRecords <> 0 Then fp_rs.MaxRecords = fp_iMaxRecords fp_rs.Open fp_sQry, "DSN=cdg82" If Err.Description <> "" Then Response.Write "Erreur de base de données : " + Err.Description + "" if fp_bBlankField Then Response.Write "Un ou plusieurs champs de formulaire sont vides." End If Else ' Vérifie les cas sans enregistrement If fp_rs.EOF And fp_rs.BOF Then Response.Write fp_sNoRecords Else Response.Redirect("Biblio_Documentaire/Biblio_0.htm") End If 'Response.Write fp_rs("mot_de_passe") fp_rs.Close ' Ferme la condition If de vérification d'erreur de connexion End If ' Ferme la condition If de vérification d'erreur d'interprétation lors du remplacement de paramètres de champs de formulaire End If set fp_rs = Nothing %>