<%'GoLive Content Source set defaut = ADORecordSet("cartes-msancerre" , "select * from PhotosCat where Defaut = true", "block=1", "IDrubrique", "defaut") %> <%vMenu=8 vCat=request.querystring("cat") if vCat="" then vCat=defaut.value("IDrubrique") vCat=cint(vCat)%> <%'GoLive Content Source set cat = ADORecordSet("cartes-msancerre" , "select * from PhotosCat where Cartes = true order by Tri", "block=0", "IDrubrique", "cat") %> <%'GoLive Content Source set photos = ADORecordSet("cartes-msancerre" , "select * from Photos where RefRubrique = " & vCat & " and Carte = true order by Tri", "block=0", "ID", "photos") %> <%if 0 then%>
<%end if%>

Bonus

 
Cartes postales
Envoyez gratuitement des cartes postales à vos amis. Choisissez une catégorie puis une photo :

Catégories : <% cat.MoveFirst %> <% while not cat.EOF %> <%if cat.value("IDrubrique")=vCat then response.write("")%><%=cat.Value("TitreRubrique")%><%if cat.value("IDrubrique")=vCat then response.write("")%> | <% cat.MoveNext %> <% wend %>

<% photos.MoveFirst %> <% while not photos.EOF %> <%if photos.value("Portrait") then response.write("
") else response.write("
") end if vNom=photos.value("Fichier") vNom=left(vNom,len(vNom)-4) & ".gif" %>
<%=photos.Value("Titre")%><%="
"%> <% photos.MoveNext %> <% wend %>
<%if 0 then%>
<%end if%> <% if 0 then %><% end if %>