Vero, sorry 
codice:
<%
Dim rs_dati
Dim rs_dati_cmd
Dim rs_dati_numRows
Set rs_dati_cmd = Server.CreateObject ("ADODB.Command")
rs_dati_cmd.ActiveConnection = MM_local_mdb_STRING
rs_dati_cmd.CommandText = "query funzionante"
Set rs_dati = rs_dati_cmd.Execute
rs_dati_numRows = 0
%>
<%
conta_riga = 2
While ((Repeat5__numRows <> 0) AND (NOT rs_dati.EOF))
conta_riga_giorno = (rs_dati.Fields.Item("MeanDay").Value)
if conta_riga <> conta_riga_giorno then
%>
<tr class="gradeA">
<td> - </td>
</tr>
<%
else
%>
<tr class="gradeB">
<td> - </td>
</tr>
<%
end if
if conta_riga <> conta_riga_giorno then
conta_riga = conta_riga + 1
' rs_dati.MoveNext()
else
Repeat5__index=Repeat5__index+1
Repeat5__numRows=Repeat5__numRows-1
conta_riga = conta_riga + 1
rs_dati.MoveNext()
end if
Wend
%>