<%@LANGUAGE="VBSCRIPT"%>
<%
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = conn
rsNews.Source = "SELECT * FROM news WHERE slanguage = 'francese' AND iactive LIKE '1' ORDER BY ddate DESC"
rsNews.Open()
%>
Fattoria l'Amorosa | Nouveautés et offres spéciales
<% If Not rsNews.EOF Or Not rsNews.BOF Then
While NOT rsNews.EOF
response.write ""&(rsNews.Fields.Item("stitle").Value)&""%> <%=Left((rsNews.Fields.Item("sdescription").Value), 70)%>... [">dettaglio]
