Sujet Précédent Sujet Suivant

Récupération d'une valeur sur une liste déroulante

rallierst Messages postés 31 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 29 octobre 2008 - 27 oct. 2002 à 12:27
rallierst Messages postés 31 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 29 octobre 2008 - 29 oct. 2002 à 18:08
Bonjour à tous et à toutes,
En fait j'ai une liste déroulante que je remplie par une base de données. (cela fonctionne bien), et lorsque je choisi un élément de ma liste je veux pouvoir remplir un tableau juste en dessous de celle-ci avec des donnée venant de la dite base de données.
ci-joint le code.
Je ne veux pas de bouton submit, je pensé valider le formulaire avec une fonction javaScript, mais cela ne fonctionne pas.

En fait une personne choisie un signe zodiacale, et alors s'affiche la prévision du moi de ce signe en dessous de la liste.

Merci à l'avance de votre aide.
Stéphane.

<script language="javascript">
function affiche()
{
document.formulaire.action="horoscope.asp"
document.login.submit()
}
</script>

</head>

<% strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("CommercantsNarbonne.mdb")
Set ObjConn=Server.CreateObject ("ADODB.Connection")
ObjConn.Open strconn
Set ObjRst=Server.CreateObject ("ADODB.Recordset")

ObjRst.Open"SELECT Tsigne.nom_signe, Tsigne.image_signe, Tsigne.contenusigne FROM Tsigne where ((Tsigne.mois)=Month(now()))", ObjConn

%>

<form action="horoscope.asp" method="post">

Choisissez votre signe ici :
<select name="horoscope" size="1" onchange="affiche()">
<%
ObjRst.Movefirst
do while not ObjRst.eof%>
<option value="<%=ObjRst("nom_signe")%>"><%=ObjRst("nom_signe")%>

</option>

<%ObjRst.MoveNext
loop%>
</select>



</form>

<%
dim valeur_signe
if len(request.form("horoscope"))<>0 then
valeur_signe=request.form("horoscope")
%>
">,
<% response.write(ObjRst.Fields("contenusigne"))%>

<%
end if
%>

<%

ObjRst.Close
Set ObjRst=Nothing
ObjConn.Close
Set ObjConn=Nothing

%>

3 réponses

Réponse 1 / 3
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
27 oct. 2002 à 20:38
exemple de validation javascript :
<form name=toto action="page.asp" method=post>

<select name="horoscope" size="1" onchange="javascript:toto.submit();">
<option value=1>
<option value=2>
<option value=3>
</select>

</form>
0
Réponse 2 / 3
rallierst Messages postés 31 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 29 octobre 2008
29 oct. 2002 à 18:05
Je ne voie toujours pas comment récupérer mon résultat.
Après avoir sélectionné un choix dans mon menu, je veux afficher celui-ci sous la liste.

<% strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("CommercantsNarbonne.mdb")
Set ObjConn=Server.CreateObject ("ADODB.Connection")
ObjConn.Open strconn
Set ObjRst=Server.CreateObject ("ADODB.Recordset")

ObjRst.Open"SELECT Tsigne.N_signe, Tsigne.nom_signe, Tsigne.image_signe, Tsigne.contenusigne FROM Tsigne where ((Tsigne.mois)=Month(now()))", ObjConn

%>

<form name="horoscope" action="" method=post>

Choisissez votre signe ici :

<select name="horoscope" size="1">
<%
ObjRst.Movefirst
do while not ObjRst.eof%>
<option value="<%=ObjRst("N_signe")%>"><%=ObjRst("nom_signe")%>
</option>

<%ObjRst.MoveNext
loop%>
</select>



</form>

<%=ObjRst("contenusigne")%>

<%
ObjRst.Close
Set ObjRst=Nothing
ObjConn.Close
Set ObjConn=Nothing

%>

Merci à l'avance pour ton aide.
Stéphane :)
0
Réponse 3 / 3
rallierst Messages postés 31 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 29 octobre 2008
29 oct. 2002 à 18:08
Salut,
Je ne comprend pas comment récupérer mon résultat.
Je souhaite après avoir sélectionner un choix dans ma liste, pouvoir afficher un résultat sous cette liste. Sanns passer par un bouton.

<form name="horoscope" action="" method=post>

Choisissez votre signe ici :

<select name="horoscope" size="1">
<%
ObjRst.Movefirst
do while not ObjRst.eof%>
<option value="<%=ObjRst("N_signe")%>"><%=ObjRst("nom_signe")%>
</option>

<%ObjRst.MoveNext
loop%>
</select>



</form>

-<%=ObjRst("contenusigne")%>

<%
ObjRst.Close
Set ObjRst=Nothing
ObjConn.Close
Set ObjConn=Nothing

%>

Merci à l'avance.
0

Discussions similaires

Liste Déroulante Garder la saisie
Cocob84 -
Cocob84 -

23 réponses
[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash -
cokinoumasterflash -

5 réponses
liste déroulante avec selected
samk28 -
samk28 -

33 réponses
[vba] aller chercher des données dans une feuille excel
cokinoumasterflash -
ScSami -

4 réponses
Prendre la valeur d'une cellule dans excel avec vba
ndsaerith -
amigo21 -

3 réponses
Rejoignez-nous