I found the code below on the MS site, it fixes the issue where the Grand totals are blank in a data access page; and it works in the Northwind example but not in my page;

---------------------------------------------------------------------------------------
<SCRIPT language=vbscript for=MSODSC event=DataPageComplete(obj)>
Const FooterLevel = 3

Dim curGrandTot
Dim sectionFooter

'[ProductSales Grand Total Sum] is the name of a text box that
'should already reside in the Navigation: GroupLevel0
'section of this data access page.
If [Comps Grand Total Sum].value = "" Then
Set sectionFooter = obj.DataPage.FirstSection

While Not (sectionFooter Is Nothing)
'Test to make sure that focus is in
'the Footer: GroupLevel0 section.
If sectionFooter.type = FooterLevel Then
'The following line accumulates each of the totals per group
'to create a grand total.
curGrandTot = curGrandTot + CCur(sectionFooter.HTMLContainer.children("Sum Of Comps").value)
End If
Set sectionFooter = sectionFooter.NextSection
Wend

'Fill the control with the frand total.
[Comps Grand Total Sum].value = curGrandTot
End If

</SCRIPT>



But when I try using it in my page I get the following error:

"Line: 218
Error: Object required: 'sectionFooter.HTMLContainer.children(...)'"

Please Help!