Summere på avdeling.

Kan du bruge dette. Jeg har skrevet ' NY ved de nye linier.

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="496">
                <%
                TotSum = 0
                AvSum = 0 ' NY

                Do While Not adoRs.EOF               
                strPremie = adoRs("Premie")
                If Kat <> adoRs("BAvdeling") Then
                kat = adoRs("BAvdeling")   
                ' NY DEL START
                if AvSum <> 0 then
                %>
              <tr>
                <td bgcolor="#000066" align="center" width="276" colspan="4">
                <p align="left"><b>
                <font size="2" face="Arial" color="#FFFFFF">Sum:
                <% =CStr(AvSum) %></font></b></td>
                <td bgcolor="#000066" align="center" width="85">
                &nbsp;</td>
                <td bgcolor="#000066" align="center" width="65">
                &nbsp;</td>
                <td bgcolor="#000066" align="center" width="70">
                &nbsp;</td>
              </tr>
                <%
                end if
                AvSum = adoRS("Premie") ' Start ny avsum
                ' NY DEL SLUT
                %>
              <tr>
                <td bgcolor="#000066" align="center" width="276" colspan="4">
                <p align="left"><b>
                <font size="2" face="Arial" color="#FFFFFF">
                <% =adoRs("BAvdeling") %></font></b></td>
                <td bgcolor="#000066" align="center" width="85">
                &nbsp;</td>
                <td bgcolor="#000066" align="center" width="65">
                &nbsp;</td>
                <td bgcolor="#000066" align="center" width="70">
                &nbsp;</td>
              </tr>
              <tr>
                <td bgcolor="#F5E6CB" align="center" width="70">
                <b>
                <font size="2" face="Arial">
                Reg.nr.</font><font face="Arial">&nbsp;</font></b></td>
                <td bgcolor="#F5E6CB" align="center" width="136" colspan="2">
                <b>
                <font size="2" face="Arial">
                Fabrikat</font><font face="Arial">&nbsp;</font></b></td>
                <td bgcolor="#F5E6CB" align="center" width="70">
                <b>
                <font size="2" face="Arial">
                Type</font><font face="Arial">&nbsp;</font></b></td>
                <td bgcolor="#F5E6CB" align="center" width="85">
                <b>
                <font size="2" face="Arial">
                Dekning</font><font face="Arial">&nbsp;</font></b></td>
                <td bgcolor="#F5E6CB" align="center" width="65">
                <b>
                <font size="2" face="Arial">
                Premie</font><font face="Arial">&nbsp;</font></b></td>
                <td bgcolor="#F5E6CB" align="center" width="70">
                <b>
                <font face="Arial" size="2">
                Info/adm.</font><font face="Arial">&nbsp;</font></b></td>
              </tr>             
              <%
              end if
              %>
              <tr>
                <td align="center" width="70" colspan="2">
                <font face="Arial" size="2"><%=adoRs("RegNr")%></font></td>
                <td align="left" width="136">
                <font face="Arial" size="2"><%=adoRs("Fabrikat")%></font></td>
                <td align="center" width="70">
                <font face="Arial" size="2"><%=adoRs("Type")%></font></td>
                <td align="center" width="85">
                <font size="2" face="Arial"><%=adoRs("Dekning")%></font></td>
                <td align="center" width="65">
                <font size="2" face="Arial"><%=adoRs("Premie")%></font></td>
                <td align="center" width="70">
                <a href="java script:displayWindow('info_bil-ADM.asp?BilID=<%=adoRs("Bilid")%>',410,380)">
                <img border="0" src="img/info.gif" hspace="2" width="19" height="19" vspace="2" alt="Klikk for mer info (eget vindu)"></a><a href="ks-vbred.asp?BilID=<%=adoRs("Bilid")%>"><img border="0" src="img/rediger.gif" hspace="2" width="17" height="19" vspace="2" alt="Klikk her for å redigere kjøretøyet"></a><a href="SletteBilADM.asp?BilID=<%=adoRs("BilId")%>&amp;RegNr=<%=adoRs("RegNr")%>&amp;Bil=<%=adoRs("Fabrikat")%>"><img border="0" src="img/fjern.gif" hspace="2" width="19" height="19" vspace="2" alt="Klikk her for å slette kjøretøyet"></a></td>
              </tr>
              <%
              TotSum = TotSum + adoRS("Premie")
              AvSum = AvSum + adoRS("Premie") ' NY
              adoRs.MoveNext
              Loop
              %>           
              <tr>
                <td align="center" width="206" colspan="3">
                <p align="left"><b>
                <font size="2" face="Arial">Totalsum premie på alle</font></b></td>
                <td align="center" width="70">
                &nbsp;</td>
                <td align="center" width="85">
                &nbsp;</td>
                <td align="center" width="65">
                <font size="2" face="Arial"><b><%=totSum%></b></font></td>
                <td align="center" width="70">
                &nbsp;</td>
              </tr>             
              </table>

Den legger summen etter hverandre. feks 10+10+10 blir 101010 ikke 30.

//COLTAU

Den legger også til første tallet 2 ganger.
premie 1 = 0
Premie 2 = 100
Premie 3 = 500
AvSum blir da 00100500

AvSum burde bli 100500 eller retter sagt 600.

Så skal denne linie ændres:
    AvSum = adoRS("Premie") ' Start ny avsum
til:
    AvSum = 0 ' Start ny avsum

og denne:
  AvSum = AvSum + adoRS("Premie") ' NY
til:
  AvSum = CInt(AvSum) + CInt(adoRS("Premie")) ' NY
           
Håber det kan løse problemet.

Det virker hvis jeg ikke bruker Cint. Hvis jeg bruker Cint får jeg feilmelding - Overflow: 'CInt'

Det betyder at adoRS("Premie")) indeholder Decimal-tal. Så kan CInt ikke bruges. Jeg troede at den indeholdt hele tal.

Pointene er dine. Takk for hjelpen.