<%@ 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 %>"><%=RSR.Fields("Nom")%><% 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 %> <% RSSub.MoveNext loop RSSub.Close RS.MoveNext if Imap = NumberOfRowOnFirstColumn then %>
<% if RS.Fields("Lien") = "" or isnull(RS.Fields("Lien")) then %> <%=RS.Fields("Titre")%> <% else %>default.asp?s=<%=RS.Fields("ID_MenuItem")%><% case else: response.write RS.Fields("Lien") end select %>"><%=RS.Fields("Titre")%><% if left(RS.Fields("Lien"), 12) = "liens.asp?p=" then ShowDirectory cint(mid(RS.Fields("Lien"), instr(1, RS.Fields("Lien"), "p=") + 2)), 0 end if end if %>
<% if RSSub.Fields("Lien") = "" or isnull(RSSub.Fields("Lien")) then %> <%=RSSub.Fields("Titre")%> <% else %>default.asp?s=<%=RSSub.Fields("ID_MenuItem")%><% case else: response.write RSSub.Fields("Lien") end select %>"><%=RSSub.Fields("Titre")%><% if left(RSSub.Fields("Lien"), 12) = "liens.asp?p=" then ShowDirectory cint(mid(RSSub.Fields("Lien"), instr(1, RSSub.Fields("Lien"), "p=") + 2)), 30 end if end if %>
<% end if Imap = Imap + 1 loop %>
<% RS.Close %>
<% dim vResList, vCue, vCount, Ires, vCurs dim vPointer 'variables de control dim vLinkFiche, vLinkSite, vNom 'variables d'affichage vResList = HTTPGet("http://www.phaq.ca/consulter.php?mode=visite_guidee") vCurs = 1 vPointer = 1 'get the count on the page after the code "" vCue = "" vCue = Server.HTMLEncode("") vCurs = instr(vCurs, vResList, vCue, 1) + Len(vCue) vCue = Server.HTMLEncode(" ") vPointer = instr(vCurs, vResList, vCue, 1) - vCurs vCount = (mid(vResList, vCurs, vPointer)) Ires = 0 function Fa(vStr) vStr = replace(vStr, "&", "&") Fa = vStr end function sub vTrace(vID, vText) Response.Write "ID = " & vID & "
" Response.Write "vLinkSite = " & vLinkSite & "
" Response.Write "vLinkFiche = " & vLinkFiche & "
" Response.Write "vNom = " & vNom & "
" Response.Write "vCue = " & vCue & "
" Response.Write "vCount = " & vCount & "
" Response.Write "Ires = " & Ires & "
" Response.Write "vCurs = " & vCurs & "
" Response.Write "vPointer = " & vPointer & "
" Response.Write vText & "

" end sub %>
<% 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 %> > style="margin-bottom: 3px;"> <% 'si on est rendu à la moitié... coupe et passe a l'autre colonne if Ires = cint(vCount / 2) then %>
<%=vNom%> Fiche
<%=vLinkSite%>
<% if Ires mod 2 = 0 then Ires = Ires + 1 end if end if loop %>