Delivery Charges

<% Dim sAction sAction = CStr(Request("action")) Select Case sAction %> <% Case "selectcharges" sqlString = "SELECT * FROM Deliveryz2 ORDER BY dname ASC" SET RS = adoConn.Execute( sqlString ) %>

Please select your delivery area

<% RS.Close Set RS = Nothing %> <% Case "charges" deliveryarea = Request("dArea") sqlString = "SELECT * FROM Deliveryz2 WHERE dname = '" & deliveryarea & "'" SET rsDel = adoConn.Execute( sqlString ) %>

Delivery Charges for <%= rsDel.Fields("dname") %>

Orders up to <%= rsDel.Fields("wt1") %>kg	£<%= FormatNumber(rsDel.Fields("p1")) %>
Orders from <%= rsDel.Fields("wt1") %>kg to <%= rsDel.Fields("wt2") %>kg	£<%= FormatNumber(rsDel.Fields("p2")) %>
Orders from <%= rsDel.Fields("wt2") %>kg to <%= rsDel.Fields("wt2") %>kg	£<%= FormatNumber(rsDel.Fields("p3")) %>
Orders from <%= rsDel.Fields("wt3") %>kg to <%= rsDel.Fields("wt4") %>kg	£<%= FormatNumber(rsDel.Fields("p4")) %>
Orders from <%= rsDel.Fields("wt4") %>kg to <%= rsDel.Fields("wt5") %>kg	£<%= FormatNumber(rsDel.Fields("p5")) %>
Orders from <%= rsDel.Fields("wt5") %>kg to <%= rsDel.Fields("wt6") %>kg	£<%= FormatNumber(rsDel.Fields("p6")) %>
Orders from <%= rsDel.Fields("wt6") %>kg to <%= rsDel.Fields("wt7") %>kg	£<%= FormatNumber(rsDel.Fields("p7")) %>
Orders from <%= rsDel.Fields("wt7") %>kg to <%= rsDel.Fields("wt8") %>kg	£<%= FormatNumber(rsDel.Fields("p8")) %>
Orders from <%= rsDel.Fields("wt8") %>kg to <%= rsDel.Fields("wt9") %>kg	£<%= FormatNumber(rsDel.Fields("p9")) %>
Orders from <%= rsDel.Fields("wt9") %>kg to <%= rsDel.Fields("wt10") %>kg	£<%= FormatNumber(rsDel.Fields("p10")) %>
Orders from <%= rsDel.Fields("wt10") %>kg to <%= rsDel.Fields("wt11") %>kg	£<%= FormatNumber(rsDel.Fields("p11")) %>
Orders from <%= rsDel.Fields("wt11") %>kg to <%= rsDel.Fields("wt12") %>kg	£<%= FormatNumber(rsDel.Fields("p12")) %>
Orders from <%= rsDel.Fields("wt12") %>kg to <%= rsDel.Fields("wt13") %>kg	£<%= FormatNumber(rsDel.Fields("p13")) %>
Orders from <%= rsDel.Fields("wt13") %>kg to <%= rsDel.Fields("wt14") %>kg	£<%= FormatNumber(rsDel.Fields("p14")) %>
Orders from <%= rsDel.Fields("wt14") %>kg to <%= rsDel.Fields("wt15") %>kg	£<%= FormatNumber(rsDel.Fields("p15")) %>
Orders from <%= rsDel.Fields("wt15") %>kg to <%= rsDel.Fields("wt16") %>kg	£<%= FormatNumber(rsDel.Fields("p16")) %>
Orders from <%= rsDel.Fields("wt16") %>kg to <%= rsDel.Fields("wt17") %>kg	£<%= FormatNumber(rsDel.Fields("p17")) %>
Orders over <%= rsDel.Fields("wt17") %>kg	£<%= FormatNumber(rsDel.Fields("p18")) %>

<% rsDel.Close Set rsDel = Nothing %> <% Case Else ' menu adoConn.Close Set adoConn = Nothing Response.Status = "302 Object moved" Response.Redirect "delivery.asp?action=selectcharges" %> <% End Select %>

<%=bodytitle%>

<%=bodytext%>

<% Set rsFind = adoConn.Execute("SELECT * FROM KeyPage WHERE k_ref ='8'") bodytext = rsFind.Fields("k_text") bodytitle = rsFind.Fields("k_title") IF rsFind.Fields("k_pic1") <> "" THEN mypicstring = " " & rsFind.Fields("k_pic1alt") & "

" bodytext = Replace(bodytext,"XxXpic1XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic1XxX",mypicstring) END IF IF rsFind.Fields("k_pic2") <> "" THEN mypicstring = " " & rsFind.Fields("k_pic2alt") & "

" bodytext = Replace(bodytext,"XxXpic2XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic2XxX",mypicstring) END IF IF rsFind.Fields("k_pic3") <> "" THEN mypicstring = " " & rsFind.Fields("k_pic3alt") & "

" bodytext = Replace(bodytext,"XxXpic3XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic3XxX",mypicstring) END IF IF rsFind.Fields("k_pic4") <> "" THEN mypicstring = " " & rsFind.Fields("k_pic4alt") & "

" bodytext = Replace(bodytext,"XxXpic4XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic4XxX",mypicstring) END IF rsFind.Close Set rsFind = Nothing %>

<%=bodytitle%>

<%=bodytext%>

<% ' menu for all but the department-store & display pages. sqlString = "SELECT * FROM eCats ORDER BY ecat_do ASC" SET rsMenu = adoConn.Execute( sqlString ) Do While NOT rsMenu.EOF Response.Write vbcrlf & "" & vbcrlf & "" & vbcrlf & "" rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>

Home

Quick Search

" & rsMenu.Fields("ecat_name") & "

Quick Links

Products On Special Offer

Advanced Product Search