<%@ Language=VBScript %>
<% Option Explicit %>
<% ConnectToDB(".") %>
<%
sub ShowDirectory(vID, vP)
dim RSR
set RSR = server.createobject("ADODB.Recordset")
strSQL = "SELECT ID_Link, Nom FROM tbl_Link WHERE Status = 'D' AND Parent = " & vID
RSR.Open strSQL, CN
do While not RSR.EOF
%>
<%
ShowDirectory RSR.Fields("ID_Link"), vP
RSR.MoveNext
loop
RSR.Close
Set RSR = nothing
end sub
dim vSection, vParent
dim RightBar
RightBar = false
%>
Aînés Hébergement - Plan du site
<%'**** ce bout de table doit être présent dans tout les headers%>
<%
dim NumberOfRowOnFirstColumn, Imap
NumberOfRowOnFirstColumn = 4
Imap = 1
strSQl = "SELECT * from tbl_MenuItem WHERE Parent = 0 AND Site = 1 ORDER BY Rang ASC"
RS.open strSQL, CN
%>
<%
'Loop a travers le recordset des menus de base
do while not RS.EOF
%>
<%
'pour chaque menu de base on affiche les sous-menu en display: none
strSQL = "SELECT * from tbl_MenuItem WHERE Parent = " & RS.Fields("ID_MenuItem") & " ORDER BY Rang ASC"
RSSub.Open strSQL, CN
'loop pour afficher les sous-menus
do while not RSSub.EOF
%>
<%
do while instr(vCurs, vResList, Server.HTMLEncode(" et met le curseur après le >
vCue = Server.HTMLEncode(">")
vCurs = instr(vCurs, vResList, vCue, 1) + len(vCue)
'on recherche la longueur du nom, donc le
vCue = Server.HTMLEncode("")
vPointer = instr(vCurs, vResList, vCue, 1) - vCurs
'on affecte le nom
vNom = Fa(mid(vResList, vCurs, vPointer))
'le curseur à la fin du nom
vCurs = vCurs + vPointer
vCue = Server.HTMLEncode("href=""")
'recherche de l'occurance de vCue à aprtir de vCurs et placer le curseur au début de l'adresse
vCurs = instr(vCurs, vResList, vCue, 1) + Len(vCue)
vCue = Server.HTMLEncode("""")
'a partir de vCurs on recherche le prochain " qui marque la fin du lien
vPointer = instr(vCurs, vResList, vCue, 1) - vCurs
'on affecte l'adresse
vLinkSite = Fa(mid(vResList, vCurs, vPointer))
'les variables sont prêtes, on affiche
%>
<% if RS.Fields("Lien") = "" or isnull(RS.Fields("Lien")) then %>
<%=RS.Fields("Titre")%>
<%
else
%>