Home Page
Contatti
Area Utente
Registrati
Reti di Recinzione
Reti per l'Agricoltura
Reti per Antinfortunistica
Reti Antivolatili
Reti per campi Baseball
Reti da Beach Volley
Reti per campi Calcio Calcetto
Reti per Controsoffitaure
Reti di Delimitazione
Reti per campi Golf
Reti da Pallavolo
Reti per campi Tennis
Reti Sportive
Reti da Calcio
Reti da Calcetto
Reti da Tennis
Reti da Pallavolo
Reti da Beach Volley
NEWS
  <% Connetti("News") Dim RS Set RS = Server.CreateObject("ADODb.recordset") RS.ActiveConnection = Connection 'Comando che apre l'elenco delle news e le stampa nella pagina 'cosė com'č fa apparire tutte le news inserite, se vuoi fare ad esempio solo le ultime 3 devi cambiare la riga con questa: RS.Source = "SELECT TOP 5 * FROM News WHERE OnLine ORDER BY Data DESC, Ora DESC" 'RS.Source = "SELECT * FROM News WHERE OnLine ORDER BY Data DESC, Ora DESC" RS.Open If Not (RS.Eof And RS.Bof) Then Do While Not RS.Eof %>

:: <%=RS("Data")%> ore <%=FormatDateTime(RS("Ora"), vbShortTime)%> ::
<%=RS("Testo")%>

<% RS.MoveNext Loop End If RS.Close Set RS = Nothing Disconnetti %>
@ Bresciareti.it [pannello]