%@ Language=VBScript %> <%'if Request.ServerVariables("REMOTE_ADDR") <> "66.131.186.9" then Response.Redirect "http://www.phaq.ca"%> <% ConnectRSA %> <% ConnectRSM %> <% dim vSection, vParent, vTitre dim RightBar RightBar = true vSection = Request.QueryString("s") if vSection = "" then vSection = getResult("SELECT TOP 1 ID_MenuItem from tbl_MenuItem Where Site = 2 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 = 2 AND Parent = " & vSection & " ORDER BY Rang ASC") end if end if strSQl = "SELECT * from tbl_MenuItem WHERE ID_MenuItem = " & vSection RSA.Open strSQL, CNRSA if not RSA.EOF then vParent = RSA.Fields("Parent") vTitre = RSA.Fields("Titre") %>
<%
end if
RSA.Close
%>
|