Your Shopping Basket

<% dim noItems, string, ppType, test ppType = Session.Contents("pp") If Request.QueryString("submit") = "Buy Item/s" AND Session.Contents("page") = "item" Then Server.Execute("Server2/AddBasket.asp") Session.Contents("page") = "basket" Server.Execute("Server2/ViewBasket.asp") ElseIf Request.QueryString("submit") = "Update" AND Session.Contents("page") = "basket" Then Server.Execute("Server2/EditBasket.asp") Server.Execute("Server2/ViewBasket.asp") ElseIf Request.QueryString("submit") = "Checkout" AND Session.Contents("page") = "basket" Then If ppType <> "" Then Server.Execute("Server2/UpdateDB.asp")'Response.Redirect("http://www.collectablesbyangie.co.uk/Pages/Other/PayPal.asp") Else Server.Execute("Server2/ViewBasket.asp") test = true End If Else Session.Contents("page") = "basket" Server.Execute("Server2/ViewBasket.asp") End If %>

Delete

Change Qty

Description

Price

Qty

P & P

Total

Select postage and packing charges -		Current P&P setting : <% Response.Write(Session.Contents("pp")) %>
For the UK:	For Europe Airmail:	For all Other Airmail:
<% If test= true Then Response.Write("Please enter postage and packing rate.") End If %>

Categories