<%
Dim cn60,cm60
Set cn60 = Server.CreateObject("ADODB.Connection")
cn60.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("/ACCESSI_LINK/LINK.mdb")

set rs60=cn60.execute ("SELECT TOP 6 TABELLA.B AS SEZIONI, Count(TABELLA.B) AS TOTALI FROM TABELLA WHERE (((CVDate([TABELLA]![A]))>CVDate("28/03/2005"))) GROUP BY TABELLA.B ORDER BY Count(TABELLA.B) DESC ")


Do while NOT rs60.EOF

SEZIONE = rs60("SEZIONI")
VISITE = rs60("totali")


%>
<td width="1%" bgcolor="#FFFFCC" height="10" align="center"><font size="1" face="Verdana"><%response.write SEZIONE%></font></td>
<td width="1%" bgcolor="#FFFFCC" height="10" align="center"><font size="1" face="Verdana"><%response.write VISITE%></font></td>
</tr>
<%


Rs60.Movenext
Loop
cn60.close
Set cn60 = NOTHING
Set rs60 = Nothing
%></TD></TABLE></TD></TABLE><IMG SRC="plancia1.gif" border=0><A HREF="TUTTO.ASP" ><IMG SRC="plancia2.gif" border=0 alt="Clicca qui x aggiornare la plancia"></a><IMG SRC="plancia3.gif" border=0>


Come errore ricevo soltanto impossibile visualizzare la pagina.

Controlla che nelle impostazioni avanzate del browser non sia flaggata l'opzione "Mostra messaggi di errore HTTP brevi".

Se è flaggata ti impedisce di visualizzare l'intero messaggio di errore; in tal caso, deselezionale e, dopo, posta l'errore completo restituito dallo script.