Grazie , ma devo anche contare questi record raggruppati...
codice:
<%
Set myConnection = CreateObject("ADODB.Connection")
myConnectString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/Eventi.mdb")
myConnection.open myConnectString
mySQL = " SELECT "
mySQL = mySQL & " [Inizio] AS Inizio, "
mySQL = mySQL & " [Codice] AS Codice, "
mySQL = mySQL & " [Fine] AS Fine "
mySQL = mySQL & " FROM "
mySQL = mySQL & " Eventi "
mySQL = mySQL & " GROUP BY "
mySQL = mySQL & " [Inizio], "
mySQL = mySQL & " [Codice], "
mySQL = mySQL & " [Fine] "
Set myrs = Server.CreateObject("ADODB.Recordset")
myrs.Open mySQL, myConnectString
if not myrs.eof then
do while not myrs.eof
response.write myrs("Codice") & " - " &_
myrs("Inizio") & " - " &_
myrs("Fine") & "
"
response.flush()
myRs.movenext()
loop
end if
myRS.close()
Set myRS = nothing
myConnection.close()
Set myConnection = nothing
%>