problem med avrundning

[Leon Radley]

Om jag lägger till nått i shoppingcarten som inte har decimal pris tex. 70,90 så får jag ut CCcart_Shipping till rätt, men så fort det kommer en decimal i bilden så slutar det fungera... jag har försökt runda av med FormatNumber, men det vill ju inte fungera..

 

 

<%

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

%>

<%

Session("Freightlimit") = 1500

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

%>

[Mean]

Har du övervägt att ändra datatypen i din databas till en typ som klarar av decimaltal

 

[Leon Radley]

Det är ju inte i databasen som det är fel.. där är när jag försöker köra en >= fråga på en variabel och en session

 

<%

Session("Freightlimit") = 1500

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

%>

 

 

[Sasja]

Istället för med komma (,) så använd punkt för att markera kronor och ören. Det tror jag gör susen!

 

Använd en replace-grej just bara när du kontrollerar just dessa grejer.

 

Tror detta ska stämma!?

[inlägget ändrat 2002-11-03 22:23:18 av Sasja]