<% mypath=request.servervariables("path_info") myid=request.querystring("id") if (myid="") then myid=0 db.execute("update menu set menu_count=menu_count+1 where menu_id=" & myid) ' print hierarchy of linked menu titles sub printlinkedmenus(menuid) if (menuid >= 0) then set rsmenu=db.execute("select * from menu where menu_id=" & menuid) printlinkedmenus(rsmenu("menu_parent")) if (menuid > 0) then response.write(" ¤ ") str="" str=str & decode(rsmenu("menu_title")) & "" response.write(str) set rsmenu=nothing end if end sub ' print hierarchy of plain text menu titles sub printmenus(menuid) if (menuid >= 0) then set rsmenu=db.execute("select * from menu where menu_id=" & menuid) printmenus(rsmenu("menu_parent")) if (menuid > 0) then response.write(" : ") response.write(decode(rsmenu("menu_title"))) set rsmenu=nothing end if end sub %> <% call printmenus(myid) %>
  <% set rs=db.execute("select * from menu where menu_id=0") %> '; return true" onMouseOut="self.status=''; return true"> <%=decode(rs("menu_short"))%>  ¤ <% set rs=db.execute("select * from menu where menu_parent=0") while not rs.eof%> <% 'A T T E N T I O N : possibilité d'erreur aux lignes suivantes %> <% str="" str=str & decode(rs("menu_short")) & "" response.write(str) rs.movenext if not rs.eof then response.write("  ¤ ") wend %> <%="          Featured Productions" %>
<% 'deuxième table, s.v.p. %>
 <% call printlinkedmenus(myid) %>
<% 'troisième table (vide) entre le menu vertical et la barre de menu contextuel en vert; elle laisse une trace pour séparer les deux tables %>
<% ' %>
<% set rs=db.execute("select * from menu where menu_parent=" & myid) printmenu=(not rs.eof) %> <% 'quatrième table %> <% if printmenu then %> <% end if %> <% if printmenu then %> <% end if %>
<% 'MENU DE GAUCHE '1ère table imbriquée %>
<% while not rs.eof %>

<% rs.movenext wend %>
<% '2e table imbriquée %>
<% 'Emplacement de l'entête apparaissant sur toutes les pages %>

Silentculture (Performance)
<% set rs=db.execute("select * from menu where menu_id=" & myid) %>

<%=decode(rs("menu_body"))%>

 

<% 'fin des tables imbriquées %>
Silentculture - Performance <% set rs=nothing %> <% 'ajout script: dernière mise à jour %>
<% Set fs = Server.CreateObject("Scripting.FileSystemObject") Set rs = fs.GetFile(Server.MapPath("../../_prj/encours/default.asp")) modified = rs.DateLastModified %> <%= ("Dernière mise à jour /Last modified on: ") %> <%response.write("" & (modified) & "") Set rs = Nothing Set fs = Nothing%>
<% 'fin script mise à jour %>
<% 'fin 4e table %> <% set rs=nothing %>