<% Dim XmlDocument : Set XmlDocument = Server.CreateObject("MSXML2.DOMDocument.4.0") XmlDocument.SetProperty "ServerHTTPRequest", True XmlDocument.Async = False XmlDocument.Load(SERVER_PROTOCOL & SERVER_NAME & "/" & LANGUAGE & PATH_XML_AQUISITIONS) Dim Year : Year = Request("Year") &"" Dim Month : Month = Request("Month") &"" Dim SubjectID : SubjectID = Request("Subject") &"" %> <%= GetValueByXPath(XmlDocument, "/root/labels/label[@name='rss-title']") & " - " & GetValueByXPath(XmlDocument, "/root/year/month/subject[@id='" & SubjectID & "' and aquisitions/block/link]/title") %> <%= SERVER_PROTOCOL & SERVER_NAME & "/" & LANGUAGE & PATH_ASP_AQUISITIONS %> <%= GetValueByXPath(XmlDocument, "/root/labels/label[@name='rss-description']") %> <% If (SubjectID<>"") Then If (Year = "" Or Month = "") Then Year = XmlDocument.SelectSingleNode("/root/year[month/subject[@id='" & SubjectID & "']/aquisitions/block/link]/@id").text Month = XmlDocument.SelectSingleNode("/root/year[@id = '" & Year & "']/month[subject[@id='" & SubjectID & "']/aquisitions/block/link]/@id").text End If For Each Link In XmlDocument.SelectNodes("/root/year[@id = '" & Year & "']/month[@id='" & Month & "']/subject[@id='" & SubjectID & "']/aquisitions/block/link") %> <%=GetValueByXPath(Link, "title")%> ]]> <% Next End If %>