<%@Language=VBScript%>
<%
set Primopiano = ADORecordSet("saie" , "select * from Primopiano where Tipo=0 order by Data", "block=0", "ID", "Primopiano")
set Strilli = ADORecordSet("saie" , "select * from Strilli order by ordine", "block=0", "ID", "Strilli")
set Parametri = ADORecordSet("saie" , "select * from Parametri where id = 1", "block=0", "ID", "Parametri")
set News = ADORecordSet("saie" , "select * from News ", "block=0", "ID", "News")
set Mensile = ADORecordSet("saie" , "select * from Mensili order by data desc", "block=0", "ID", "Mensili")
set Newsag = ADORecordSet("saie" , "select * from Primopiano where Tipo=3 order by Data", "block=0", "ID", "Primopiano")
%>
Comunità Ludica di Giocatorino
<% News.MoveFirst
while not News.EOF
%>
<%=News.Value("Titolo")%>
<%=News.Value("Sommario")%>
<%=News.Value("Testo")%>
<% News.MoveNext
wend %>
PRIMO PIANO
<% Primopiano.MoveFirst
while not Primopiano.EOF
%>
<% if Primopiano.Value("flagFoto")<>0 Then %>
<% end if %>
<%=Primopiano.Value("Data")%>
<% if Primopiano.Value("flagTitolo")<>0 Then %>
<%=Primopiano.Value("Titolo")%>
<% end if %>
<%=Primopiano.Value("Testo")%>
<% Primopiano.MoveNext
wend %>
SEGNALAZIONI
<% Strilli.MoveFirst
while not Strilli.EOF
%>
<% if Strilli.Value("link")<>"" Then %><%=Strilli.Value("Titolo")%> <% else %><%=Strilli.Value("Titolo")%> <% end if %>
