<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "14, 100, 101, 102, 167, 168, 169, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 243, 244, 707, 708, 709, 710, 711, 712, 713, 724, 725, 726, 727, 780, 794, 819, 820, 821, 822, 823, 824, 842, 863, 961, 962, 1087" strMenuDisabled = "DISABLED" 'disables dropdowns for currency and language selection, these won't work properly here %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2003 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'SELECT SHIPPING DETAILS PAGE 'Because CactuShop can decide whether or not to 'charge tax and which shipping rate to apply 'depending on where the goods are being shipped 'to, it's important that we establish the 'destination and other shipping details before 'determining final price. '----------------------------------------------- '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<%If strCallMode = "enquiry" Then WriteString("PageTitle_MakeEnquiry") Else WriteString("PageTitle_CheckOut") End If %> - <% WriteString("PageTitle_Step") %> 1

This feature is not available in CactuShop Lite.

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATABASE CONNECTION '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>