<% Function return_RFC822_Date(myDate, offset) Dim myDay, myDays, myMonth, myYear Dim myHours, myMonths, mySeconds curLocal = GetLocale() SetLocale(2057) myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = Day(myDate) myMonth = MonthName(Month(myDate), true) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" " SetLocale(curLocale) End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function Function HtmlDecode(ByVal sText) 'sText = Replace(sText, "
", vbcrlf) 'sText = Replace(sText, "
", vbcrlf) sText = Replace(sText, "<", "<") sText = Replace(sText, ">", ">") sText = Replace(sText, "ä", "ä") sText = Replace(sText, "ö", "ö") sText = Replace(sText, "ü", "ü") sText = Replace(sText, "Ä", "Ä") sText = Replace(sText, "Ö", "Ö") sText = Replace(sText, "Ü", "Ü") sText = Replace(sText, "ß", "ß") sText = Replace(sText, "&8364;", "€") sText = Replace(sText, "€", "€") sText = Replace(sText, """, """") sText = Replace(sText, "$", "$") sText = Replace(sText, "&", "&") sText = Replace(sText, "'", "'") sText = Replace(sText, """, """") sText = Replace(sText, " ", " ") sText = Replace(sText, "’", "'") HtmlDecode = sText End Function aggregatedListId = "2634" ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2020-01-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Realisation-maison-beton-cellulaire.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Vernin Ingénierie, partenaire Ytong Inside : « Le béton cellulaire est la meilleure solution pour un projet aussi exigeant qu’une maison passive ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-vernin-ingenierie-partenaire-ytong.php" & _ "" & _ "Vernin Ingénierie, partenaire Ytong Inside : « Le béton cellulaire est la meilleure solution pour un projet aussi exigeant qu’une maison passive ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4108" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-12-16" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Xella-ludovicdodard.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ludovic Dodard, dirigeant d’ELC maisons individuelles partenaire Ytong Inside : « Avec Xella, nous tirons le métier vers le haut ! ».") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-ludovic-dodard-dirigeant-elc-maisons-individuelles.php" & _ "" & _ "Ludovic Dodard, dirigeant d’ELC maisons individuelles partenaire Ytong Inside : « Avec Xella, nous tirons le métier vers le haut ! »." & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4107" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-12-03" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Xella-DTU.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau DTU 20.1 : Xella s’implique dans la diffusion de la nouvelle norme auprès des professionnels") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-nouvelle-norme-dtu.php" & _ "" & _ "Nouveau DTU 20.1 : Xella s’implique dans la diffusion de la nouvelle norme auprès des professionnels" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4067" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-10-30" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("
", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Couverture.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Aymeric Brenel, démonstrateur-formateur Xella : « disponibilité permanente et interventions adaptées à tous les chantiers »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-aymeric-brenel-demonstrateur-formateur.php" & _ "" & _ "Aymeric Brenel, démonstrateur-formateur Xella : « disponibilité permanente et interventions adaptées à tous les chantiers »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4046" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-10-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Xella-1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Premier chantier en YTONG YTOFOR à Toulouse : des professionnels conquis !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_premier-chantier-ytong-ytofor-toulouse.php" & _ "" & _ "Premier chantier en YTONG YTOFOR à Toulouse : des professionnels conquis !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4044" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-10-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/lillenium-xella1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Futur centre commercial Lillenium : plus de 4 000 m2 de murs coupe-feu Ytong") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_centre-commercial-lillenium.php" & _ "" & _ "Futur centre commercial Lillenium : plus de 4 000 m2 de murs coupe-feu Ytong" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4043" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-10-15" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photouneytong.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Partenaire Ytong Inside, Thierry Conjard co-gérant de Coopami : « Le béton cellulaire sinon rien ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_partenaire_ytong_thierry_conjard_coopami_beton_cellulaire.php" & _ "" & _ "Partenaire Ytong Inside, Thierry Conjard co-gérant de Coopami : « Le béton cellulaire sinon rien ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4042" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-09-11" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/image.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Partenaire Ytong Inside, Nicolas Faure dirigeant de Logivelay : « Avec Xella, nous avons la même volonté d’avancer ensemble ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-partenaire-ytong-inside-nicolas-faure-dirigeant-logivelay.php" & _ "" & _ "Partenaire Ytong Inside, Nicolas Faure dirigeant de Logivelay : « Avec Xella, nous avons la même volonté d’avancer ensemble ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4030" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-08-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/0012.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Worldskills 2019 : Xella soutient Vlad Croitoru, le champion de France de carrelage pour une épreuve sur béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_worldskills-2019-xella-soutient-vlad-croitoru-champion-de-france-de-carrelage-beton-cellulaire.php" & _ "" & _ "Worldskills 2019 : Xella soutient Vlad Croitoru, le champion de France de carrelage pour une épreuve sur béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4002" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-07-09" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Habitat-libre.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Habitat libre, partenaire Ytong Inside : « Performances énergétiques et béton cellulaire sont notre marque de fabrique ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_habitat-libre-partenaire-ytong-inside-performance-energetiques-et-beton-cellulaire-marque-fabrique.php" & _ "" & _ "Habitat libre, partenaire Ytong Inside : « Performances énergétiques et béton cellulaire sont notre marque de fabrique ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "4001" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-06-20" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/060.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Constructions du Golfe, partenaire Ytong Inside : le béton cellulaire testé et approuvé avec sa propre maison !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_construction-du-golfe-partenaire-ytong-inside.php" & _ "" & _ "Constructions du Golfe, partenaire Ytong Inside : le béton cellulaire testé et approuvé avec sa propre maison !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3995" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-06-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/041.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong fête ses 30 ans. Dominique Vial : « Sans aucune hésitation, je reconstruirais avec du béton cellulaire ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-fete-ses-30-ans-dominique-vial-temoignage.php" & _ "" & _ "Ytong fête ses 30 ans. Dominique Vial : « Sans aucune hésitation, je reconstruirais avec du béton cellulaire ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3994" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-06-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/110.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le partenaire Ytong Inside, Néology à Lamballe (22), « attend beaucoup de la RE 2020 ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_partenaire-ytong-inside-neology-lamballe.php" & _ "" & _ "Le partenaire Ytong Inside, Néology à Lamballe (22), « attend beaucoup de la RE 2020 ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3992" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-05-07" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/M5SG3.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode(" Sylvie Giroud, habitante d’une maison labellisée E+C- en béton cellulaire : « Comme dans un cocon ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_habitante-maison-labellisee-ec-beton-cellulaire.php" & _ "" & _ " Sylvie Giroud, habitante d’une maison labellisée E+C- en béton cellulaire : « Comme dans un cocon ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3991" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-04-05" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("A l'occasion des 30 ans de la marque Ytong, XELLA innove et lance sa nouvelle armature métallique : l'YTOFOR. Destinée à renforcer les maçonneries et à supprimer les chaînages, cette armature s'adresse aux maçons qui bâtissent aussi bien des maisons individuelles que des murs coupe-feu. ", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ANNONCE-YTOFOR.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("YTOFOR, l'armature énergisante qui booste vos chantiers") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_YTOFOR-armature-energisante-qui-booste-vos-chantiers.php" & _ "" & _ "YTOFOR, l'armature énergisante qui booste vos chantiers" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3982" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-04-01" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Maison.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Valérie, propriétaire d’une maison en béton cellulaire : « Un meilleur coût à l’usage et un meilleur confort ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_valerie-proprietaire-maison-beton-cellulaire.php" & _ "" & _ "Valérie, propriétaire d’une maison en béton cellulaire : « Un meilleur coût à l’usage et un meilleur confort ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3979" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-02-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Xella-enquete-satisfaction-2018.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Retour sur notre enquête de satisfaction interne ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_enquete-satisfaction-xella-2019.php" & _ "" & _ "Retour sur notre enquête de satisfaction interne " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3978" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-01-30" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/11.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode(" La presse parle de Xella ! Janvier 2019") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_la-presse-parle-de-xella-janvier-2019.php" & _ "" & _ " La presse parle de Xella ! Janvier 2019" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3975" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-01-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/100.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Lorsqu’ACM construction livre une maison atypique en béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_acm-construction-maison-atypique-beton-cellulaire.php" & _ "" & _ "Lorsqu’ACM construction livre une maison atypique en béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3973" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-01-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/30ans-logo.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong, 30 ans à vos côtés en France") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_30ans-a-vos-cotes-france.php" & _ "" & _ "Ytong, 30 ans à vos côtés en France" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3970" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2019-01-16" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/xella-investissement-formation-collaborateurs-2018.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Xella investit dans la formation de ses collaborateurs") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-investit-dans-la-formation.php" & _ "" & _ "Xella investit dans la formation de ses collaborateurs" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3968" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-11-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/1003.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("William Petit, auto-constructeur en béton cellulaire : « Se projeter sur les frais de chauffage et le confort attendu ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_auto-constructeur-beton-cellulaire-frais-chauffage-confort-attendu.php" & _ "" & _ "William Petit, auto-constructeur en béton cellulaire : « Se projeter sur les frais de chauffage et le confort attendu ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3958" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-11-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/117.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Dirigeant de Maisons Valtrea, « le béton cellulaire est forcément gage de valorisation à la revente »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maisons-valtrea-beton-cellulaire-gage-valorisation-revente.php" & _ "" & _ "Dirigeant de Maisons Valtrea, « le béton cellulaire est forcément gage de valorisation à la revente »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3956" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-11-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/745.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Projet Plein Ciel au Versoud (38) : Bouygues immobilier mise sur le béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_projet-plein-ciel-bouygues-immobilier-beton-cellulaire.php" & _ "" & _ "Projet Plein Ciel au Versoud (38) : Bouygues immobilier mise sur le béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3954" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-10-09" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong-Artibat-2018.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Retrouvez Ytong sur le Salon Artibat du 24 au 26 octobre à Rennes !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_artibat-2018.php" & _ "" & _ "Retrouvez Ytong sur le Salon Artibat du 24 au 26 octobre à Rennes !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3920" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-10-05" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/45.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Bâticonfort, un partenaire « 100% béton cellulaire » ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_baticonfort-beton-cellulaire-ytong.php" & _ "" & _ "Bâticonfort, un partenaire « 100% béton cellulaire » " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3914" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-10-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/IMG_0000.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Extension centre-commercial Créteil Soleil : les solutions coupe-feu Ytong en atout sécurité") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_creteil-soleil-extension-coupe-feu-ytong.php" & _ "" & _ "Extension centre-commercial Créteil Soleil : les solutions coupe-feu Ytong en atout sécurité" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3913" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-06-28" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Groupe-scolaire-Eaunes-xella-2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Groupe scolaire d’Eaunes (31) : le béton cellulaire choisi pour un bâtiment d’exception") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_groupe-scolaire-Eaunes.php" & _ "" & _ "Groupe scolaire d’Eaunes (31) : le béton cellulaire choisi pour un bâtiment d’exception" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3879" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-06-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ACM_Construction_Maieron_Ytong_2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Benoît Maieron, ACM construction : « En maison individuelle, et plus encore en tertiaire et collectif, le béton cellulaire est la règle ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ACM-Construction-partenaire-Ytong.php" & _ "" & _ "Benoît Maieron, ACM construction : « En maison individuelle, et plus encore en tertiaire et collectif, le béton cellulaire est la règle ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3878" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-05-22" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/gamme-coupe-feu-2018.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Modulbloc : la solution pour les chantiers de grandes envergures qui étoffe une offre coupe-feu Ytong très performante !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_nouveau-modulbloc-offre-coupe-feu-performante.php" & _ "" & _ "Modulbloc : la solution pour les chantiers de grandes envergures qui étoffe une offre coupe-feu Ytong très performante !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3820" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2018-03-30" <> "" Then newsdate = "2018-03-30" Else newsdate = "2018-04-12" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/beton_cellulaire_prieure.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Du béton cellulaire pour la rénovation énergétique d’un prieuré du 13e siècle !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_beton-cellulaire-renovation-prieure.php" & _ "" & _ "Du béton cellulaire pour la rénovation énergétique d’un prieuré du 13e siècle !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3798" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2018-03-26" <> "" Then newsdate = "2018-03-26" Else newsdate = "2018-03-27" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maitronhome-ytong-12.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Heyrieux : une maison de 300 m² en béton cellulaire qui promet une belle vie à ses occupants !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_heyrieux-maitronhome-beton-cellulaire-maison.php" & _ "" & _ "Heyrieux : une maison de 300 m² en béton cellulaire qui promet une belle vie à ses occupants !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3797" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2018-03-02" <> "" Then newsdate = "2018-03-02" Else newsdate = "2018-03-08" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Maisons-de-chris-Ytong-2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Christophe Deplanque, Les Maisons de Chris : « la meilleure énergie, c’est celle qu’on ne consomme pas ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maisons-de-Chris-beton-cellulaire-Ytong.php" & _ "" & _ "Christophe Deplanque, Les Maisons de Chris : « la meilleure énergie, c’est celle qu’on ne consomme pas ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3785" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2018-02-19" <> "" Then newsdate = "2018-02-19" Else newsdate = "2018-03-01" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/sky_56_5.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Sky 56 ou lorsque le béton cellulaire permet de prendre de la hauteur !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella_sky-56-beton-cellulaire.php" & _ "" & _ "Sky 56 ou lorsque le béton cellulaire permet de prendre de la hauteur !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3752" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-02-09" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/2.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Claire Membré, acheteur industriel : l’interface indispensable entre l’usine et les fournisseurs") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_claire-membre-acheteur-industriel.php" & _ "" & _ "Claire Membré, acheteur industriel : l’interface indispensable entre l’usine et les fournisseurs" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3457" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2018-01-15" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong-teaser-beton-cellulaire-metiers-xella-parc-Mios-Xella.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Frédéric Kohler, chef de parc du site de Mios : le dernier maillon de la chaîne avant l’expédition") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_frederic-kholer-chef-parc-mios-interview-metier.php" & _ "" & _ "Frédéric Kohler, chef de parc du site de Mios : le dernier maillon de la chaîne avant l’expédition" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3450" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-12-21" <> "" Then newsdate = "2017-12-21" Else newsdate = "2017-12-22" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/avenidor-1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Avenidor : la maison la plus performante au monde en béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_avenidor-maison-performante-beton-cellulaire.php" & _ "" & _ "Avenidor : la maison la plus performante au monde en béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3441" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-12-11" <> "" Then newsdate = "2017-12-11" Else newsdate = "2017-12-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/econuit-ytong-2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Pour se mettre au vert, l’hôtellerie se convertit au béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_hotellerie-beton-cellulaire-econuit.php" & _ "" & _ "Pour se mettre au vert, l’hôtellerie se convertit au béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3324" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-12-07" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong-planelles-thermostop-P6.5-P7.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong présente sa nouvelle gamme Thermostop pour simplifier le traitement des ponts thermiques !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_planelle-thermostop-traitement-ponts-thermiques.php" & _ "" & _ "Ytong présente sa nouvelle gamme Thermostop pour simplifier le traitement des ponts thermiques !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3321" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-12-01" <> "" Then newsdate = "2017-12-01" Else newsdate = "2017-12-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong-lbd-3.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("« Bien-être, liberté, économies… » les clients nordistes de notre partenaire LBD plébiscitent le béton cellulaire Ytong !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-lbd-beton-cellulaire-clients.php" & _ "" & _ "« Bien-être, liberté, économies… » les clients nordistes de notre partenaire LBD plébiscitent le béton cellulaire Ytong !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3319" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-11-06" <> "" Then newsdate = "2017-11-06" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/pais-construction-ytong-3_rdax_170x113.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Jorge Païs, constructeur de maisons Ytong : « Le béton cellulaire est le meilleur des matériaux ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_jorge-pais-constructeur-ytong.php" & _ "" & _ "Jorge Païs, constructeur de maisons Ytong : « Le béton cellulaire est le meilleur des matériaux ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3281" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-10-27" <> "" Then newsdate = "2017-10-27" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/David-Chaux6.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("David Chaux, propriétaire d’une maison en béton cellulaire Ytong : « pas besoin de forcer le chauffage, il y a une vraie isolation ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_david-chaux-proprietaire-maison-beton-cellulaire.php" & _ "" & _ "David Chaux, propriétaire d’une maison en béton cellulaire Ytong : « pas besoin de forcer le chauffage, il y a une vraie isolation ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3280" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-10-26" <> "" Then newsdate = "2017-10-26" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/the-coliseum-1233932_960_720.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ecosse, Colisée et béton cellulaire… ou la fabuleuse histoire de la tobermorite !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_histoire-tobermorite-ytong.php" & _ "" & _ "Ecosse, Colisée et béton cellulaire… ou la fabuleuse histoire de la tobermorite !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3279" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-10-04" <> "" Then newsdate = "2017-10-04" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Interview_collaborateur_Sebastien_Laboratoire.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Sébastien Ray, laboratoire de l’usine Xella : « comme en pâtisserie, le dosage est d’une extrême précision ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_Sebastien-Ray-laboratoire-de-l-usine-Xella.php" & _ "" & _ "Sébastien Ray, laboratoire de l’usine Xella : « comme en pâtisserie, le dosage est d’une extrême précision ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3277" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-09-21" <> "" Then newsdate = "2017-09-21" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong_beton_cellulaire.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #7 : Le béton cellulaire fissure !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-beton-cellulaire-fissure.php" & _ "" & _ "Idée reçue #7 : Le béton cellulaire fissure !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3276" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-09-06" <> "" Then newsdate = "2017-09-06" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong_verti20_collectif_rdax_170x117.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau mur Ytong VERTI 20 : 3 façons de gagner des m² habitables !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_nouveau-mur-ytong-verti-facons-de-gagner-des-mcarres.php" & _ "" & _ "Nouveau mur Ytong VERTI 20 : 3 façons de gagner des m² habitables !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3275" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-09-27" <> "" Then newsdate = "2017-09-27" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Family_day_ytong_5_rdax_170x113.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Des premières Family Day réussies pour Xella France !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_family-day-xella.php" & _ "" & _ "Des premières Family Day réussies pour Xella France !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3274" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-08-21" <> "" Then newsdate = "2017-08-21" Else newsdate = "2017-11-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/xella_ytong_bim_rdax_170x126.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Arrivée sur BIMobject et réalisations engagées : Xella est déjà BIM-compatible !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_Arrivee-sur-BIMobject-realisations-engagees-Xella-BIMcompatible.php" & _ "" & _ "Arrivée sur BIMobject et réalisations engagées : Xella est déjà BIM-compatible !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3273" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-07-25" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/palette_reutilisable_ytong_xella.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Xella s’engage pour l’environnement en lançant des palettes réutilisables pour ses produits Ytong et Multipor") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-palette-reutilisable-envirronement.php" & _ "" & _ "Xella s’engage pour l’environnement en lançant des palettes réutilisables pour ses produits Ytong et Multipor" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3011" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-07-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Visuel_Interview_feu.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Rapport du CSTB : « Face au feu, le béton cellulaire se démarque des autres isolants à masse combustible »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_rapport-cstb-feu-beton-cellulaire-isolants-masse-combustible.php" & _ "" & _ "Rapport du CSTB : « Face au feu, le béton cellulaire se démarque des autres isolants à masse combustible »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3010" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-07-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Autoconstructeur_F_Muller_Ytong_beton_cellulaire_7.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Frédéric Muller, auto-constructeur : « Un régal de construire en béton cellulaire Ytong ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_frederic-muller-auto-constructeur-construire-beton-cellulaire-Ytong.php" & _ "" & _ "Frédéric Muller, auto-constructeur : « Un régal de construire en béton cellulaire Ytong ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3009" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-07-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/chai_bonnarme_ytong_5.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Xavier Bonnarme, producteur de Cognac : « le béton cellulaire répond à nos besoins ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xavier-bonnarme-chai-cognac-beton-cellulaire.php" & _ "" & _ "Xavier Bonnarme, producteur de Cognac : « le béton cellulaire répond à nos besoins ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "3006" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-07-07" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/YTONG_Energie_Carbone.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Les solutions Ytong prêtes et performantes pour les projets labélisés E+ C-, chiffres à l’appui !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-pret-performant-energie-carbone-etude-pouget.php" & _ "" & _ "Les solutions Ytong prêtes et performantes pour les projets labélisés E+ C-, chiffres à l’appui !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2998" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-06-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Visite_elus_Xella_1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("L’usine Xella de Saint-Savin ouvre ses portes aux élus isérois") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-elus-isere-usine-saint-savin.php" & _ "" & _ "L’usine Xella de Saint-Savin ouvre ses portes aux élus isérois" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2983" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-06-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Chantier_POULAIN_termine_ok.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Eric Roiné, Batî’Tech : « Passionné par le béton cellulaire qui ne m’apporte que des satisfactions ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_batitech-eric-roine-beton-cellulaire-satisfaction.php" & _ "" & _ "Eric Roiné, Batî’Tech : « Passionné par le béton cellulaire qui ne m’apporte que des satisfactions ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2982" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-06-05" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maison_passive_rouillac_ytong.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("« Ytong est naturellement associé à la maison passive depuis de nombreuses années »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-maison-passive-association-label-madeleine-martin.php" & _ "" & _ "« Ytong est naturellement associé à la maison passive depuis de nombreuses années »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2974" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-05-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Interview_collaborateur_Vincent_Technique.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Service technique Xella : convaincre par les chiffres des avantages du béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_service-technique-Xella-chiffres-avantages-beton-cellulaire.php" & _ "" & _ "Service technique Xella : convaincre par les chiffres des avantages du béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2971" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-04-27" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/franck_boissel_quercy_habitat.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Franck Boissel, Quercy Habitat : "Je ne trouve que des avantages au béton cellulaire !"") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_franck-boissel-quercy-habitat.php" & _ "" & _ "Franck Boissel, Quercy Habitat : "Je ne trouve que des avantages au béton cellulaire !"" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2957" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-04-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Enzomia.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Zoom sur une maison Ytong 36,5 en construction ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-construction-enzomia.php" & _ "" & _ "Zoom sur une maison Ytong 36,5 en construction " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2956" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-04-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/DSCN1875.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Xella, première entreprise à obtenir la certification Pro Perméa pour les logements collectifs") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_xella-certification-Pro-Permea-logements-collectifs.php" & _ "" & _ "Xella, première entreprise à obtenir la certification Pro Perméa pour les logements collectifs" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2954" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-04-14" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong-beton-cellulaire-metiers-xella-service-logistique1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Service logistique Xella : les coordinateurs des 3 plateformes françaises présentent leur métier !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_service-logistique-xella-presentation-metier.php" & _ "" & _ "Service logistique Xella : les coordinateurs des 3 plateformes françaises présentent leur métier !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2943" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-03-31" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Image1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong s’invite dans les cours du lycée pro Roger Deschaux ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-lycee-roger-deschaux.php" & _ "" & _ "Ytong s’invite dans les cours du lycée pro Roger Deschaux " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2942" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-03-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong-collectif.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("La construction de logements se porte bien !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_chiffres-construction-logements-2017.php" & _ "" & _ "La construction de logements se porte bien !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2941" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-03-22" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/pexels-photo.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Paris : une ville zéro carbone en 2050 ?") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_paris-zero-carbone-2050.php" & _ "" & _ "Paris : une ville zéro carbone en 2050 ?" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2937" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-03-10" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/WP_20170207_001.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong reçoit les élèves du Lycée professionnel de Sassenage !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_rencontre-lycee-professionnel-sassenage.php" & _ "" & _ "Ytong reçoit les élèves du Lycée professionnel de Sassenage !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2936" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-03-03" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Interview_collaborateur_Beatrice_service_clients.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Service client Xella : Béatrice Moreira nous présente son métier !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_portrait-service-client-xella-france.php" & _ "" & _ "Service client Xella : Béatrice Moreira nous présente son métier !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2935" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-02-13" <> "" Then newsdate = "2017-02-13" Else newsdate = "2017-02-15" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/salon-orcab-ytong.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("En mars, retrouvez Ytong sur 2 salons dédiés à la construction et l'habitat !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_salons-construction-habitat-mars-2017.php" & _ "" & _ "En mars, retrouvez Ytong sur 2 salons dédiés à la construction et l'habitat !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2925" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-02-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/pexels-photo-261177.jpeg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le logement rêvé des Français ? Une maison saine et fonctionnelle") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-saine-fonctionnelle.php" & _ "" & _ "Le logement rêvé des Français ? Une maison saine et fonctionnelle" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2926" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-02-05" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/multipor-ytong.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Décret rénovation, ITE obligatoire… Solution Multipor !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_decret-renovation-solution-multipor.php" & _ "" & _ "Décret rénovation, ITE obligatoire… Solution Multipor !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2915" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-01-26" <> "" Then newsdate = "2017-01-26" Else newsdate = "2017-02-01" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maison-paul-2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Témoignage #MaMaisonYtong : « Je rêvais d’une maison saine et durable »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_temoignage-avis-maison-beton-celulaire.php" & _ "" & _ "Témoignage #MaMaisonYtong : « Je rêvais d’une maison saine et durable »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2914" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2017-01-17" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ThinkstockPhotos-469815935.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le 19/01, RDV au Carrefour des Partenaires de France Materiaux à Bordeaux !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_carrefour-partenaires-france-materiaux-bordeaux.php" & _ "" & _ "Le 19/01, RDV au Carrefour des Partenaires de France Materiaux à Bordeaux !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2903" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2017-01-07" <> "" Then newsdate = "2017-01-07" Else newsdate = "2017-01-11" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/reseaux-sociaux.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Rejoignez Ytong sur Facebook !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_communaute-ytong-france-facebook.php" & _ "" & _ "Rejoignez Ytong sur Facebook !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2900" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-12-26" <> "" Then newsdate = "2016-12-26" Else newsdate = "2017-01-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/2016-11-10_112640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Les bureaux Ytong à Mios font peau neuve !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_renovation-bureaux-ytong-mios.php" & _ "" & _ "Les bureaux Ytong à Mios font peau neuve !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2895" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-12-17" <> "" Then newsdate = "2016-12-17" Else newsdate = "2017-01-03" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/franck4ok.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Services Formation et Assistance chantier : rencontre avec Franck Favier, formateur et technicien-démonstrateur chez Ytong !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_service-formation-xella-france.php" & _ "" & _ "Services Formation et Assistance chantier : rencontre avec Franck Favier, formateur et technicien-démonstrateur chez Ytong !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2894" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-11-27" <> "" Then newsdate = "2016-11-27" Else newsdate = "2016-11-25" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maison-passive-bis.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Habitats passifs : ces maisons qui nous veulent du bien") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maisons-passives-beton-cellulaire.php" & _ "" & _ "Habitats passifs : ces maisons qui nous veulent du bien" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2887" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-12-08" <> "" Then newsdate = "2016-12-08" Else newsdate = "2016-12-02" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/surelevationBC.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Surélévation et extension urbaines : le béton cellulaire prend de la hauteur !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_surelevation-extension-beton-cellulaire.php" & _ "" & _ "Surélévation et extension urbaines : le béton cellulaire prend de la hauteur !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2889" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-11-12" <> "" Then newsdate = "2016-11-12" Else newsdate = "2016-11-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/nature-sky-twilight-grass-9198.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Expérimentation de la future réglementation environnementale !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_experimentation-future-reglementation-environementale.php" & _ "" & _ "Expérimentation de la future réglementation environnementale !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2885" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-11-01" <> "" Then newsdate = "2016-11-01" Else newsdate = "2016-10-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maison-archi-le-boullec.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le Boullec Maçonnerie : le béton cellulaire au service de la technique") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_partenaire-ytong-leboullec-maconnerie-bretagne.php" & _ "" & _ "Le Boullec Maçonnerie : le béton cellulaire au service de la technique" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2873" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-10-20" <> "" Then newsdate = "2016-10-20" Else newsdate = "2016-10-14" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/sismique.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau mur Compact 22,5 : Construire des maisons dans toutes les zones sismiques") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_construire-maison-beton-cellulaire-zones-sismique.php" & _ "" & _ "Nouveau mur Compact 22,5 : Construire des maisons dans toutes les zones sismiques" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2872" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-10-13" <> "" Then newsdate = "2016-10-13" Else newsdate = "2016-10-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Artibat.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Salon Artibat du 19 au 21 octobre : Venez rencontrer Ytong, leader du béton cellulaire ! ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-au-salon-artibat-2016.php" & _ "" & _ "Salon Artibat du 19 au 21 octobre : Venez rencontrer Ytong, leader du béton cellulaire ! " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2863" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-10-06" <> "" Then newsdate = "2016-10-06" Else newsdate = "2016-10-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/garden-1680802_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Maison individuelle : de quoi rêvent les Français ?") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_sondage-maison-reve-francais.php" & _ "" & _ "Maison individuelle : de quoi rêvent les Français ?" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2862" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-09-29" <> "" Then newsdate = "2016-09-29" Else newsdate = "2016-09-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/DSC_0656.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong x Keim : réhabilitation d’une caserne de gendarmerie !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_renovation-caserne-gendarmerie-keimxpor.php" & _ "" & _ "Ytong x Keim : réhabilitation d’une caserne de gendarmerie !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2861" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-09-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/LEOPOLD-1935-BD.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Une maison d'architecte passive en Bretagne") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-architecte-passive-vannes.php" & _ "" & _ "Une maison d'architecte passive en Bretagne" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2860" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-09-09" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/electrician-1080554_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le BTP fait sa rentrée !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_reglementation-btp-septembre-2016.php" & _ "" & _ "Le BTP fait sa rentrée !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2859" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-08-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/transition-energetique-bilan.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Loi sur la transition énergétique : bilan un an après") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_bilan-transition-energetique-un-an.php" & _ "" & _ "Loi sur la transition énergétique : bilan un an après" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2857" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-08-08" <> "" Then newsdate = "2016-08-08" Else newsdate = "2016-07-20" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/agrandissemnt.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Agrandir une maison de ville : solution béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_agrandissement-maison-ville-beton-cellulaire.php" & _ "" & _ "Agrandir une maison de ville : solution béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2856" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-08-01" <> "" Then newsdate = "2016-08-01" Else newsdate = "2016-07-20" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/IMAGE_20130717_21793676.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Et si on surélevait en béton cellulaire ?") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_surelevation-beton-cellulaire-ytong.php" & _ "" & _ "Et si on surélevait en béton cellulaire ?" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2854" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-07-25" <> "" Then newsdate = "2016-07-25" Else newsdate = "2016-07-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/atelier-115-green-office-050-vf-2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Zoom sur le label énergie-carbone") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_nouveau-label-energie-carbone.php" & _ "" & _ "Zoom sur le label énergie-carbone" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2853" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-07-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong_Solutions_constructive_non_residentiel.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("30% de surface constructible en plus pour les bâtiments écologiques") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_decret-bonus-surface-constructible.php" & _ "" & _ "30% de surface constructible en plus pour les bâtiments écologiques" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2852" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-07-15" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/guide-tarif4.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau catalogue solutions & tarif Ytong : désormais disponible !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_nouveau-catalogue-tarif-ytong.php" & _ "" & _ "Nouveau catalogue solutions & tarif Ytong : désormais disponible !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2850" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-07-08" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ytong-etancheite.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Etanchéité à l’air : Ytong accompagne la construction de logements collectifs") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_agrement-ministeriel-etancheite-collectif.php" & _ "" & _ "Etanchéité à l’air : Ytong accompagne la construction de logements collectifs" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2849" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-06-21" <> "" Then newsdate = "2016-06-21" Else newsdate = "2016-06-30" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/IMG_6453.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Des appartements pensés comme des maisons : un projet signé Jean-Claude Laisné") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_immeuble-liveil-brevannes-jclaisne.php" & _ "" & _ "Des appartements pensés comme des maisons : un projet signé Jean-Claude Laisné" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2848" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-06-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/reprise-ytong.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Construction neuve : la reprise se confirme !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_chiffres-reprise-construction-logements.php" & _ "" & _ "Construction neuve : la reprise se confirme !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2847" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-06-13" <> "" Then newsdate = "2016-06-13" Else newsdate = "2016-06-10" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/startup-photos.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Compact 22,5 : le web en parle !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_revue-de-presse-nouveau-mur-ytong.php" & _ "" & _ "Compact 22,5 : le web en parle !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2839" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-06-04" <> "" Then newsdate = "2016-06-04" Else newsdate = "2016-06-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Etape-6-pose-multipor.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau décret : quand rénovation rime avec isolation !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_decret-travaux-embarques-isolation-thermique.php" & _ "" & _ "Nouveau décret : quand rénovation rime avec isolation !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2838" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-05-27" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/_MG_2008.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong lance Compact 22,5 : le mur haute performance thermique et environnementale") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_lancement-bloc-beton-cellulaire-ytong.php" & _ "" & _ "Ytong lance Compact 22,5 : le mur haute performance thermique et environnementale" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2837" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-05-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/20151205-batiment-bas-carbone-label.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le label bas carbone pour les bureaux et dans le collectif") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_label-bas-carbone-collectif-tertiaire.php" & _ "" & _ "Le label bas carbone pour les bureaux et dans le collectif" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2836" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-05-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/planetebeton.jpg.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong raconté dans Planète B") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-magazine-planeteb-beton.php" & _ "" & _ "Ytong raconté dans Planète B" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2835" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-04-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/solar-panel-1175819_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Conférence environnementale : transition energétique et énergies renouvelables") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_conference-environementale-transition-energetique.php" & _ "" & _ "Conférence environnementale : transition energétique et énergies renouvelables" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2834" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-04-15" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/wind-turbines-836619_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Transition énergétique : la feuille de route en suspens") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_feuille-de-route-transition-energetique.php" & _ "" & _ "Transition énergétique : la feuille de route en suspens" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2833" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-04-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/passibat.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong à Passibat les 11 & 12 avril 2016 !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_salon-passibat-2016-ytong-exposant.php" & _ "" & _ "Ytong à Passibat les 11 & 12 avril 2016 !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2832" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-04-01" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/laisne-clamart.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("J.C Laisné : 40 ans de béton cellulaire") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_architecte-laisne-beton-cellulaire.php" & _ "" & _ "J.C Laisné : 40 ans de béton cellulaire" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2831" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-03-20" <> "" Then newsdate = "2016-03-20" Else newsdate = "2016-03-28" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/7.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nordbat 2016 en images") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_retour-nordbat-2016.php" & _ "" & _ "Nordbat 2016 en images" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2830" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-03-11" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/firewood-918930_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Habiter Mieux : de nouveaux objectifs !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_habiter-mieux-aide-renovation.php" & _ "" & _ "Habiter Mieux : de nouveaux objectifs !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2829" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-03-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/nordbat%20ok.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong est à NORDBAT du 23 au 25 mars 2016 !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-nordbat-mars-2016.php" & _ "" & _ "Ytong est à NORDBAT du 23 au 25 mars 2016 !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2828" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-02-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/pexels-photo.jpeg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Les Français ont froid… De l’importance de l’isolation !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_sondage-francais-froid-opinionway.php" & _ "" & _ "Les Français ont froid… De l’importance de l’isolation !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2827" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-02-19" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/image%20teaser%20ytong.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Références chantiers : rendez-vous sur notre site !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_exemples-chantiers-beton-cellulaire.php" & _ "" & _ "Références chantiers : rendez-vous sur notre site !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2826" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-02-11" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/DJI_0011.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Rencontre avec le constructeur Pavillons Création, partenaire Ytong") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_pavillons-creation-constructeur-beton-cellulaire.php" & _ "" & _ "Rencontre avec le constructeur Pavillons Création, partenaire Ytong" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2825" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-02-08" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/tableau%20bord.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Les labels Effinergie en 2015 : les chiffres remarquables") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_chiffres-effinergie-2015.php" & _ "" & _ "Les labels Effinergie en 2015 : les chiffres remarquables" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2824" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-01-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/MaisonPassive.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("20ème conférence internationale du passif") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_20eme-conference-internationale-passif.php" & _ "" & _ "20ème conférence internationale du passif" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2823" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-01-22" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/paris-918992_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("3 milliards d'euros pour la rénovation des bâtiments publics et logements sociaux") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_3milliards-renovation-energetique-batiments-publics.php" & _ "" & _ "3 milliards d'euros pour la rénovation des bâtiments publics et logements sociaux" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2822" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2016-01-14" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/actu_habitat_naturel.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong dans le hors-série Habitat Naturel") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_parution-habitat-naturel.php" & _ "" & _ "Ytong dans le hors-série Habitat Naturel" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2718" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2016-01-06" <> "" Then newsdate = "2016-01-06" Else newsdate = "2015-12-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/forest-272595_640(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("COP21 : Que dit l'accord de Paris ?") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_cop21-accord-de-paris.php" & _ "" & _ "COP21 : Que dit l'accord de Paris ?" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2710" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-12-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/NOEL-3.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong vous souhaite de très belles fêtes de fin d'année !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_voeux-annee-2016-ytong.php" & _ "" & _ "Ytong vous souhaite de très belles fêtes de fin d'année !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2709" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-12-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/projet_natura.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Projet Natura : une maison en Ytong primée au concours "Maisons de l’année 2016" de l’UMF") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_projet-natura-medaille-bronze-palmares-umf.php" & _ "" & _ "Projet Natura : une maison en Ytong primée au concours "Maisons de l’année 2016" de l’UMF" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2705" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-12-10" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong_planete_ytong_beton_cellulaire(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Planète Ytong : trouvez votre partenaire facilement !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_partenaire-planete-ytong.php" & _ "" & _ "Planète Ytong : trouvez votre partenaire facilement !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2701" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-11-06" <> "" Then newsdate = "2015-11-06" Else newsdate = "2015-12-07" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Ytong_bibliotheque_technique_beton_cellulaire(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("La bibliothèque technique Ytong, à votre service !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_fiches-techniques-beton-cellulaire.php" & _ "" & _ "La bibliothèque technique Ytong, à votre service !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2700" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-12-03" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/COP21-1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("COP21 : les comptes Twitter à suivre") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_suivre-la-cop21-sur-twitter.php" & _ "" & _ "COP21 : les comptes Twitter à suivre" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2699" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-11-27" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Parole_d_expert-1215.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ma maison écologique en béton cellulaire ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-ecologique-beton-cellulaire.php" & _ "" & _ "Ma maison écologique en béton cellulaire " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2698" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-11-20" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/MultiporPresseMag-1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Le Multipor dans la presse magazine") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_multipor-presse-magazine.php" & _ "" & _ "Le Multipor dans la presse magazine" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2692" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-11-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/NEWS-Conference_Acermi.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Batimat : Une conférence sur le référentiel Tremplin Acermi") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_batimat-conference-acermi.php" & _ "" & _ "Batimat : Une conférence sur le référentiel Tremplin Acermi" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2687" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-10-30" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Actu-construction-1115.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Transition énergétique et rénovation") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_transition-energetique-renovation.php" & _ "" & _ "Transition énergétique et rénovation" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2673" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-10-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Actu_COP21-4-ok.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("COP21 : quels enjeux, quelles ambitions ?") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_enjeux-cop-21.php" & _ "" & _ "COP21 : quels enjeux, quelles ambitions ?" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2672" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-10-16" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Capture.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong au Congrès des Architectes !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-congres-architectes-montpellier.php" & _ "" & _ "Ytong au Congrès des Architectes !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2671" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-10-05" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/passive_rouillac1.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Maison passive et béton cellulaire en Charente") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-passive-beton-cellulaire-charente.php" & _ "" & _ "Maison passive et béton cellulaire en Charente" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2670" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-09-28" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/beton_plante.JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #6 : Le béton cellulaire dégage des vapeurs d'aluminium !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_beton-cellulaire-vapeurs-aluminium.php" & _ "" & _ "Idée reçue #6 : Le béton cellulaire dégage des vapeurs d'aluminium !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2669" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-09-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/FDMsept.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong à la foire de Marseille") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-foire-marseille.php" & _ "" & _ "Ytong à la foire de Marseille" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2668" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-09-11" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/wood-nature-person-walking-large.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Multiplication des emplois verts en Ile-de-France") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_emplois-verts-batiment-idf.php" & _ "" & _ "Multiplication des emplois verts en Ile-de-France" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2659" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-09-04" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/hill-meadow-tree-green-large.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("BBC Effinergie : une certification dynamique") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_bilan-certification-effinergie.php" & _ "" & _ "BBC Effinergie : une certification dynamique" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2654" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-08-17" <> "" Then newsdate = "2015-08-17" Else newsdate = "2015-08-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/wood-nature-sunny-forest-large.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong : priorité environnement") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_beton-cellulaire-developpement-durable.php" & _ "" & _ "Ytong : priorité environnement" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2652" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-08-10" <> "" Then newsdate = "2015-08-10" Else newsdate = "2015-08-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/man-person-hands-coffee-large.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong sur les réseaux sociaux !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_facebook-twitter-ytong.php" & _ "" & _ "Ytong sur les réseaux sociaux !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2651" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-08-06" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/adoption-de-la-loi-sur-la-transition-energetique_62T1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Vote définitif de la loi sur la transition énergétique") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_vote-loi-transition-energetique-assemblee-nationale.php" & _ "" & _ "Vote définitif de la loi sur la transition énergétique" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2650" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-07-31" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/grange1(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Rénovation et extention d'une grange dans la Drôme") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_renovation-grange-beton-cellulaire-ytong.php" & _ "" & _ "Rénovation et extention d'une grange dans la Drôme" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2646" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-06-08" <> "" Then newsdate = "2015-06-08" Else newsdate = "2015-06-26" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/form-656262_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Une charte pour la formation des professionnels du bâtiment") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_charte-professionnels-batiment.php" & _ "" & _ "Une charte pour la formation des professionnels du bâtiment" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2627" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-06-03" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/bim(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong au Congrès Untec de Tours") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-congres-untec-tours-2015.php" & _ "" & _ "Ytong au Congrès Untec de Tours" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2621" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "/fr/img/bim.jpg" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-05-28" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/2(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #4 On ne peut pas mettre les finitions qu’on veut sur du béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-finitions-beton-cellulaire.php" & _ "" & _ "Idée reçue #4 On ne peut pas mettre les finitions qu’on veut sur du béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2611" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-07-23" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/sky-sunny-clouds-cloudy.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Vague de chaleur : le béton cellulaire, allié de la fraicheur") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_canicule-fraicheur-beton-cellulaire.php" & _ "" & _ "Vague de chaleur : le béton cellulaire, allié de la fraicheur" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2636" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-07-08" <> "" Then newsdate = "2015-07-08" Else newsdate = "2015-07-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/numbers-money-calculating-calculation.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #5 Le béton cellulaire, c’est cher !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-beton-cellulaire-cher.php" & _ "" & _ "Idée reçue #5 Le béton cellulaire, c’est cher !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2635" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-02-23" <> "" Then newsdate = "2015-02-23" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_beton_fragile_OK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #3 « Le béton cellulaire est fragile » !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-beton-cellulaire-fragile.php" & _ "" & _ "Idée reçue #3 « Le béton cellulaire est fragile » !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2356" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-03-23" <> "" Then newsdate = "2015-03-23" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/bi_prg_photo_030-238B25_1.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Chantier 2014 : la résidence Bel Horizon à Voiron") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_residence-bel-horizon-voiron.php" & _ "" & _ "Chantier 2014 : la résidence Bel Horizon à Voiron" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2357" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-03-16" <> "" Then newsdate = "2015-03-16" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/ecran_ytong_OK2.png" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Nouveau site web ytong.fr : à votre service !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_site-web-ytong-service.php" & _ "" & _ "Nouveau site web ytong.fr : à votre service !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2358" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-03-09" <> "" Then newsdate = "2015-03-09" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Fotolia_41340636_S.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Projet de loi sur la transition énergétique : l’ITE en question") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_loi-transition-energetique-ITE.php" & _ "" & _ "Projet de loi sur la transition énergétique : l’ITE en question" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2359" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-03-02" <> "" Then newsdate = "2015-03-02" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/AlleProdukte2.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Multipor certifié Acermi") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_multipor-certifie-acermi.php" & _ "" & _ "Multipor certifié Acermi" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2360" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-02-09" <> "" Then newsdate = "2015-02-09" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_beton_isolant_OK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #2 "Le béton cellulaire est un mauvais isolant !"") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-beton-cellulaire-isolant.php" & _ "" & _ "Idée reçue #2 "Le béton cellulaire est un mauvais isolant !"" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2361" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-03-26" <> "" Then newsdate = "2015-03-26" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_histoire_ytong.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong : bientôt un siècle de béton cellulaire !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-bientot-un-siecle-de-beton-cellulaire.php" & _ "" & _ "Ytong : bientôt un siècle de béton cellulaire !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2362" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_rt_2012_OK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("RT 2012 : où en est-on ? ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_rt2012-ou-en-est-on.php" & _ "" & _ "RT 2012 : où en est-on ? " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2363" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-02-16" <> "" Then newsdate = "2015-02-16" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_formation_OK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Des formations professionnelles pour maitriser le béton cellulaire") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_formations-professionnelles-beton-cellulaire.php" & _ "" & _ "Des formations professionnelles pour maitriser le béton cellulaire" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2364" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-01-19" <> "" Then newsdate = "2015-01-19" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/photo_beton_eponge_OK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Idée reçue #1 « Le béton cellulaire est une éponge ! »") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_idee-recue-beton-cellulaire-eponge.php" & _ "" & _ "Idée reçue #1 « Le béton cellulaire est une éponge ! »" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2365" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "2015-02-02" <> "" Then newsdate = "2015-02-02" Else newsdate = "2015-03-18" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/FotorCreated.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Retrouvez Ytong sur le salon BlueBat à Lyon du 4 au 6 mars 2015") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "hide" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-au-salon-bluebat-lyon-2015.php" & _ "" & _ "Retrouvez Ytong sur le salon BlueBat à Lyon du 4 au 6 mars 2015" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2366" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "hide" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-03-20" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/xella_asset_1786_491px(2).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Natureplus, un label qui fait la différence") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-label-natureplus.php" & _ "" & _ "Natureplus, un label qui fait la différence" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2382" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-03-31" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/8-skoleni-prodejcu-stavebnin(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Un coup de pouce en plus pour la formation continue !") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_un-coup-de-pouce-en-plus-pour-la-formation-continue.php" & _ "" & _ "Un coup de pouce en plus pour la formation continue !" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2391" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-04-09" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/carre-olona1(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode(" Chantier 2014 : la résidence Carré Olonna à Meylan") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_chantier-2014-la-residence-carre-olonna-a-meylan.php" & _ "" & _ " Chantier 2014 : la résidence Carré Olonna à Meylan" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2418" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-04-16" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/CRW_6323_RT8_neu(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Bilan sur 10 ans de certificats d'économies d'énergie") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_10ans-certificats-economies-energie.php" & _ "" & _ "Bilan sur 10 ans de certificats d'économies d'énergie" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2420" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_blank" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-04-24" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/construction-worker-495373_640(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Transition énergétique : les députés reprennent la main") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_loi-transition-energetique-assemblee-nationale.php" & _ "" & _ "Transition énergétique : les députés reprennent la main" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2426" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_blank" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-04-29" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/Maison_Adorha_1_ok(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("L’isolation : une préoccupation française") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_enquete-isolation-maison-francais.php" & _ "" & _ "L’isolation : une préoccupation française" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2432" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-05-07" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/thermochoc(2).jpg" If "/fr/img/thermochoc(1).jpg" <> "" Then teaserImage = "/fr/img/thermochoc(1).jpg" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Thermochoc, un système d’ITE validé par le CSTB ") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_certification-thermochoc-fermacell.php" & _ "" & _ "Thermochoc, un système d’ITE validé par le CSTB " & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2456" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-05-13" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/effinergie.jpg" If "/fr/img/effinergie_rdax_170x110(1).jpg" <> "" Then teaserImage = "/fr/img/effinergie_rdax_170x110(1).jpg" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Ytong présente l'association Effinergie") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ytong-partenaire-effinergie.php" & _ "" & _ "Ytong présente l'association Effinergie" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2459" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "/fr/img/effinergie_rdax_170x110.jpg" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-05-21" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/maison1(1).jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("CMO signe sa première maison en béton cellulaire en Loire-Atlantique") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_maison-beton-cellulaire-loire-atlantique.php" & _ "" & _ "CMO signe sa première maison en béton cellulaire en Loire-Atlantique" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2499" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-06-10" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/protect-450594_640.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Transition énergétique : la rénovation énergétique est en marche") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_transition-energetique-renovation-isolation.php" & _ "" & _ "Transition énergétique : la rénovation énergétique est en marche" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2622" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-06-16" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/villa_cvrois_wikiOK.jpg" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("La Villa Cavrois ouverte au public") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_ouverture-villa-cavrois.php" & _ "" & _ "La Villa Cavrois ouverte au public" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2623" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If ''' USE CREATION DATE IF NEWS DATE IS EMPTY ''' If "" <> "" Then newsdate = "" Else newsdate = "2015-07-02" End If ''' NEWS TIMESTAMP FOR SORTING PURPOSE ''' newsTimeStamp = replace(newsdate,"-","") & "12:00" ''' FORMATTED DATE ''' newsdateformatted = formatDate("%m%-%d%-%Y%",newsdate,"0","") ''' CHANGE BREAKS IN TEASER TEXT ''' teasertext = Replace("", "
", "#break#") If "" <> "" Then finishdate = "" finishdateformatted = formatDate("%m%-%d%-%Y%",finishdate,"0","") newsdateformatted = newsdateformatted & " – " & finishdateformatted End If ''' OVERWRITE TEASER IMAGE ''' teaserImage = "/fr/img/IMG_0765(1).JPG" If "" <> "" Then teaserImage = "" End If ''' FORMAT CATEGORIES ''' categories = "" categories = LCase(categories) categories = replace(categories," ","") categories = replace(categories,","," ") ''' RSS STUFF ''' RSSTitle = HtmlDecode("Rencontre avec Enzomia Design, constructeur de maisons en béton cellulaire") RSSTeaser = HtmlDecode(replace(teasertext,"#break#","")) RSSYear = mid(newsTimeStamp,1,4) RSSMonth = mid(newsTimeStamp,5,2) RSSDay = mid(newsTimeStamp,7,2) RSSHour = mid(newsTimeStamp,9,2) RSSMinute = mid(newsTimeStamp,11,2) RSSDate = RSSDay & "-" & RSSMonth & "-" & RSSYear If IsDate(RSSDate) Then RSSDate = return_RFC822_Date(RSSDate,"") End If RSSDate = RSSDate & RSSHour & ":" & RSSMinute & ":00 GMT" If "" <> "" Then If Left("",3) = "htt" Or Left("",3) = "www" Then RSSFullLink = "1" End If End If 'for polish projects If localeProject = "1045" Then newsdateformatted = replacePolishDateStrings(newsdateformatted) End If ''' CREATE XML - IF WE ARE IN TEASER THEN ONLY SHOW VISIBLE NEWS ''' If (isTeaser = "true" And "show" <> "hide") Or isTeaser <> "true" Then newslist = newslist & "" & _ "" & aggregatedListId & "" & _ "/actualites-xella_partenaire-ytong-enzomia-design.php" & _ "" & _ "Rencontre avec Enzomia Design, constructeur de maisons en béton cellulaire" & _ "" & _ "" & teasertext & "" & _ "" & newsdate & "" & _ "" & newsdateformatted & "" & _ "12:00" & _ "" & Replace(newsTimeStamp,":","") & "" & _ "2629" & _ "" & teaserImage & "" & _ "more" & _ "" & _ "_self" & _ "show" & _ "show" & _ "" & _ "show" & _ "" & categories & "" & _ "" & _ "" & RSSDate & "" & _ "" & RSSTitle & "" & _ "" & RSSTeaser & "" & _ "" & RSSFullLink & "" & _ "" End If %>