Summere pr avdeling/bilde

Jeg skal summerer etter hvor mange poster det er pr bilde. Så den kan skrive ut rowspan=<%=x%> Nå skriver x kun ut hvor mange poster det totalt er ikke pr bilde.


<%
Session("TotalSum") = 0
For i=1 To Session("varer")
  Session("TotalSum") = Session("TotalSum") _
    + Session("BPris" & i) * Session("BAntall" & i)
Next

Session("TotalAntall") = 0
For i=1 To Session("varer")
  Session("TotalAntall") = Session("TotalAntall") _
    + Session("BAntall" & i)
Next
%>
<table width="763" border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td width="160" class="tekst"><b>Bilde</b></td>
    <td width="403"class="tekst"><b>Skal brukes til</b></td>
    <td width="50" class="tekst"><b>Pris</b></td>
    <td width="50" class="tekst"><b>Antall</b></td>
    <td width="50" class="tekst"><b>Total</b></td>
    <td width="50" class="tekst">&nbsp;</td>
  </tr>
  <%
  x = 1
  For i=1 To Session("varer")
  %>
  <tr>
    <td width="160" rowspan="<%=x%>">
    <%
    If cat <> Session("BID" & i) Then
    cat = Session("BID" & i)
    %>
    <img src="vis_thumbnail.asp?BID=<% =Session("BID" & i) %>" width="150" class="ramme" border="0">
    <%
    Else
    Response.Write "&nbsp;"
    End if
    %>
    </td>
        <form action="butikk_slettfrakurv.asp" id=form1 name=form1>
        <td class="tekst" align="left" valign="bottom"><% =Session("BBrukesTil" & i) %></td>
        <td class="tekst"align="right" valign="bottom"><% =Session("BPris" & i) %>,-&nbsp;</td>
        <td class="tekst" align="right" valign="bottom"><% =Session("BAntall" & i) %>.&nbsp;</td>
        <td class="tekst" align="right" valign="bottom"><% =Session("BPris" & i) * Session("BAntall" & i)%>,-&nbsp;</td>
        <td align="right"  valign="bottom"><input type=hidden name=line value="<% =i %>"><input type="submit" value="Slett" id="btnLogginn" name="btnLogginn" style="FONT-FAMILY: Verdana; Background-color:#EFEDDE; border-width:1; border-style:solid;FONT-SIZE: 8pt;">&nbsp;</td>
        </form>
    </td>
  </tr>
  <%
  x = x + 1
  Next
  %> 
  <tr>
    <td colspan="6" valign="top" align="middle" class="tekst">
        <a href="butikk_slettkurv.asp">Tøm handlekurven</a> |
        Du har handlet for: <b><font color="red"><%=Session("TotalSum")%></Font></b>,- |
        Det er <b><font color="red"><%=Session("TotalAntall")%></Font></b> stk. varer i kurven. |
        <a href="butikk_kunde.asp">Gå til kassen</a>   
    </td>
  </tr>
  <tr>
    <td colspan="6" valign="top" align="middle" class="tekst">
        [ <b><a href="butikk_produkter.asp">Gå tilbake til litteratur oversikt</a></b> ]
    </td>
  </tr>
</table>