<% Option Explicit %> <% Response.Buffer=True %> <% =titolosito %> <% Dim data, query, news %> <% data = "date()" %>
<% '****************************************** '** BLOCCO CENTRALE DEL SITO '****************************************** %>
<% '****************************************** '** INIZIO PRIMA COLONNA '****************************************** %> <% '****************************************** '** FINE PRIMA COLONNA '****************************************** %> <% '****************************************** '** INIZIO SECONDA COLONNA '****************************************** %> <% '****************************************** '** FINE SECONDA COLONNA '****************************************** %> <% '****************************************** '** INIZIO TERZA COLONNA '****************************************** %> <% '****************************************** '** FINE TERZA COLONNA '****************************************** %>

La qualit?dei nostri prodotti nasce dalla ricchezza di un territorio, le Prealpi Trevigiane, in cui la tradizione e la natura generosa dei pascoli convivono felicemente da sempre.

<% '******** VISUALIZZAZIONE CASUALE DEL PRODOTTO ********* %> <% Dim numero, casuale, cont query = "SELECT * FROM prodotti" set numero = server.createobject("adodb.recordset") numero.open query, connDB, 1, 3 randomize() casuale=cint(numero.recordcount*rnd()) query = "SELECT * FROM prodotti WHERE foto1 <>'' AND idprod=" & casuale Set news = connDB.Execute(query) if not news.BOF and not news.EOF then %> <% else %> <% query = "SELECT * FROM prodotti WHERE idprod= 1" Set news = connDB.Execute(query) %> <% end if %>
">" align="left" border="0" alt="" />

<% =news("nomeprodotto") %>

<% =news("desc1") %>
">" align="left" border="0" alt="" />

<% =news("nomeprodotto") %>

<% =news("desc1") %>
<% '********* INIZIO NEWS ********** %>
<% query = "SELECT * FROM news WHERE inizio <=" & data & " AND fine>=" & data & " ORDER BY inizio DESC" set news = server.createobject("adodb.recordset") news.open query, connDB, 1, 3 if not news.BOF and not news.EOF then %> <% Do While Not news.EOF %> <% news.MoveNext %> <% Loop %>

<% =data_estesa(news("inizio")) %>

" title="leggi la news"><% Response.Write Server.HTMLEncode (news("titolo")) %>

<% if news("foto1")<>"" then %> ">" align="left" border="0" alt="" /> <% end if %> <% =controllotesto(news("descrizione")) %>

<% end if %>
<% '********* FINE NEWS ********** %>
Vino a denominazione di origine controllata... Scopri la bont?dei nostri prodotti...
<% '****************************************** '** FINE BLOCCO CENTRALE DEL SITO '****************************************** %>
<% connDB.Close %>