| Liste.asp |
Explications |
<%
msg = 0
CHERC = Left(UCase(Request("CHERCHER")),5)
If CHERC = "CHERC" Then
recherche = Request.Form("Recherche")
Msg = 1
End If
%> |
Ok ? :)
on initialise la variable msg à 0
on récupére les 5 premières lettres de la valeur du bouton CHERCHER
Si le bouton CHERCHER est sélectionné
On nomme recherche la valeur choisi du menu déroulant
On met la valeur de msg à 1
Fin de la boucle |
<html>
<head>
<title>Liste</title>
</head>
<body> |
En tête HTML |
<p align="center">Vous désirez avoir des
renseignements sur Monsieur</p>
<form method="POST" action="liste.asp">
<div align="center"><center><p>
<%Set OBJdbConnection =
Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "test"
SQLQuery = "SELECT DISTINCT Nom FROM Annuaire"
Set RS = OBJdbConnection.Execute(SQLQuery)%>
<select name="Recherche" size="1">
<% Do While Not RS.EOF %>
<option value="<%= RS("Nom") %> "><%= RS("Nom")%></option>
<%RS.MoveNext
Loop%>
</select></p>
</center></div><div align="center"><center><p><input type="submit" value="CHERCHER" name="CHERCHER"></p>
</center></div>
</form> |
Petite phrase de présentation
Début du Form avec reroutage vers la même page
On centre le form
Déclaration de la base de données
On récupère chaque valeur unique (disctinct) de champs nom de la table annuaire
Déclaration du menu déroulant
On commence la boucle
Affichage de chaque Nom et atrtibution du nom comme valeur
On se déplace d'une ligne
On boucle
Fin du menu déroulant
Les boutons
|
<% If msg = 1 then
SQLQuery = "SELECT * FROM Annuaire where Nom Like '" & Recherche &
"'"
Set RS = OBJdbConnection.Execute(SQLQuery)%> |
Si l'utilisateur à cliqué sur CHERCHER
la valeur msg est passé à 1 donc on exécute ce morceau de code
On récupère uniquement la ligne qu'il est nécéssaire (Like)
|
| <p>Voici les renseignements
complémentaires : </p> |
Une petite ligne |
<p>Nom : <%=rs("Nom")%> <br>
Prénom : <%=rs("Prenom")%><br>
Société : <%=rs("Societe")%> </p>
<%Rs.Close
End If%> |
On affiche les valeurs de la base |
</body>
</html> |
Fin de page |
| Téléchargez
le code Téléchargez la base
(attention à la déclaration) |