%@ Language=VBScript %> <% ConnectToDB(".") %> <% 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") %>
|
<%
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 %>
<% end if %> <% RSS.MoveNext end if dim RS2 set RS2 = Server.CreateObject("ADODB.Recordset") IF vSection = 1 then %>
<% end if do While not RSS.EOF %> <% if RSS.Fields("Titre") <> "" then %> <% end if %> <% RSS.MoveNext loop end if RSD.Close set RSD = nothing %> |