Source inépuisable de créativité culinaire, les pâtes s'accommodent de 1000 et une délicieuses façons : Recettes classiques, préparations rapides, associations inattendues ou astuces faciles, les pâtes sont idéales pour élaborer une cuisine variée gourmande et conviviale. Faites votre choix parmi notre sélection ou laissez simplement parler votre inspiration.

Définissez vos critères de sélection et validez.

		A base de		<% Set rs = Server.CreateObject("ADODB.Recordset") sql_base = "select * from base order by nom" rs.open sql_base,session("cnx"),3 While not(rs.EOF)%> " <% If Request.querystring("base")<>""then If rs("baseId")= cInt(Request.querystring("base")) then%> Selected <% End If Else If Request.Form("base")<>"" then If rs("baseId")= cInt(Request.Form("base")) then%> Selected <% End If Else If rs("baseId")= "27" then%> Selected <% End If End If End If%>><% = rs("nom") %> <% rs.movenext wend rs.Close set rs=nothing %> Toutes
		Coût		Selected <% End If%>>Bon marché Selected <% End If%>>Prix moyen Selected <% End If%>>Prix élevé Tous
		Difficulté		Selected <% End If%>>Facile Selected <% End If%>>Moyen Selected <% End If%>>Difficile Toutes
		Type de recette		Selected <% End If%>>A découvrir Selected <% End If%>>Classique Selected <% End If%>>Inattendu Tous
		Rapidité		Selected <% End If%>>Moins de 15 mn Selected <% End If%>>Entre 15 et 30 mn Selected <% End If%>>Entre 30 et 60 mn Selected <% End If%>>plus de 60 mn Tous
				Valider
				Liste complète

<% ' résultats d'une recherche If Request.Form("base")<>"" then Set rs_recettes = Server.CreateObject("ADODB.Recordset") base=Request.Form("base") rapidite=Request.Form("rapidite") difficulte=Request.Form("difficulte") cout=Request.Form("cout") rtype=Request.Form("rtype") sql_recette = "select recetteID,Titre from recettes where base="&base&" and publie=true" If rapidite<>"" then sql_recette = sql_recette &" and rapidite="&rapidite End If If difficulte<>"" then sql_recette = sql_recette &" and difficulte="&difficulte End If If cout<>"" then sql_recette = sql_recette &" and cout="&cout End If If rtype<>"" then sql_recette = sql_recette &" and type="&rtype End If rs_recettes.open sql_recette,session("cnx"),3 'rs_recettes.movefirst %>

	Sélectonnez votre recette

<%Set rs_base = Server.CreateObject("ADODB.Recordset") sql_base = "select nom from base where baseId="&base rs_base.open sql_base,session("cnx"),3%> <% 'si il n'y a pas de réponses If rs_recettes.eof then %> <% Else 'affichage des réponses while not(rs_recettes.eof) %> <% rs_recettes.movenext wend End If rs_recettes.close set rs_recettes=nothing %>

Il n'y a pas de recette correspondant à votre recherche

');" onmouseover="window.status = 'Voir la recette'; return true;" onmouseout="window.status = ''; return true;">- <% = UCase(rs_recettes("titre"))%>

Voir toutes les recettes à base de <%= rs_base("nom")%>

<% rs_base.Close set rs_base=nothing End IF%> <% 'affichage de toutes les recettes If Request.querystring("tout")="1" then ' Nb de lignes renvoyees taille_page = "10" page_listuser = request.QueryString("page_listuser") 'Pour la pagination if Request.QueryString("move")="" then page_listuser="1" end if if Request.QueryString("move")="suivant" then page_listuser=Cint(page_listuser)+1 end if if Request.QueryString("move")="retour" then page_listuser=CInt(page_listuser)-1 end if sql_recette = "select recetteID,Titre from recettes where publie=true order by titre" Set rs_recettes = Server.CreateObject("ADODB.Recordset") rs_recettes.open sql_recette,session("cnx"),3,3 sql7 = "select count(*) as cpt from recettes where publie=true" Set rs7 = Server.CreateObject("ADODB.Recordset") rs7.open sql7,session("cnx"),3,3 rs_recettes.PageSize = CInt(taille_page) 'Calcul du nombre de pages If rs7("cpt")>rs_recettes.PageSize then nb_pages = rs7("cpt")/Int(rs_recettes.PageSize) If nb_pages <> Int(clng(rs7("cpt"))/rs_recettes.PageSize) then reste = nb_pages-Int(nb_pages) nb_pages = (nb_pages-reste)+1 ' Calcul du nombre d'enregistrement de la derniere page nb_enr = rs7("cpt")-((nb_pages-1)*taille_page) End If Else nb_pages = 1 End IF 'numero du premier enregistrement a afficher If page_listuser = "1" then num_enr = 1 Else num_enr = (page_listuser-1)*taille_page End If rs7.close set rs7 = nothing %>

	Sélectonnez votre recette

<% If rs_recettes.eof then %> <% Else cpt=0 If num_enr = 1 then rs_recettes.movefirst firstplace = rs_recettes.bookmark Else rs_recettes.move num_enr', firstplace End if %> <%Do while not(rs_recettes.eof) AND cpt < cInt(taille_page) cpt=1+cpt %> <% rs_recettes.movenext Loop End If rs_recettes.close set rs_recettes=nothing %>

Il n'y a pas de recette correspondant à votre recherche

');" onmouseover="window.status = 'Voir la recette'; return true;" onmouseout="window.status = ''; return true;">- <% Response.Write UCase(rs_recettes("titre"))%>

<% If CInt(page_listuser) > 1 then %> Recettes précedantes <% End If %> <% = page_listuser %>/<% = nb_pages %> <% If CInt(page_listuser) < nb_pages then %> Recettes suivantes <% End If %>

<%End IF%> <% ' affichage de toutes les recettes pour une pâte If Request.querystring("base")<>"" then Set rs_recettes = Server.CreateObject("ADODB.Recordset") base=Request.querystring("base") sql_recette = "select recetteID,Titre from recettes where base="&base rs_recettes.open sql_recette,session("cnx"),3 'rs_recettes.movefirst %>

	Sélectonnez votre recette

<% 'si il n'y a pas de réponses If rs_recettes.eof then Set rs_base = Server.CreateObject("ADODB.Recordset") sql_base = "select nom from base where baseid="&base&" and publie=true" rs_base.open sql_recette,session("cnx"),3%> <% rs_base.Close set rs_base=nothing Else 'affichage des réponses while not(rs_recettes.eof) %> <% rs_recettes.movenext wend End If rs_recettes.close set rs_recettes=nothing %>

Il n'y a pas de recette correspondant à votre demande

');" onmouseover="window.status = 'Voir la recette'; return true;" onmouseout="window.status = ''; return true;">- <% = UCase(rs_recettes("titre"))%>

<%End IF%>