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 %>
"> " align="left" border="0" alt="" />
<% =news("desc1") %>
|
<% else %>
<% query = "SELECT * FROM prodotti WHERE idprod= 1"
Set news = connDB.Execute(query) %>
|
">" align="left" border="0" alt="" />
<% =news("desc1") %>
|
<% end if %>
<% '********* 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 %>
|
<% =data_estesa(news("inizio")) %>
<% if news("foto1")<>"" then %>
">" align="left" border="0" alt="" />
<% end if %>
<% =controllotesto(news("descrizione")) %>
|
|
<% news.MoveNext %>
<% Loop %>
<% end if %>
<% '********* FINE NEWS ********** %>
 |
|
 |
Vino a denominazione di origine controllata...
|
|
Scopri la bont?dei nostri prodotti...
|
