Io avevo pensato ad una cosa del genere ma non riesco a farla funzionare, ci daresti un occhio:
codice:
Set objRsDett = Server.CreateObject("ADODB.Recordset")
	'strSqlDett = "SELECT * FROM pagine WHERE nomePagina='" & strNomePagina & "'"
	strSqlDett = "SELECT Count([data]) AS Totale, [data] FROM pagine WHERE nomepagina='" & strNomePagina & "' GROUP BY [data]"
	objRsDett.Open strSqlDett, objConn
							
	Response.Write("<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=1>")
	i=1
	Do while not objRsDett.EOF
		dataTrovata(i) = (objRsDett("data") & "," & objRsDett("totale"))
		'Response.Write(dataTrovata(i) & "
")
		objRsDett.MoveNext
	Loop 
										
	for i = 1 to 31
		If Len(i)=1 Then
		s= "0" & i
		else
		s=i
		end if
		strDataCalendario = s & "/10/2004"
		Response.Write(mid(dataTrovata(i),1,10) & "

")
		For n = 1 to UBound(dataTrovata)
			if mid(dataTrovata(n),1,10) = strDataCalendario Then
			Response.Write("<tr><td>" & dataTrovata(n) & "</td></tr>")
			else
			Response.Write("<tr><td>" & strDataCalendario & ",0</td></tr>")
			end if
		next
	next