Création d'une liste de choix, dont les options sont issues d'une base de données.

Commenter

Contenu du snippet

Liste de choix : sélection d'une catégorie de site internet.

Source / Exemple : 


<%
' Declaration de la connexion base de donnees
Dim DSN_BASE
DSN_BASE = "DBQ=" & Server.Mappath(".Nom_Base.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
	Set CONNFavoris = Server.CreateObject("ADODB.Connection")
	CONNFavoris.ConnectionTimeout = 30	
	CONNFavoris.CommandTimeout = 30
	CONNFavoris.Open DSN_BASE

' Construction de la requete SQL
	
	RequeteSQL = "SELECT DISTINCT Genre FROM Nom_Table"

' Recup des donnees dans la base
		Set objRecordset = Server.CreateObject("ADODB.Recordset")
		objRecordset.Open RequeteSQL,CONNFavoris
%>
<html>
<head>
	<title>Selection</title>
</head>

<body>
<H4>Sélectionnez une catégorie</h4>
<form name="Choix" Action="find2.asp" method="post">
<select name="Selection" size="1">
<%
	objRecordset.MoveFirst

	Do While Not objRecordset.EOF
%>
<option value="<%=objRecordset("Genre")%>"><% =objRecordset("Genre")%></option>
<%
	objRecordset.MoveNext
	Loop
%>
</select>
<input name="Lancer" Type="submit" Value="Lancer la recherche">
</form>

</body>
</html>

Conclusion :


Une fois la sélection faite, le fichier FIND2.ASP affiche les sites internet correspondant à
votre choix de catégorie.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Kdo)