<% set cnnConnessione = Server.CreateObject("ADODB.Connection") set objRecordset = server.CreateObject("ADODB.Recordset") 'cnnConnessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\mdb-database\accessi-ascig.mdb") 'eseguo il conteggio dei visitatori ecludendo quelli con lo stesso ip, stessa data stessa ora e stesso minuto (possibile refresh) 'objRecordset.open "SELECT * FROM accessi WHERE not (data=#" & datepart("yyyy",now()) & "/" & datepart("m",now()) & "/" & datepart("d",now()) & "# AND ora=#" & hour(now()) & "." & minute(now()) & "# AND ip='" & Request.ServerVariables("REMOTE_ADDR") & "')",cnnConnessione,3,3 'objRecordset.close 'cnnConnessione.close %>

Qui si possono trovare le news del sito.
Clicca nel menù a sinistra sul nome della news che ti interessa. <% 'response.write("Info Debug: db-path= " & server.MapPath("\mdb-database\ascig.mdb")) cnnConnessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/ascig.mdb") strQuery = "SELECT TOP 8 * FROM news ORDER BY dataimmissione DESC" objRecordset.open strQuery,cnnConnessione,0,3 do until objRecordset.EOF %>

<% objRecordset.movenext loop objRecordset.close set objRecordset = nothing cnnConnessione.close set cnnConnessione = nothing %>