| ...
INFORMATIONS PROMOTIONS ... |
| |
<%
Response.Buffer = true
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
Dim myRSSURL, myRSSDocument, myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription
myRSSURL=request("rssurl")
if Len(myRSSURL)=0 then
myRSSURL= "http://creanews.creation-lambert.com/?q=liste_articles_feed/flux1/voyageurs"
end if
set myRSSDocument = createObject("Msxml.DOMDocument")
myRSSDocument.async = false
myRSSDocument.setProperty "ServerHTTPRequest", true
myRSSDocument.load(myRSSURL)
If (myRSSDocument.parseError.errorCode <> 0) then
myNews = "XML error: " & myRSSDocument.parseError.reason
Else
set mychannelNodes = myRSSDocument.selectNodes("//channel/*")
for each entry in mychannelNodes
if entry.tagName = "title" then
myChannelTitle = entry.text
elseif entry.tagName = "link" then
myChannelLink = entry.text
elseif entry.tagName = "description" then
myChannelDescription = entry.text
myBase = myBase & "" & myChannelTitle & ""
myBase = myBase & "" & myChannelDescription & " "
myBase = myBase & "" & myChannelTitle & " " & "
"
end if
next
set myitemNodes = myRSSDocument.selectNodes("//item/*")
For each item in myitemNodes
if item.tagName = "title" then
myItemTitle = item.text
elseif item.tagName = "link" then
myItemLink = item.text
elseif item.tagName = "pubDate" then
myItempubDate = item.text
elseif item.tagName = "description" then
myItemDescription = item.text
myNews = myNews & "" & myItemTitle & ""
myNews = myNews & myItemDescription
myNews = myNews
end if
next
set mychannelNodes = nothing
set myitemNodes = nothing
End If
Response.write myNews
%>
|
|
| Restaurant
Hôtel** Les Voyageurs - 12, rue de la République
- 24450 La Coquille - Tél. 05 53 52 80 13 - Fax 05 53
62 18 29 |
|
