<%@ Page Language="VB" Explicit="False" %> <%@ Import Namespace="PDshop9" %> Administrator <% If closewin = "Y" Then%> <% End If%>
Shipping Rates
<%=pd.getFormError()%>
<% If ratemethod = "5" Then%>
by Order Subtotal:
From:
To:
Charge:
<% pd.OpenDataReader("SELECT * FROM shiprates WHERE ratetype=1 AND carrierid=" & id & " ORDER BY fromamt") Do While pd.ReadDataItem.read fromamt = pd.ReadData("fromamt") toamt = pd.ReadData("toamt") nrate = pd.ReadData("rate") nrate2 = pd.ReadData("rate2") qtymethod = pd.ReadData("method") If qtymethod = 0 Then If nrate2 > 0 Then showqtyrate = pd.showcurr(nrate) Else showqtyrate = pd.showcurr(nrate) End If Else If nrate2 > 0 Then showqtyrate = pd.ReadDataN("orderpct") & "%" & " + " & pd.showcurr(nrate2) Else showqtyrate = pd.ReadDataN("orderpct") & "%" End If End If %>
<%=pd.showcurr(fromamt)%>
<%=pd.showcurr(toamt)%>
<% Loop pd.CloseData() %>
<%End If%> <% If ratemethod = "6" Then%>
by Weight:
From:
To:
Charge:
<% pd.OpenDataReader("SELECT * FROM shiprates WHERE ratetype=2 AND carrierid=" & id & " ORDER BY fromamt") Do While pd.ReadDataItem.read fromamt = pd.ReadDataN("fromamt") toamt = pd.ReadDataN("toamt") fromnum = pd.ReadDataN("fromnum") tonum = pd.ReadDataN("tonum") nrate = pd.ReadData("rate") nrate2 = pd.ReadData("rate2") qtymethod = pd.ReadData("method") If qtymethod = 0 Then showqtyrate = pd.showcurr(nrate) Else showqtyrate = pd.showcurr(nrate2) & " per lb/kg" End If %>
<%=(fromnum)%>
<%=(tonum)%>
<% Loop pd.CloseData() %>
<%End If%> <% If ratemethod = "7" Then%>
by # of Items:
From:
To:
Charge:
<% pd.OpenDataReader("SELECT * FROM shiprates WHERE ratetype=3 AND carrierid=" & id & " ORDER BY fromamt") Do While pd.ReadDataItem.read fromamt = pd.ReadDataN("fromamt") toamt = pd.ReadDataN("toamt") fromnum = pd.ReadData("fromnum") tonum = pd.ReadData("tonum") nrate = pd.ReadData("rate") nrate2 = pd.ReadData("rate2") qtymethod = pd.ReadData("method") If qtymethod = 0 Then showqtyrate = pd.showcurr(nrate) Else showqtyrate = pd.showcurr(nrate2) & " per item" End If %>
<%=(fromnum)%>
<%=(tonum)%>
<% Loop pd.CloseData() %>
<%End If%>