Bonjour à tous,
Je m'adresse à vous car je commence à tourner en ronde et ne voie pas ce qui ne marche dans ce que je veux effectuer.
J'ai actuellment un petit pb avec une itérative que je n'arrive pas a résoudre...
je vous explique la situation ; j'ai un bdd avec une table marque, une table modele, une table voitures_neuves.
MARQUE :
id_marque
nom_marque
logo_marque
MODELE
id_modele
lid_marque (clef externe ; relation avec MARQUE.id_marque)
nom_modele
photo_fiche
VOITURES_NEUVES :
id_serie
lid_modele (clef externe ; relation avec MODELE.id_modele)
nom_serie
designation
prix_constructeur_E
Une voiture appartenant a une série, qui appartient elle meme a un modele, qui appartient lui meme a une marque
Ex : 1.6 105 CV PROGRESSION - 147 - ALFA ROMEO
La page sur laquelle je sèche c'est une page ou l'internaute arrive une fois sa marque choisie et son modele choisi.
Ce que je veux, c'est :
afficher toutes les series par modele selon le choix du modele par l'internaute.
Ex : afficher toutes les series du modele de id_modele=15
je pense ne pas avoir été trop confus.
je colle mon code et vous remercie d'avance
Je peux vous fournir plus d'info si nécessaire.
J'ai vraiment besoin d'un petit coup de pouce !!! je vous remercie tous par avance
Bonne am
<html>
<head>
<TITLE>
</TITLE>
<link HREF="/css/style_imex.css" REL="STYLESHEET" TYPE="text/css">
</head>
<body bgcolor="#000000">
<%Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/cgi-bin") & "/imex2.mdb"
Dim rs, rs2
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM modele m, voitures_neuves vn WHERE (m.id_modele=vn.lid_modele) AND (m.lid_marque="& Request.QueryString("id") & ") AND (vn.id_serie="& Request.QueryString("id2") &") ", conn, 3
rs2.Open "SELECT id_marque, nom_marque, logo_marque FROM marque WHERE (id_marque="& Request.QueryString("id") &")", conn, 3
If Not rs.EOF Or NOT rs.BOF Then%>
<%While Not rs2.EOF%>
<table border="0" width="100%">
<tr>
<td class="TexteBlanc8" width="15%">
<img src="/voitures/phototheque/images/neuf.gif">
</td>
<td align="right" width="30%">
<table width="80" height="80" border="0">
<tr>
<td align="center" valign="center" bgcolor="FFFFFF">
<IMG SRC="/voitures/phototheque/marques/<%=rs2.fields(2).value%>">
</td>
</tr>
</table>
</td>
<td class="TexteBlanc14" width="55%">
<I><B><%=rs2.fields(1).value%></B></I>
</td>
</tr>
</table><BR>
<%rs2.MoveNext%>
<%Wend%>
<TABLE BORDER="1" width="100%" align="center">
<TR>
<TD width="15%" align="center" BGCOLOR="#4363A4" class="texteBlanc8">
<B>Photo</B> *
</TD>
<TD width="15%" align="center" BGCOLOR="#4363A4" class="texteBlanc8">
<B>Modele</B>
</TD>
<TD width="37%" align="center" BGCOLOR="#4363A4" class="texteBlanc8">
<B>SERIE</B>
</TD>
<TD width="14%" align="center" BGCOLOR="#4363A4" class="texteBlanc8">
<B>Tarif Constructeur</B>
</TD>
<TD width="14%" align="center" BGCOLOR="#4363A4" class="texteBlanc8">
<B>Tarif PRIMEX</B>
</TD>
</TR>
<%While Not rs.EOF%>
<% promo = rs.fields("promo") %>
<TR class="TexteBlanc8">
<TD align="center">
<a href="vehicules_neufs_fiche_technique.asp?id=<%=rs("lid_marque")%>&id2=<%=rs("id_serie")%>">
<IMG SRC="/voitures/phototheque/modeles/<%=RS.fields(7).value %>" border="0">
</a>
<%=rs("id_serie")%>
</TD>
<TD align="center">
<B><% Response.write rs("nom_modele")%></B>
</TD>
<TD>
<B><% Response.write rs("nom_serie")%></B>
</TD>
<TD align="center">
<I><B><% Response.write rs("prix_constructeur_E")%> ?</B>
<BR>
<% Response.write rs("prix_constructeur_F")%> F </I>
</TD>
<TD align="center">
<%If Lcase(promo)="vrai" Then%>
<span class="texteorange8">
<B>PROMOTION</B>
</span>
<BR>
<BR>
<I><B><%Response.write rs("prix_promo_E")%> ?</B>
<BR>
<%Response.write rs("prix_promo_F")%> F </I>
<%Else%>
<I><B><%Response.write rs("prix_IMEX_E")%> ?</B>
<BR>
<%Response.write rs("prix_IMEX_F")%> F </I>
<%End If%>
</TD>
</TR>
<%rs.MoveNext%>
<%Wend%>
</table>
<span class="texteBlanc7"><I>* Cliquez sur la photo pour afficher la fiche technique du véhicule</I></span>
<%Else%>
<span class="texteBlanc9"><b>Il n'y a pas de véhicule de marque <%=rs2.fields(1).value%> disponible à la vente en ce moment.</B></span>
<%End If
rs.Close
rs2.Close
conn.close
Set rs=nothing
Set rs2=nothing
Set conn=nothing%>
</body>
</html>
PEDRO