<% @LANGUAGE="VBScript" %>
<%
option explicit
Response.ContentType = "text/html"
dim dom ' document XML
dim s ' Chaine générique
dim abstract, datclip, datannonce, datexpiration
dim cl ' Clip List
dim clip ' Clip item
dim clipnum ' KCLIP
dim kmarque ' KMARQUE
dim url ' URL demandé au serveur d'infos
set dom = Server.CreateObject ("Microsoft.XMLDOM")
dom.async = false
kmarque = UCase (Request.QueryString("KMARQUE"))
if "x" + kmarque + "x" = "xx" then
url = "https://riff.org/osinet/xnews.php"
else
url = "https://riff.org/osinet/xnews.php?KMARQUE=" + kmarque
end if
'Response.Write (url)
dom.load (url)
' Response.Write(dom.xml)
set cl = dom.selectNodes ("/xnews/marque/clip")
for each clip in cl
s = "
"
clipnum = clip.getAttribute ("clipnum")
abstract = Replace (UnEscape (clip.getAttribute ("abstract")), "+", " ")
datclip = clip.getAttribute ("datclip")
datannonce = clip.getAttribute ("datannonce")
datexpiration = clip.getAttribute ("datexpiration")
s = s + clipnum + " = " + abstract + " : " _
+ Replace (UnEscape (clip.text), "+", " ") + vbCRLF
Response.Write(s)
next
dom = empty
%>