<%
Dim sAction
sAction = CStr(Request("action"))
Select Case sAction
%> <% Case "delivery"
thissesh = Request.Cookies("BR")
IF thissesh = "" THEN
adoConn.Close
Set adoConn = Nothing
Response.Status = "302 Object moved"
Response.Redirect "error.asp?error=1"
END IF
sqlString = "SELECT * FROM Cart WHERE c_userID = '" & thissesh & "'"
SET rsCheck = adoConn.Execute( sqlString )
IF rsCheck.EOF THEN
Response.Write ""
Response.Write "| "
Response.Write " Your basket appears to be empty.
Please use your browsers back button to continue shopping. "
Response.Write " | "
ELSE
sqlString = "SELECT * FROM Deliveryz ORDER BY d_area ASC"
SET RS = adoConn.Execute( sqlString )
%>
Delivery Details |
Please select your delivery
area |
| |
|
| |
<% RS.Close
Set RS = Nothing
END IF
rsCheck.CLose
Set rsCheck = Nothing
%> <% Case "delivery2"
deliveryarea = Request("dArea")
thissesh = Request.Cookies("BR")
sqlString = "SELECT * FROM Deliveryz WHERE d_area = '" & deliveryarea & "'"
SET rsDel = adoConn.Execute( sqlString )
' Get the shopping cart
sqlString = "SELECT c_id, c_prodID, c_pp, prod_ID, c_pq FROM Cart, Productz WHERE c_userID = '" & thissesh & "' AND c_prodID = prod_ID ORDER BY prod_name ASC"
SET RS = adoConn.Execute( sqlString )
count = 0
thistot = 0
RS.MoveFirst
Do While Not RS.EOF
subtot = FormatNumber(RS.Fields("c_pp")) * RS.Fields("c_pq")
thistot = thistot + subtot
subtot = 0
count = count + 1
RS.MoveNext
Loop
delfigz = thistot
IF delfigz <= Cdbl(pbandA) THEN
delcharge = rsDel.Fields("d_price1")
END IF
IF delfigz > Cdbl(pbandA) AND delfigz <= Cdbl(pbandB) THEN
delcharge = rsDel.Fields("d_price2")
END IF
IF delfigz > Cdbl(pbandB) THEN
delcharge = rsDel.Fields("d_price3")
END IF
rsDel.Close
Set rsDel = Nothing
RS.Close
Set RS = Nothing
IF count <1 THEN
response.write ""
response.write "Your basket is currently empty! | "
ELSE
%>
<%
END IF
%> <%
Case "checkout1"
Dim Sdatum3, thissesh, count, thistot, delcharge, thiscalc
Sdatum3 = NOW
delcharge = Request("delcharge")
thistot = Request("thistot")
specialdelivery = Request("specialdelivery")
deliveryarea = Request("deliveryarea")
specialdelivery2 = Request("specialdelivery2")
IF specialdelivery = "yes" THEN
delcharge = spd
END IF
IF specialdelivery2 = "yes" THEN
delcharge = sfd
END IF
%>
Payment
We are pleased to accept credit and debit card payments,
Paypal, and cheque's or postal orders, made payable
to 'Absolutely Charming'. You can choose your preferred
method of payment below..
Delivery Details
Your order will be sent to the following address. Please
enter your address and delivery information and click
Confirm Order to continue.
Easy Payment Option
Is your order valued at £100 or more, and would
you like to spread the cost of your payment?
If you can place your order at least 10 weeks prior
to your event, your payment can be spread over two easy
instalments.
For example, on placing your order you pay 25% of
the total value. Please note this is a non returnable
deposit and excludes delivery costs.
We will then invoice you 4 weeks prior to the event
for the remaining payment.
Your order will be despatched shortly after payment
is received.
Then simply select the 'Cheque by post'
or 'Fax Order, cheque by post' option from
the Payment Method below'.
<% Case Else ' menu
Response.Status = "302 Object moved"
Response.Redirect "checkout.asp?action=delivery"
%> <%
End Select
%> |
