Here is the shipping code on the cart_VB.asp page:
<%
function WAEC_eCart1_USPSShipping()
totalShipping = 0
if (false AND (("USPS"="USPS") AND ("" <> Session("eCart1_USPS_Quote")) AND (cDbl(Session("eCart1_USPS_Quote")) <> 0))) then
totalShipping = totalShipping + (cDbl(Session("eCart1_USPS_Quote")) + 0)'Result
end if
WAEC_eCart1_USPSShipping = WA_eCart_FormatNumber(totalShipping, eCart1.ForceDecimalsC, eCart1.DecimalPlacesC)
end function
%>
<%
function WAEC_eCart1_ShipMethod()
totalShipping = 0
if (true AND ((cStr(Session("ShipSelection")) = "12"))) then
totalShipping = totalShipping + 12.00'Result
end if
WAEC_eCart1_ShipMethod = WA_eCart_FormatNumber(totalShipping, eCart1.ForceDecimalsC, eCart1.DecimalPlacesC)
end function
%>
<%
function WAEC_eCart1_OvernightExpress()
totalShipping = 0
if (true AND ((cStr(Session("ShipSelection")) = "25"))) then
totalShipping = totalShipping + 25.00'Result
end if
WAEC_eCart1_OvernightExpress = WA_eCart_FormatNumber(totalShipping, eCart1.ForceDecimalsC, eCart1.DecimalPlacesC)
end function
%>
<%
function WAEC_eCart1_FedEx()
totalShipping = 0
if (true AND ((cStr(Session("ShipSelection")) = "38"))) then
totalShipping = totalShipping + 38.00'Result
end if
WAEC_eCart1_FedEx = WA_eCart_FormatNumber(totalShipping, eCart1.ForceDecimalsC, eCart1.DecimalPlacesC)
end function
%>