<% '************************************************************************* ' ASP Scripting: ' Filename: checkout_get_shipping_info.asp ' Written by: Wilbert Madarang ' Date: May 10, 2003 '************************************************************************* ' Description: '************************************************************************* ' Revision History: '************************************************************************* MINIMUM_DIGITS_VISA_CARD = 12 NUMBER_OF_MONTHS_PER_YEAR = 12 CREDIT_CARD_MAXIMUM_YEARS_FOR_EXPIRY = 4 %>

1. Shipping Info      2. Order Review      3. Order Confirmation <% Call PrintShippingInfoForm %>

<% '************************************************************ ' Function: PrintShippingInfoForm ' Description: Prints the Shipping Info Form ' Date: May 10, 2003 ' Written By: Wilbert Madarang '************************************************************ Function PrintShippingInfoForm Dim strExpiryMonth 'Form Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "Please enter the shipping address." & vbCrLf 'Country Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Address Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'City Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'State (Province) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Zip Code (Postal Code) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Credit Card Instruction Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Credit Card Type Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf '12-digit number Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Expiry Date Response.Write "" & vbCrLf 'Expiry Date Month Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Submit & Reset Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Form Response.Write "

Country:	" & vbCrLf Response.Write "" & vbCrLf If ( Session("MyCountry") = "us" ) Then Response.Write "US" & vbCrLf Response.Write "Canada" & vbCrLf Else Response.Write "US" & vbCrLf Response.Write "Canada" & vbCrLf End If Response.Write "" & vbCrLf Response.Write "
Street Address:
City:
State (Province):	" & vbCrLf 'Options for Provinces handled through js/select_province.js Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
Zip Code (Postal Code):	(No spaces.)
" & vbCrLf Response.Write "Please enter the first 12 digits of your credit card number. " & _ "For your security, once we receive your order, we will email you for a confirmation " & _ "when you will be asked to provide the last 4 digits of your credit card number. " Response.Write "
Credit Card Type:	" & vbCrLf Response.Write "Visa" & vbCrLf '*********************************************************** ' Modified by WM, September 28, 2003 '*********************************************************** ' Change Requested by Ada Yiu - August 29 2003 ' "Credit Card type - we are only accepting VISA for now. ' Commented out non-VISA credit card types. '*********************************************************** 'Response.Write "Mastercard" & vbCrLf 'Response.Write "American Express" & vbCrLf '*********************************************************** ' End of Change by WM, September 28, 2003 '*********************************************************** Response.Write "" & vbCrLf Response.Write "
First 12 digits of your credit card number:	(No spaces.)
Expiry Date:	" & vbCrLf Response.Write "" & vbCrLf For i = 1 to NUMBER_OF_MONTHS_PER_YEAR If ( i < 10) Then strExpiryMonth = "0" & CStr(i) Else strExpiryMonth = CStr(i) End If Response.Write "" & strExpiryMonth & "" & vbCrLf Next Response.Write "" & vbCrLf Response.Write "/" & vbCrLf 'Expiry Date Year nExpiryYear = Year( Date() ) Response.Write "" & vbCrLf For i = 0 to CREDIT_CARD_MAXIMUM_YEARS_FOR_EXPIRY Response.Write "" & nExpiryYear+i & "" & vbCrLf Next Response.Write " (Month/Year)" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "

" & vbCrLf End Function %>