Sum af data

Det er lidt svært at forklare men jeg er ved at lave en eshop hvor man kan bestille poser krydderier. Bestiller man <10 poser  er stk prisen 12 kr. bestiller man >10 poser er stykprisen 10 kr. Det fungere også fint, men det er også muligt at bestille andre ting og her er mit problem at antallet af disse varer også tælles med  når prisen på krydderiposerne udregnes, og det skal de ikke.

Koden ser således ud men der er del variabler så det er nok ikke så overskueligt.

    For i = 1 to scartItem
            isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))
            isubquantity = isubquantity + arrCart(cQuantity,i)
            if isubquantity < 10 then rabat = 0 else rabat = 2 end if
            strHTML = strHTML & \"<tr bgColor=navajowhite>\"
            strHTML = strHTML & \"<td><input

name=selected\"& Cstr(i)&\" type=checkbox value=\"&q&\"yes\"&q&\" checked>\" & arrCart(cProductCode,i) &\"</td>\"
            strHTML = strHTML & \"<td>\" & arrCart(cProductname,i) & \"</td>\"
            strHTML = strHTML & \"<td><input type=\"&q&\"text\"&q&\" name=\"&q & \"quantity\" & CStr(i) & q &\" value=\"&q & arrCart(cQuantity,i) &q&\" size=3></td>\"
            strHTML = strHTML & \"<td>\" & FormatCurrency(arrCart(cUnitPrice,i)- rabat,2) & \"</td>\"
            strHTML = strHTML & \"<td>\" & FormatCurrency((arrCart(cUnitPrice,i)-rabat) * arrCart(cQuantity,i),2) & \"</td>\"
            strHTML = strHTML & \"</tr>\"

                    Next


Det er variablen \" isubquantity\" jeg skal have regnet ud på en anden måde eller have fratrukket antal varer der ikke er krydderier.

Alle varerne er i databasen delt op i kategorier og varer der ikke er krydderier er i kategorien \"diverse\"

Jeg håber der nogen der kan/vil hjælpe da min system ellers vil være ubrugeligt.

Vi starter med 100 point, men ved hurtig svar kan vi evt. forhøje.