<% dim curDir set curDir = new Directory curDir.create request.QueryString("id") curDir.aggiornaClics subAlto %> <% subMezzo dim sez, nomesez if request.queryString("sez") = "" then sez = "Tutte" else sez = request.queryString("sez") end if %>

<% if sez <> "Tutte" then dim s set s = new sezione s.create(sez) %> <% if linguaggio = "ita" then %>Attenzione: stai visualizzando solo i documenti di tipo <%=s.titolo%>. <% else %> Warning: you are viewing only documents in <%=s.titolo%>. <%end if %> &sez=Tutte&lang=<%=linguaggio%>">View all documents. <% end if set s = nothing colorePosizione ="#999999" if linguaggio = "ita" then curDir.subStampaPosizione "Sei in: ",sez else curDir.subStampaPosizione "Navigator: ",sez end if %> <%=curDir.titolo%> <% response.write curDir.stringaNumDoc("Tutte") %> Clics: <%=curDir.clics%> <% dim figlie set figlie = new tabella figlie.create("Directory") figlie.connetti "Madre = " & Request.QueryString("id") & " AND VISUALIZZA = True","Titolo ASC","*" %><% dim bColor bColor=true do until figlie.rs.eof curDir.createFromRs figlie.rs if curDir.getNumDoc(sez) > 0 then %> <% bColor = Not bColor end if figlie.rs.MoveNext Loop %> bgcolor="#E3E3E1"<% end if %>> <%=(curDir.Titolo)%> <% response.write curDir.stringaNumDoc("Tutte") %> Clics: <%=curDir.clics%> <% dim tabbSez, tabb set tabbSez = new tabella set tabb = new tabella tabbsez.create "Sezioni" if sez = "Tutte" then tabbsez.connetti "","Nome ASC","*" else tabbsez.connetti "Nome = '" & sez & "'","","*" end if set currSez = new sezione do until tabbsez.rs.eof currSez.create tabbsez.rs("Nome") if currSez.nome <> "Directory" then set elemento = currSez.getElemento tabb.create currSez.nome tabb.connetti "Visualizza = True AND ID IN (SELECT Oggetto FROM OggDir WHERE Tabella = '"&currSez.nome&"' AND Directory = "&Request.QueryString("id")&")","Titolo","*" if not tabb.rs.eof then currSez.stampaIntestazione currSez.stampaVisCronologico end if do until tabb.rs.eof elemento.createFromRS tabb.rs elemento.stampaStriscia false,true,false,sez %> <% tabb.rs.movenext loop tabb.disconnetti end if tabbsez.rs.movenext loop set currSez = nothing set tabb = nothing %>

<% figlie.disconnetti set figlie = nothing subSotto %>