- <%
- ' 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>
<%
' 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>