Mängd Rabatt?!

[Leon Radley]

Jag håller på att utveckla en ShoppingCart och har problem med mängdrabbat... nedann så är ett skript som förklarar ungefär hur jag vill att det ska fungera...

 

Do until ProductsRS.EOF

If CCcart(CC_PRODUCTID,i) = ProductsRS.Fields.Item("ProdID").Value Then

'Checks To see if price is the originalprice

If ProductsRS.Fields.Item("ProdQuantity").Value = 0 Then

ProductsRS.MoveNext()

Else

If CCcart(CC_PRODUCTID,i) = ProductsRS.Fields.Item("ProdID").Value Then

If Quantity >= ProductsRS.Fields.Item("ProdQuantity").Value Then

CCcart(CC_PRICE,i) = ProductsRS.Fields.Item("ProdPrice").Value

CCcart(CC_QUANTITY,i) = Quantity

End If

End If

End If

ProductsRS.MoveNext

End If

Loop

 

Jag vill helt enkelt loopa igenom Products databasen och alla hitta alla ProdQuantity celler som är större än 0 och fråga det mot en variabel och se om dom är större än den variabeln... är det så så sätter den variabeln pris till att vara ProdPrice på samma rad i databasen...