If sats ( Fraktavgift )

[Leon Radley]

håller på med en shopping cart och undrar varför inte denna enkla If sats vill fungera så att jag kan få ut CCcart_Shipping till 0 om CCcart_SubTotal >= Session("Freightlimit") och om den inte är det så ska den sätta CCcart_Shipping till värdet freight i recordsetet.

 

<%

Dim ShippingRS__value

ShippingRS__value = "0"

If (CCcart_Weight <> "") Then

ShippingRS__value = CCcart_Weight

End If

%>

<%

Dim ShippingRS

Dim ShippingRS_numRows

 

Set ShippingRS = Server.CreateObject("ADODB.Recordset")

ShippingRS.ActiveConnection = MM_CharonCart_STRING

ShippingRS.Source = "SELECT * FROM Freight WHERE weightfrom <= " + Replace(ShippingRS__value, "'", "''") + " AND weightto > " + Replace(ShippingRS__value, "'", "''") + ""

ShippingRS.CursorType = 0

ShippingRS.CursorLocation = 2

ShippingRS.LockType = 1

ShippingRS.Open()

 

ShippingRS_numRows = 0

%>

<%

x=FormatNumber(CCcart_SubTotal, 0, -2, -2, -2)

y=FormatNumber(Session("Freightlimit"), 0, -2, -2, -2)

If x >= y Then

CCcart_Shipping = 0

Else

CCcart_Shipping=ShippingRS.Fields.Item("freight").Value

End If

%>

 

[inlägget ändrat 2002-10-31 16:53:26 av Leon Radley]

[Mean]

Du kan få lite knepiga resultat om din variabel inte är satt. Om du börjar med att testa om den är lika med "" är detta sant så sätter du den till "". Då vet du att den med säkerhet innehåller ""