<%'GoLive Content Source set defaut = ADORecordSet("cartes-msancerre" , "select * from PhotosCat where Defaut = true and Fonds = 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 Fonds = true order by Tri", "block=0", "IDrubrique", "cat") %> <%'GoLive Content Source set photos = ADORecordSet("cartes-msancerre" , "select * from Photos where RefRubrique = " & vCat & " and FondEcran = true order by Tri", "block=0", "ID", "photos") %> <%if 0 then%>

<%end if%>

Bonus

Wallpapers

Download our wallpapers freely.
Choose a group and then a wallpaper:

Groups: <% cat.MoveFirst %> <% while not cat.EOF %> <%if cat.value("IDrubrique")=vCat then response.write("")%><%=cat.Value("TitreRubriqueGB")%><%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)%>

<%=photos.Value("TitreGB")%><%="

"%> <% photos.MoveNext %> <% wend %>

<%if 0 then%>

<%end if%> <% if 0 then %><% end if %>