order by, form et tableau dyn

Salut tlm

je suis en train de creer une page de recherche avancée sur une base access avec des menus listes dans mon formulaire.

table = "coasters"
emplacement = "../database/coasters.mdb"
table concernée = "coasters"


et mon formulaire :

nom = "form_rap"
methode = "post"
action = "affiche_ra_parcs.asp"


avec les listes à options suivantes :

liste "nom du parc" correspondant au champ "nomparc" de la table "coasters", de la base "coasters".
liste "pays du parc" correspondant au champ "payscoaster" de la table "coasters", de la base "coasters".

...... et ainsi de suite .....

je souhaite placer une derniere liste en bas du form pour choisir entre plusieurs criteres de tri :
tri1 = Order by nomparc
tri2 = Order by payscoaster
....


Comment faire pour formuler ma requete sur ce menu ? comment afficher le résultat dans un tableau dynamique,
en fonction du tri choisi dans la liste du formulaire ? le resultat est à afficher dans la page "affiche_ra_parcs.asp".

voila le script de mon formulaire (ra_parcs.asp) :


<form name="form_rap" method="post" action="affiche_ra_parcs.asp">
<%
DSN_BASE= "DBQ=" & Server.Mappath("/database/coasters.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
%>
<table width="500" border="0" cellspacing="0" cellpadding="2" height="50">
<tr>
<td bgcolor="#99CCFF" width="50" height="20">
<div align="left"><b><font face="Arial" size="2" color="#336699">Nom
</font></b></div>
</td>
<td width="425" height="20"><font face="Arial" size="2">
<input type="text" name="search_rap_nomparc" value="<%=request("search_rap_nomparc")%>" size="25" maxlength="50">
</font></td>
</tr>
<tr>
<td bgcolor="#99CCFF" width="50" height="20">
<div align="left"><b><font face="Arial" size="2" color="#336699">Pays
</font></b></div>
</td>
<td width="425" height="20"><font face="Arial" size="2">
<select name="search_rap_pays" size="1">
<option selected>Tous</option>
<% Set rs = conn.Execute("SELECT DISTINCT payscoaster FROM coasters ORDER BY payscoaster")%>
<%
While Not rs.EOF
%>
<option><%=rs("payscoaster")%></option>
<%
rs.movenext
Wend
%>
</select>
</font></td>
</tr>
<tr>
<td bgcolor="#99CCFF" width="50" height="20">
<div align="left"><b><font face="Arial" size="2" color="#336699">Tri
par </font></b></div>
</td>
<td width="425" height="20"><font face="Arial" size="2">
<select name="search_rap_tri" size="1">
<option>Nom</option>
<option>Pays</option>
</select>
</font></td>
</tr>
<tr valign="bottom">
<td bgcolor="#99CCFF" colspan="2" height="50">
<div align="right"><font face="Arial" size="2">
</font></div>
<div align="left"><font face="Arial" size="2">
<input type="submit" name="search_rap_submit" value="rechercher ...">
</font></div>
</td>
</tr>
</table>
<%
Set rs=nothing
conn.Close
set conn=nothing
%>
</form>




Merci d'avance...Frenzy :o)

salut,

rajoute la valeur des champs de ton menu value=""

<select name="search_rap_tri" size="1">
<option value="1">Nom</option>
<option value="2">Pays</option>
</select>

qd tu soumets ton formulaire tu recuperes ton tri.

Ensuite tu fais ta requete.

Par exemple
SQL = "SELECT ... FROM ..."

select case request("search_rap_tri")
case 1
SQL = SQL & " order by champs1"
case 2
SQL = SQL & " order by champs2"
case else
SQL = SQL & " order by champs1"
end select

set conn = Server.CreateObject("ADODB.Connection")
DSN_BASE= "DBQ=" & Server.Mappath("/database/coasters.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
conn.open DSN_BASE
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 0
rs.cursorlocation = 3
rs.open SQL,conn

...

a+