IF THEN ELSE [era: Se potete ..........vi chiedo una mano.....]

[webpar]

Salve a tutti Voi vorrei un piccolo aiuto vi spiego:
- tabella access comprende
a) id prodotto
b) nome del prodotto
c) descirizione del prodotto
d) immagine del prodotto
e) prezzo del prodotto
f) secondo prezzo del prodotto (intWt)

Adesso il mio problema è questo.
Ho due prezzi perchè se la quantità ordinata va da 1-20 allora è il primo prezzo nel caso in cui la quantità ordinata va 21-40 il prezzo + il secondo.
Per adesso in asp ho scritto in questo modo:


rsProdInfo.Find "productID = " & rsProd("productID")
intProdID = rsProd("productID")
strProdName = rsProdInfo("productName")
intPrice = formatNumber(rsProdInfo("productPrice"),2)
intWt = formatNumber(rsProdInfo("productWt"), 2)
intQuant = rsProd("quantity")
intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intExtPrice

Come andare a scrivere il fatto che se è > o < devo usare questo o quel prezzo da moltiplicare per la quantità?
si puo fare?

Grazie

[diegoctn]

Puoi fare un if all'inizio:

If intQuant > 20 then

fai il giro che vuoi
else

fai l'altro giro

end if.

[webpar]

Ciao, grazie per avermi risposto!
Quello che dici tu si puo andare ma nonc capisco ancora come andare ad agire direttamente sul codice in quanto nel caso in cui è > 20 deve usare per il totale un prezzo e nel caso in cui sia < un'altro ancora..

Scusami se ti chiedo tanto!

[Roby_72]

rsProdInfo.Find "productID = " & rsProd("productID") 
intProdID = rsProd("productID") 
strProdName = rsProdInfo("productName") 
intPrice = formatNumber(rsProdInfo("productPrice"),2) 
intWt = formatNumber(rsProdInfo("productWt"), 2) 
intQuant = rsProd("quantity") 
if intQuant > 20 then
intExtPrice = formatNumber((intPrice * intQuant), 2) 
else
intExtPrice = 0
end if

intTotal = intPrice + intExtPrice

PS: dai dei titoli decenti alle discussioni...


Roby

[webpar]

Grazie!
Scusami per il titolo!

[webpar]

Scusatemi,
Roby possibile che non va il tuo codice? ho provato ma mi da errore.......
Cavolo!

[webpar]

ecco l'errore!

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rsProd'

/LISTINO/reviewOrder.asp, line 144

[Roby_72]

Non è il mio. E' il tuo.
rsProd l'hai scritto tu...

Roby

[webpar]

Roby era un modo di dire il tuo! ma ti arrabi subito?
Scusami!
grazie

[Roby_72]

Non mi arrabbio, volevo solo dire che l'errore è a prescindere dalle modifiche fatte da me.
Una volta hai scritto rsProdInfo un'altra rsProd

Roby