<% 'Visualizzo le sezioni e le fotografie in esse contenute Dim SQLCategorieFotografie, RSCategorieFotografie SQLCategorieFotografie = " SELECT Count(Fotografie.ID) AS TotaleFotografie, Fotografie.Sezione FROM Fotografie WHERE Fotografie.Data & Fotografie.Ora <= '"& DataToStr(Date()) & OraToStr(Time()) &"' AND Fotografie.Bozza = False GROUP BY Fotografie.Sezione " Set RSCategorieFotografie = Server.CreateObject("ADODB.Recordset") RSCategorieFotografie.Open SQLCategorieFotografie, Conn, 1, 3 If NOT RSCategorieFotografie.EOF Then Do While NOT RSCategorieFotografie.EOF %> "><%=RSCategorieFotografie("Sezione")%> (<%=RSCategorieFotografie("TotaleFotografie")%>)
<% RSCategorieFotografie.MoveNext Loop End If RSCategorieFotografie.Close Set RSCategorieFotografie = Nothing 'Se la classifica fotografie è abilitata eseguo il codice relativo If Abilita_PiuLetti Then %>