| |
|
<%
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/flux2/pressoir"
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
%>
|
|












*
Swimming pool heated from 15th April to 15th October |
| |
|
| |
|
| |
Become
owner of your residence of holidays
You
wish to become owner of your residence of holidays in a camp-site
4 stars, opened at the year?
We can offer you a pied-à-terre at affordable
prices. Sites with a view over the vineyards.
Situated in quiet
and shade, in the heart of the Bordeaux vineyards, our property
of 2 hectares is an ideal place to stand back and escape either
for your holiday or for a weekend. |
| |
|
| |
3 bedrooms mobile home "Prestige" 2011 - 6/8 pers.
O’hara 2011 type - Surface
37,20 m2 - 9.62 x 4,30 m - Height 3,48m |
| |
 |
|
 |
| |
|
| |
EEquipped
as follows:
Living room - salon - kitchen equipped with refrigerator-Freezer and 4 gas hot plates.
Main bedroom with a double bed 140 cm wide and
2 bedrooms with two single beds 70 cm wide
Bathroom with shower and wash
basin - Separate WC
Electric heating - Wooden integrated terrace of 9m2
Options
included in the price:
Electric radiator, insulation and frost protection, wood cladding, transport,
blocking, wooden terrace.
Options
that can be included in the sales price:
crockery and cutlery kit, sleeping kit (pillows and duvets), garden furniture.
Models exists in lemon, orange and Azur and fuchsia colours
|
| |
|
|
|
| |
|
| |
|
| |
Prize of the yearly pitch rental ? Only 1900 euros !! |
| |
 |
|
Key in hands ready PACK !!
Included : Terrasse, Transport, leveling, Installation and the preparations of the pitch!
Contact us to set up à rendezvous or to have the answers on your questions! |
|
|
| |
|
|