<%@ Language=VBScript %> <% ConnectToDB(".") ConnectToDBMain(".")%> <% dim vSection, vParent dim RightBar RightBar = true vSection = Request.QueryString("s") if vSection = "" then vSection = getResult("SELECT TOP 1 ID_MenuItem from tbl_MenuItem Where Site = 1 AND Parent = 0 ORDER BY Rang ASC") else if getResult("SELECT Lien FROM tbl_MenuItem WHERE ID_MenuItem = " & vSection) = "" then vSection = getResult("SELECT TOP 1 ID_MenuItem from tbl_MenuItem Where Site = 1 AND Parent = " & vSection & " ORDER BY Rang ASC") end if end if strSQl = "SELECT * from tbl_MenuItem WHERE ID_MenuItem = " & vSection dim RSD set RSD = Server.CreateObject("ADODB.Recordset") RSD.Open strSQL, CN if not RSD.EOF then vParent = RSD.Fields("Parent") %> Aînés Hébergement - <%=RSD.Fields("Titre")%>
<% if vParent = 0 then %><%=UCase(RSD.Fields("Titre"))%><% else %><%=UCase(getResult("SELECT Titre FROM tbl_MenuItem WHERE iD_MenuItem = " & vParent))%> / <% %><%=UCase(RSD.Fields("Titre"))%><% end if %>
<% dim RSS set RSS = Server.CreateObject("ADODB.Recordset") strSQl = "SELECT * FROM tbl_Section WHERE ID_MenuItem = " & vSection & " AND Display ORDER BY Srang ASC" RSS.Open strSQl, CN %> <% if not RSS.EOF Then %> <% if RSS.Fields("Titre") <> "" then %> &c=<%=RSS.Fields("Color")%>&w=415" style="margin-left: 8px;">
<% end if %>

<%=RSS.Fields("TextFormat")%> <% if RSS.Fields("Color") <> "" then %> .gif" width="8" height="8" align="baseline"> <% end if %>

<% if RSS.Fields("Auteur") <> "" then %><%=RSS.Fields("Auteur")%><% if RSS.Fields("TitreA") <> "" then %>, <%=RSS.Fields("TitreA")%>
<% else %>
<% end if else if RSS.Fields("TitreA") <> "" then %><%=RSS.Fields("TitreA")%>
<% end if end if if RSS.Fields("Email") <> "" then %>" title="Écrire à<% if RSS.Fields("Auteur") <> "" then %> <%=RSS.Fields("Auteur")%><% else %> <%=RSS.Fields("Email")%><% end if %>"><%=RSS.Fields("Email")%>
<% end if %>

<% RSS.MoveNext end if set RS2 = Server.CreateObject("ADODB.Recordset") IF vSection = 1 then %> <% %>
<% end if do While not RSS.EOF %> <% if RSS.Fields("Titre") <> "" then %> &c=<%=RSS.Fields("Color")%>&w=415" style="margin-left: 8px;">
<% end if %>

<%=RSS.Fields("TextFormat")%> <% if RSS.Fields("Color") <> "" then %> .gif" width="8" height="8" align="baseline"> <% end if %>

<% if RSS.Fields("Auteur") <> "" then %><%=RSS.Fields("Auteur")%><% if RSS.Fields("TitreA") <> "" then %>, <%=RSS.Fields("TitreA")%>
<% else %>
<% end if else if RSS.Fields("TitreA") <> "" then %><%=RSS.Fields("TitreA")%>
<% end if end if if RSS.Fields("Email") <> "" then %>" title="Écrire à<% if RSS.Fields("Auteur") <> "" then %> <%=RSS.Fields("Auteur")%><% else %> <%=RSS.Fields("Email")%><% end if %>"><%=RSS.Fields("Email")%>
<% end if if RSS.Fields("DateArt") <> "1/1/1990" then %><%=RSS.Fields("DateArt")%><% end if %>

<% RSS.MoveNext loop end if RSD.Close set RSD = nothing %>