Prova a vedere così :

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>")
redim dataTrovata(objRsDett.Recordcount)
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,2)
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