Tar ikke å summerer på siste avdeling
Hva kan være feil her? den summerer ikke på den siste avdelingen men den tar med alle de andre!?....
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""> <b>Totalt på kunden</b></font></td>")
Response.Write(" <td><font face=""verdana"" size=""1""> <b>" & AvSum & "</b></font></td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write(" <td colspan=""13"" align=""middle""> </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""> " & adoRs("Anavn") & "</font></td>")
Response.Write(" <td><font face=""verdana"" size=""1""> " & adoRs("RegNr") & "</font></td>")
Response.Write(" <td><font face=""verdana"" size=""1""> " & strdatoGjelderFra & "</font></td>")
If Trim(strSiOppForsikringFra) = ".." Then
Response.Write(" <td><font face=""verdana"" size=""1""> Løpende</font></td>")
Else
Response.Write(" <td><font face=""verdana"" size=""1""> " & strSiOppForsikringFra & "</font></td>")
End if
Response.Write(" <td><font face=""verdana"" size=""1""> " & adoRs("Aktiv") & "</font></td>")
If adoRs("AntallDager") < 0 Then
Response.Write(" <td><font face=""verdana"" size=""1"" color=""red""> <b>" & adoRs("AntallDager") & "</b></font></td>")
Else
Response.Write(" <td><font face=""verdana"" size=""1""> " & 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
adoRs.Close
Set adoRs = Nothing
adoCn.Close
Set adoCn = Nothing
%>
<tr>
<td> </td>
<td colspan="12"> </td>
</tr>
<tr>
<td><font face="verdana" size="1"> Total aktive dager:</font></td>
<td colspan="12"><font face="verdana" size="1"> <%=TotSum%></font></td>
</tr>
<tr>
<td><font face="verdana" size="1"> Antall kjøretøy:</font></td>
<td colspan="12"><font face="verdana" size="1"> <%=i%></font></td>
</tr>
<tr bgcolor="#CC6600">
<td><font face="verdana" size="1"> Skal gå på dato:</font></td>
<td colspan="12"><font face="verdana" size="1"> Opprettet dato</font></td>
</tr>
</table>
