<% '************************************************************************* ' ASP Scripting: ' Filename: checkout_get_shipping_info.asp ' Written by: Wilbert Madarang ' Date: May 10, 2003 '************************************************************************* ' Description: '************************************************************************* ' Revision History: ' September 28, 2003 ' 1.0 Added, Thank you for Shopping at charister.com - end of message. ' 2.0 Added missing OrderNumbers. ' October 21, 2003 ' 3.0 Added ClearSessionInfo to clear user session '************************************************************************* Dim objSendMail Dim strOrderNumber 'Get Order Number strOrderNumber = Session( "MyOrderNumber" ) %>

1. Shipping Info      2. Order Review      3. Order Confirmation <% 'Call SendOrderEmail %> An email has been sent to orderdesk@charister.com. An email will be sent to you in less than 24 business hours to confirm the order. Your order number is: <% Response.Write "" & strOrderNumber & "." & vbCrLf %> If you have any questions on your order, please have this order number available. Please also don't hesitate to email us at orderdesk@charister.com or call us at 1.888.332.8899. Thank you for shopping at charister.com.

<% Call SCart_Clear_Cart Call SCart_Compact_Cart Call ClearSession %> <% '************************************************************** ' FUNCTION: ClearSession ' DESCRIPTION: Clears the Session Information ' PARAMETERS: none ' RETURNS: none '************************************************************** Function ClearSession 'SHOPPING CART SUMMARY INFORMATION Session( "NumShopItems" ) = 0 Session( "MySubTotalBeforeDiscounts" ) = 0 Session( "MySubTotalAfterDiscounts" ) = 0 Session( "MyShippingCost" ) = 0 Session( "MyPromoDiscount" ) = 0 Session( "MyPST" ) = 0 Session( "MyGST" ) = 0 Session( "MyTotal" ) = 0 Session( "MyOrderNumber" ) = "" Session( "MyPromoDiscount" ) = "" ' SHIPPING INFORMATION Session( "MyShippingAddress" ) = "" Session( "MyShippingCity" ) = "" Session( "MyShippingProvince" ) = "" Session( "MyShippingPostalCode)" ) = "" Session( "MyShippingCountry" ) = "" ' CREDIT CARD Session("MyCreditCardType") = "" Session("MyCreditCardNumber") = "" Session("MyCreditCardExpiryDateMonth") = "" Session("MyCreditCardExpiryDateYear") = "" ' PROMO CODE Session("MyPromoCode") = "" Session("MyPromoCodeIsValid") = False Session("MyPromoCodeFreeShipping") = False Session("MyPromoCodeType") = "" Session("MyPromoCodeValue") = 0 Session("MyPromoCodeMinimumAmount") = 10 End Function %>