<% Dim strMsg if request("action") = "process" then 'Check and save our submitted data if request("shipping_method") <> "" then if Len(request("order_comments")) > 250 then strMsg = strMsg & "Please keep your comments to under 250 Characters" else fUpdateOrderShipping Session("CustomerID"), request("shipping_method"), request("order_comments") response.Redirect("checkout_payment.asp?sid=" & strSessionID) end if else strMsg = strMsg & "Please specify your preferred Shipping Method" end if end if 'Do we have any items in our basket? Dim ShoppingCartCheckRS 'Recordset Object Set ShoppingCartCheckRS = fGetShoppingCartContents with ShoppingCartCheckRS if .eof = false then 'How much do we have currently have? while not .eof ShoppingCartSubTotal = ShoppingCartSubTotal + Round( .fields("scratch_basket_quantity").value * fCalculateShoppingCartItem(.fields("fkproducts").value, .fields("products_options_values").value),2) .movenext Wend else 'No Items response.Redirect(fGenerateLink("shopping_cart.asp")) end if end with Set ShoppingCartCheckRS = Nothing fStartCheckoutProcess Session("CustomerID") 'Is it Electronic Delivery Only? If fElectronicOnlyShipping(Session("CustomerID")) = True then fUpdateOrderShipping Session("CustomerID"), 0, "" response.Redirect("checkout_payment.asp?sid=" & strSessionID) End If %> <% strPageTitle = Application("STORE_NAME") & " Checkout" %> <% strPageKeywords = Application("STORE_NAME")%>

<% Dim checkout_AddressPK Dim checkout_Address1 Dim checkout_Address2 Dim checkout_Address3 Dim checkout_Address4 Dim checkout_Address5 Dim checkout_Address6 sGetCustomerShippingAddress Session("CustomerID"), checkout_AddressPK, checkout_Address1, checkout_Address2, checkout_Address3, checkout_Address4, checkout_Address5, checkout_Address6 %> <% if strMsg <> "" then %> <% end if %> <% Dim strComments strComments = fRetrieveOrderComments(Session("CustomerID")) if strComments <> "" then else strComments = request("order_comments") end if %>

<% if Application("TABLE_BACKGROUND_DELIVERY") <> "" then %> <% else %> <% end if %>

Delivery Information

" border="0" alt="Delivery Information" title=" Delivery Information ">

<%= strMsg %>

Shipping Address

Please choose from your address book where
you would like the items to be delivered to.

">

SHIPPING ADDRESS »

<% if checkout_Address1 <> "" then response.Write(checkout_Address1 & "
")%> <% if checkout_Address2 <> "" then response.Write(checkout_Address2 & "
")%> <% if checkout_Address3 <> "" then response.Write(checkout_Address3 & "
")%> <% if checkout_Address4 <> "" then response.Write(checkout_Address4 & "
")%> <% if checkout_Address5 <> "" then response.Write(checkout_Address5 & "
")%> <% if checkout_Address6 <> "" then response.Write(checkout_Address6 & "
")%>

Shipping Method

<% Dim fGetShippingMethodsRS Dim mnyShippingCost, bolDisplay Set fGetShippingMethodsRS = fGetShippingMethods(Session("CustomerID")) With fGetShippingMethodsRS if .eof = false then while not .eof bolDisplay = True if CDBL(.fields("hidebefore").value) <> 0 then if ShoppingCartSubTotal < (CDBL(.fields("hidebefore").value) * curCurrencyRate) then bolDisplay = False end if end if if CDBL(.fields("hideafter").value) <> 0 then if ShoppingCartSubTotal > (CDBL(.fields("hideafter").value) * curCurrencyRate) then bolDisplay = False end if end if if bolDisplay = True then mnyShippingCost = fCalculatePostage(Session("CustomerID"), .fields("pk").value) %> <% end if 'if bolDisplay = True then .movenext wend end if End With set fGetShippingMethodsRS = Nothing %>

Please select the preferred shipping method to use on this order.			Please Select
<%= .fields("short_description").value %> » <%= strCurrencySymbol %><%= mnyShippingCost %>			" name="shipping_method"<% if .fields("pk").value = .fields("fkshipping").value then response.write " checked" %>>
<%= .fields("long_description").value %>

Add Comments About Your Order

Continue Checkout Procedure
to select the preferred payment method.

NAVIGATION BAR

DELIVERY INFORMATION

PAYMENT INFORMATION

CONFIRMATION

FINISHED