Tar ikke å summerer på siste avdeling

i = 0
TotSum = 0
Do While Not adoRs.EOF
'Legger til et mellomrom mellom Avdelingene
If Kat <> adoRs("ANavn") Then
    kat = adoRs("ANavn")   

    If AvSum <> 0 Then 
        Response.Write("<tr>")
        Response.Write(" <td colspan=""5""><font face=""verdana"" size=""1"">&nbsp;<b>Totalt på kunden</b></font></td>")
        Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;<b>" & AvSum & "</b></font></td>")
        Response.Write("</tr>")
        Response.Write("<tr>")
        Response.Write(" <td colspan=""13"" align=""middle"">&nbsp;</td>")
        Response.Write("</tr>")           
    End if
    AvSum = 0
   
End if

Dim strdatoGjelderFra
strdatoGjelderFra = adoRs("GjelderFra")

strDay = Day( strdatoGjelderFra )
if len(strDay) = 1 then
    strDay = "0" & strDay
end if
               
strMonth = Month( strdatoGjelderFra )
if len(strMonth) = 1 then
    strMonth = "0" & strMonth
end if

strdatoGjelderFra = strDay & "." & strMonth & "." & Year( strdatoGjelderFra )

Dim strSiOppForsikringFra
strSiOppForsikringFra = adoRs("SiOppForsikringFra")

strDay2 = Day( strSiOppForsikringFra )
if len(strDay2) = 1 then
    strDay2 = "0" & strDay2
end if
               
strMonth2 = Month( strSiOppForsikringFra )
if len(strMonth2) = 1 then
    strMonth2 = "0" & strMonth2
end if   

strSiOppForsikringFra = strDay2 & "." & strMonth2 & "." & Year( strSiOppForsikringFra )

Response.Write("<tr>")
Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & adoRs("Anavn") & "</font></td>")
Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & adoRs("RegNr") & "</font></td>")
Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & strdatoGjelderFra & "</font></td>")

If Trim(strSiOppForsikringFra) = ".." Then
    Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;Løpende</font></td>")
Else
    Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & strSiOppForsikringFra & "</font></td>")
End if

Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & adoRs("Aktiv") & "</font></td>")

If adoRs("AntallDager") < 0 Then
    Response.Write(" <td><font face=""verdana"" size=""1"" color=""red"">&nbsp;<b>" & adoRs("AntallDager") & "</b></font></td>")
Else
    Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;" & adoRs("AntallDager") & "</font></td>")
End if
Response.Write("</tr>")

i = i + 1
TotSum = TotSum + Cint(adoRs("AntallDager"))
AvSum = AvSum + Cint(adoRs("AntallDager"))
adoRs.MoveNext
Loop

If AvSum <> 0 Then 
    Response.Write("<tr>")
    Response.Write(" <td colspan=""5""><font face=""verdana"" size=""1"">&nbsp;<b>Totalt på kunden</b></font></td>")
    Response.Write(" <td><font face=""verdana"" size=""1"">&nbsp;<b>" & AvSum & "</b></font></td>")
    Response.Write("</tr>")
    Response.Write("<tr>")
    Response.Write(" <td colspan=""13"" align=""middle"">&nbsp;</td>")
    Response.Write("</tr>")           
End if

adoRs.Close
Set adoRs = Nothing

adoCn.Close
Set adoCn = Nothing
%>
<tr>
    <td>&nbsp;</td>
    <td colspan="12">&nbsp;</td>   
</tr>
<tr>
    <td><font face="verdana" size="1">&nbsp;Total aktive dager:</font></td>
    <td colspan="12"><font face="verdana" size="1">&nbsp;<%=TotSum%></font></td>   
</tr>
<tr>
    <td><font face="verdana" size="1">&nbsp;Antall kjøretøy:</font></td>
    <td colspan="12"><font face="verdana" size="1">&nbsp;<%=i%></font></td>   
</tr>
<tr bgcolor="#CC6600">
    <td><font face="verdana" size="1">&nbsp;Skal gå på dato:</font></td>
    <td colspan="12"><font face="verdana" size="1">&nbsp;Opprettet dato</font></td>   
</tr>
</table>