Formulaire (liste déroulante) et ASP

salut à tous

j'ai actuellement une db en mysql (id, nom, prenom, age, pseudo, sexe) que j'interroge en asp. je souhaiterais créer une liste déroulante contenant le nom et le prénom de la personne, et qd je clique sur le bouton "afficher", qu'il affiche les informations sur cette personne, issues de la db. j'ai essayé plein de méthodes, comme mettre un champ hidden dans la boucle qui interroge la db (d'ailleurs, le champ hidden m'affiche ds ce cas les noms des personnes, bizarre). en fait, pour récupérer l'id (primary key), je suis obligé de le mettre ds la liste déroulante, alors que c le nom et le prénom que je souhaiterais voir s'afficher...

mon formulaire :

<form method="post" action="affiche-pers2.asp">
<select name="liste">
<option>-- Choisir --</option>
<% while not rs.eof %>
<option><% =rs("id") %></option>
<%
rs.movenext
wend
%>
</select>
<input type="submit" value="Afficher">
</form>

et le fichier qui interprète le formulaire :

<%
liste=request("liste")
sql = "select * from test where id="&liste
set rs = conn.execute(sql)
%>
<font size="4"><b>Affichage des renseignements sur <% =rs("nom") %> <% =rs("prenom") %></b></font>
<br><br><br>
nom : <% =rs("nom") %><br>
prénom : <% =rs("prenom") %><br>
pseudo : <% =rs("pseudo") %><br>
âge : <% =rs("age") %> ans<br>
sexe : <% =rs("sexe") %><br>

c ptet un pb basique, mais j'ai trop de mal, et malgré mes recherches je galère un max... merci si vous pouvez m'éclairer un peu...

tigrou
http://www.cholet-cybercom.fr.st

J'ai déjà fait une chose de ce genre, mais en tk je te donne un bout de script donc vérifie sa...

1 ere page


<%
Dim objConn, objRS, strSQL, dsnLess
Set objConn = Server.CreateObject("ADODB.Connection")
dsnLess="DRIVER={Microsoft Access Driver (*.mdb)}; "
snLess=dsnLess & "DBQ=" & Server.MapPath("/Intra/BD/options.mdb")
objConn.Open DSNtemp

Set objRS = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT nomModele "
strSQL = strSQL & "FROM AALivModeles order by nomModele"

objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimistic
WHILE NOT objRS.EOF

IF objRS("noModele") = 1 THEN
strModeleMaison = strModeleMaison & "<option selected value=" & objRS("noModele") & ">" & objRS("nomModele") & "</option>"
ELSE
strModeleMaison = strModeleMaison & "<option value=" & objRS("dimension") & ">" & objRS("nomModele") & "</option>"
END IF

objRS.MoveNext

WEND

objRS.Close
objConn.Close
%>


<p>
<select name="selectedPage" style="background:#F5F5F5; size=18px; font-size=11px;">
<%=strModeleMaison%>
<%=objRS("dimension")%>

</select> </p>
...


2 page

<%'Tableau Projet Début
noProjet = request.Form("noProjet")
'Tableau Projet Fin%>

<%
varSQLCpr = "INSERT INTO contrat(noProjet) "_
&" VALUES('"&noProjet&"')"

Set ContratProjet = connContrat.Execute(varSQLCpr)
%>

<%'Tableau Modele Début
mode = request.Form("mode")
modDim = request.Form("modDim")


donc sa se ressemble un peu et j'espère t'avancer vers le bon chemin !!!!