<%@LANGUAGE="VBSCRIPT"%> <% Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = conn rsNews.Source = "SELECT * FROM news WHERE slanguage = 'inglese' AND iactive LIKE '1' ORDER BY ddate DESC" rsNews.Open() %> Fattoria l'Amorosa | News and special offers
 
<% 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)%>... [">Detail]

<% rsNews.MoveNext() Wend End If %>
 
Vini & distillati Delea
Fattoria l'Amorosa Agriturismo <% rsNews.Close() Set rsNews = Nothing %>