<%
Dim cnnrecettes
Dim rstresto
Dim sqlresto
cpt = 0
Set rstresto2 = cnnrecettes.Execute("select `tbl_receipe_sante`.`t_rec_num` AS `t_rec_num` from `tbl_receipe_sante`;")
While Not rstresto2.EOF
cpt = cpt +1
rstresto2.MoveNext
Wend
rstresto2.Close
Set rstresto2 = Nothing
Set rstresto = cnnrecettes.Execute("SELECT t_rec_num, t_resto, t_resto_en FROM tbl_resto_sante WHERE parent_cat = 0 ORDER BY t_resto;")
%>
<%=cpt %> recette(s)
Administration des catégories de recettes.
Ajouter une catégorie
| Français |
Anglais |
|
|
<%
While Not rstresto.EOF
if couleur = "#ffffff" then
couleur = "#EEEEEE"
else
couleur = "#ffffff"
end if
%>
| ><%= rstresto("t_resto")%> |
<%= rstresto("t_resto_en")%> |
&aff=cat">Modifier |
">Détruire |
<%
rstresto.MoveNext
Wend
rstresto.Close
Set rstresto = Nothing
cnnrecettes.Close
Set cnnrecettes = Nothing
%>