Esposrtazione Listino +set di spedizione

Buongiorno,
dal momento che crediamo di aver capito che non esiste un sistema, per esportare ilcosto di spedizione calcolato con un "set di spedizione" relativo ad un singolo articolo su un relativo paese, abbiamo una creato una script.

La script ci somma come vedrete il "listino web" di un singolo articolo con un relativo costo di spedizione.
La parte importante è quella di scegliere il peso reale o il peso volumetrico come dato per il calcolo del prezzo dei relativi corrieri.

L'azienda che ci segue la programmazione sostiene che ci sia un problema all'interno di Ready. Vi allego la scrittura di questa script, che mi da come risultato sempre il peso volumetrico.

******************************************************
Option Explicit

Dim Totale
Dim Peso

if Product.CustomField(400) > (Product.CustomField(405)*167) then
peso =(Product.CustomField(405)*167)
else
peso = Product.CustomField(400)
end if
if Peso > 1 and Peso < 3 then
Totale = Product.CustomField(560)+ 7.60
end if
if Peso > 3.01 and Peso < 5 then
Totale = Product.CustomField(560)+ 8.50
end if
if Peso > 5.01 and Peso < 10 then
Totale = Product.CustomField(560)+ 9.90
end if
if Peso > 10.01 and Peso < 20 then
Totale = Product.CustomField(560)+ 11.40
end if
if Peso > 20.01 and Peso < 30 then
Totale = Product.CustomField(560)+ 12.50
end if
if Peso > 30.01 and Peso < 40 then
Totale = Product.CustomField(560)+ 12.50
end if
if Peso > 40.01 and Peso < 50 then
Totale = Product.CustomField(560)+ 14.80
end if
if Peso > 50.01 and Peso < 70 then
Totale = Product.CustomField(560)+ 16.50
end if
if Peso > 70.01 and Peso < 100 then
Totale = Product.CustomField(560)+ 28
end if
if Peso > 150.01 and Peso < 250 then
Totale = Product.CustomField(560)+ 38
end if
if Peso > 250.01 and Peso < 500 then
Totale = Product.CustomField(560)+ 63
end if
if Peso > 500.01 then
Totale = Product.CustomField(560)+ 125
end if
Response.write(Totale)

************************************************

attendo un chiarimento vi ringrazio