Fejl i beregning

Her er koden:

<%
Sub AddItemToCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        dictCart(iItemID) = dictCart(iItemID) + iItemCount
    Else
        dictCart.Add iItemID, iItemCount
    End If
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        If dictCart(iItemID) <= iItemCount Then
            dictCart.Remove iItemID
        Else
            dictCart(iItemID) = dictCart(iItemID) - iItemCount
        End If
    Else
        Response.Write "Der er ingen varer i din indkøbskurv.<BR><BR>" & vbCrLf
    End If
End Sub

Sub ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping
   
%>
      <div id="SourceCode">
        <table border="0" cellpadding="2" cellspacing="0" width="600">
          <tr align="center">
            <td width="48" align="left">&nbsp;Vare</td>
            <td width="153" align="left">Beskrivelse</td>
            <td width="36" align="left">&nbsp;Antal</td>
            <td width="185" align="left">&nbsp;Ændre antal varer</td>
            <td width="58" align="left">&nbsp;Pris</td>
            <td width="96" align="left">&nbsp;&nbsp;I alt</td>
          </tr>
<%
    sTotal = 0
    For Each Key in dictCart
        aParameters = GetItemParameters(Key)
%>
          <tr>
            <td align="left" width="48">&nbsp;<%= Key %></td>
            <td align="left" width="153"><%= aParameters(1) %><br>
        </td>
            <td align="left" width="36">&nbsp;<%= dictCart(Key) %></td>
            <td align="left" width="185">&nbsp;<a href="default.asp?action=del&amp;item=<%= Key %>&amp;count=1">Fjern
              1</a>&nbsp;<a href="default.asp?action=del&amp;item=<%= Key %>&amp;count=<%= dictCart(Key) %>">Fjern
              alle</a><br>
              &nbsp;<a href="default.asp?action=add&amp;item=<%= Key %>&amp;count=1">Tilføj
              1</a>
        </td>
            <td align="left" width="58">&nbsp;Kr.<%= aParameters(2) %></td>
            <td align="left" width="96">&nbsp;&nbsp;Kr.<%= dictCart(Key) * aParameters(2) %></td>
          </tr>
<%
        sTotal = sTotal + (dictCart(Key) * aParameters(2))
    Next
   
    'Beregn fragt
    If sTotal <> 0 Then
        sShipping = 65
    Else
        sShipping = 0
    End If
    sTotal = sTotal + sShipping
%>
          <tr>
            <td colspan="5" align="Right"><b>Forsendelse:</b></td>
            <td align="left" width="96">&nbsp;&nbsp;Kr.<%= sShipping %></td>
          </tr>
          <tr>
            <td colspan="5" align="Right"><b>I alt:</b></td>
            <td align="left" width="96">&nbsp;&nbsp;Kr.<%= sTotal %></td>
          </tr>
        </table>
      </div>
<%

Du ganger jo med aParameters(2) - hvad er det?

Nvm. :)

Kan du ikke lige udskrive:

TypeName(dictCart(Key)) og TypeName(aParameters(2)) inde i løkken?

Du kan også bare prøve at rette:
<%= dictCart(Key) * aParameters(2) %>
til:
<%= CInt(dictCart(Key)) * CInt(aParameters(2)) %>

Det hjalp gevaldigt, nu mangler jeg bare at formatering er i orden, hvis jeg tilføjer en vare som koster Kr. 37,75 så står det rigtigt i pris, men i pris i alt skriver den Kr. 3775

nå jeg fandt ud af det med formatnumber :-)

Post venligst et svar og tak for hjælpen.

;) Her er et svar!

Tak for point!