Avec l'aide de Kim (je précise qui ma aide.tres patiente).
Quand je récupére le résulat de mon formulaire.
Il se passe deux choses :
1)
Il ne veut pas m'inscrire le modele et le px_vehicule
2) il me repete au moin 300 fois les options 1 2 3.
si quelqu'un peut m'aider
voici le script
<%
Codemod = Request.QueryString("Codemod")
Option1 = Request.QueryString("Option1")
Option2 = Request.QueryString("Option2")
Option3 = Request.QueryString("Option3")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "feuillegestionvn"
SQLQuery = "SELECT DISTINCT Code_modele, Modele, Px_vehicule, Code_option, optio, Description, Px_option FROM tarif_veh,tarif WHERE Code_modele="& Codemod &" AND Optio ='"& option1 &"' "
IF Option1 <> "" THENSQLQuery SQLQuery & " OR Optio '"& Option1 &"'"
END IF
IF Option2 <> "" THENSQLQuery SQLQuery & " OR Optio '"& Option2 &"'"
END IF
IF Option3 <> "" THENSQLQuery SQLQuery & " OR Optio '"& Option3 &"'"
END IF
SQLQuery = SQLQuery & " GROUP BY Code_modele, Modele, Px_vehicule, Code_option, optio, Description, Px_option "
Set RS = OBJdbConnection.Execute(SQLQuery)
if Not RS.EOF then%>
Code Modèle : <%response.write(" "&Codemod)%>
Modèle : <%response.write(" "&Modele)%>
Prix de Vente H.T : <%=rs("Px_vehicule")%>
<%DO WHILE NOT RS.EOF
SELECT CASE rs("Optio")
CASE Option1%>
Code Option : <% response.write(" "&Option1)%>
Description : <%=rs("Description")%>
Prix HT Option : <%=rs("Px_option")%>
<% CASE Option2%>
Code Option : <% response.write(" "&Option2)%>
Description : <%=rs("Description")%>
Prix HT Option : <%=rs("Px_option")%>
<% CASE Option3%>
Code Option : <% response.write(" "&Option3)%>
Description : <%=rs("Description")%>
Prix HT Option : <%=rs("Px_option")%>
<% CASE ELSE
END SELECT
RS.MoveNext
LOOP
else
Response.Redirect "aucun.htm"
end if
RS.Close
SET RS = nothing
OBJdbConnection.Close
SET OBJdbConnection = nothing
%>