<% Dim cnnrecettes Dim rstrecettes Dim rstresto resto = Request.Form("resto") if resto = "" then resto = Request.QueryString("resto") end if Set rstrecettes = cnnrecettes.Execute("SELECT t_resto_num, t_receipe, t_rec_num, t_clearance, t_img_path,t_img_path5, t_img_path6, t_img_path7, t_img_path8, t_receipe_en,CocheSante FROM tbl_receipe_sante WHERE t_resto_num LIKE " + resto + " ORDER BY t_receipe;") Set rstresto = cnnrecettes.Execute("SELECT t_rec_num, t_resto, parent_enabled, t_resto_en FROM tbl_resto_sante WHERE t_rec_num = " + resto + ";") %>

Administration des recettes de la catégorie <%= rstresto("t_resto") %>.

<% If rstresto("parent_enabled") = 1 Then Set rstrestosub = cnnrecettes.Execute("SELECT t_rec_num, t_resto, t_resto_en FROM tbl_resto_sante WHERE parent_cat = " + resto + " ORDER BY t_resto;") %>

Administration des sous-catégories.

">Ajouter une sous-catégorie

<% While Not rstrestosub.EOF if couleur = "#ffffff" then couleur = "#EEEEEE" else couleur = "#ffffff" end if %> <% rstrestosub.MoveNext Wend rstrestosub.Close Set rstrestosub = Nothing %>

Français	Anglais
><%= rstrestosub("t_resto")%>	<%= rstrestosub ("t_resto_en") %>	&aff=souscat">Modifier	">Détruire

<% else %>

Ajouter une recette

<% If Not rstrecettes.EOF Then While Not rstrecettes.EOF if couleur = "#ffffff" then couleur = "#EEEEEE" else couleur = "#ffffff" end if %> <% rstrecettes.MoveNext Wend Else Response.Write("") End If rstrecettes.Close Set rstrecettes = Nothing rstresto.Close Set rstresto = Nothing %>

Titre de la recette

Action

HTML

&resto_id=<%= rstrecettes("t_resto_num") %>"><%= rstrecettes("t_receipe") %>

<% if rstrecettes("t_img_path") <> "no_image.jpg" then ImageBig = "0" if ((rstrecettes("t_img_path5") <> "") or (rstrecettes("t_img_path6") <> "") or (rstrecettes("t_img_path7") <> "") or (rstrecettes("t_img_path8") <> "")) then ImageBig = "2" end if 'end if %> &resto_id=<%= rstrecettes("t_resto_num") %>" onmouseover="return overlib('

\' class=recipe_photo width=200 height=158>

');" onMouseOut="return nd();" >

<% else %>

<% end if %>

&resto_id=<%= rstrecettes("t_resto_num") %>">Modifier

&resto_id=<%= rstrecettes("t_resto_num") %>">Détruire

&resto_id=<%= rstrecettes("t_resto_num") %>">Photo

" target="_blank">HTML

<%= rstrecettes("t_rec_num") %>

<% if rstrecettes("CocheSante") = "Oui" then %>

<% end if %>

* Aucune recette.

Retour à la liste

<% End If %>