libellé <% ' Remplace par leurs valeurs les paramètres de formulaire dans la chaîne de requête fp_sQry = "select libelle from critères where TYPE = 'P'" 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 ' Utilise la chaîne de connexion telle qu'elle est fournie par l'Assistant 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 ' Démarre une boucle While pour inclure chaque enregistrement dans l'ensemble de résultat Do Until fp_rs.EOF %> <% If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("libelle")) %> <% ' Ferme la boucle de recherche d'enregistrements fp_rs.MoveNext Loop End If 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 %>
Premier Deuxième Troisième