Walkley Clogs

<% if PaymentOption = "PayPal" then On Error Resume Next '------------------------------------ ' The paymentAmount is the total value of ' the shopping cart, that was set ' earlier in a session variable ' by the shopping cart page '------------------------------------ finalPaymentAmount = Session("Payment_Amount") '------------------------------------ ' Calls the GetExpressCheckoutDetails API call ' ' The GetShippingDetails function is defined in PayPalFunctions.asp ' included at the top of this file. '------------------------------------------------- set resArray = GetShippingDetails( Request.QueryString("token")) set resArray = ConfirmPayment( finalPaymentAmount ) ack = UCase(resArray("ACK")) If ack <> "SUCCESS" Then 'Display a user friendly Error on the page using any of the following error information returned by PayPal ErrorCode = URLDecode( resArray("L_ERRORCODE0")) ErrorShortMsg = URLDecode( resArray("L_SHORTMESSAGE0")) ErrorLongMsg = URLDecode( resArray("L_LONGMESSAGE0")) ErrorSeverityCode = URLDecode( resArray("L_SEVERITYCODE0")) Else '******************************************************************************************************************** ' ' THE PARTNER SHOULD SAVE THE KEY TRANSACTION RELATED INFORMATION LIKE ' transactionId & orderTime ' IN THEIR OWN DATABASE ' AND THE REST OF THE INFORMATION CAN BE USED TO UNDERSTAND THE STATUS OF THE PAYMENT ' '******************************************************************************************************************** token = resArray("TOKEN") ' The timestamped token value that was returned by SetExpressCheckout response and passed on GetExpressCheckoutDetails request. transactionId = resArray("TRANSACTIONID") ' Unique transaction ID of the payment. Note: If the PaymentAction of the request was Authorization or Order, this value is your AuthorizationID for use with the Authorization & Capture APIs. transactionType = resArray("PAYMENTINFO_0_TRANSACTIONTYPE") ' The type of transaction Possible values: l cart l express-checkout paymentType = resArray("PAYMENTTYPE") ' Indicates whether the payment is instant or delayed. Possible values: l none l echeck l instant orderTime = resArray("PAYMENTINFO_0_ORDERTIME") ' Time/date stamp of payment amt = resArray("PAYMENTINFO_0_AMT") ' The final amount charged, including any shipping and taxes from your Merchant Profile. currencyCode = resArray("PAYMENTINFO_0_CURRENCYCODE") ' A three-character currency code for one of the currencies listed in PayPay-Supported Transactional Currencies. Default: USD. 'feeAmt = resArray("FEEAMT") ' PayPal fee amount charged for the transaction 'settleAmt = resArray("SETTLEAMT") ' Amount deposited in your PayPal account after a currency conversion. taxAmt = resArray("PAYMENTINFO_0_TAXAMT") ' Tax charged on the transaction. 'exchangeRate = resArray("EXCHANGERATE") ' Exchange rate if a currency conversion occurred. Relevant only if your are billing in their non-primary currency. If the customer chooses to pay with a currency other than the non-primary currency, the conversion occurs in the customer’s account. ' Status of the payment: 'Completed: The payment has been completed, and the funds have been added successfully to your account balance. 'Pending: The payment is pending. See the PendingReason element for more information. paymentStatus = resArray("PAYMENTINFO_0_PAYMENTSTATUS") 'The reason the payment is pending: ' none: No pending reason ' address: The payment is pending because your customer did not include a confirmed shipping address and your Payment Receiving Preferences is set such that you want to manually accept or deny each of these payments. To change your preference, go to the Preferences section of your Profile. ' echeck: The payment is pending because it was made by an eCheck that has not yet cleared. ' intl: The payment is pending because you hold a non-U.S. account and do not have a withdrawal mechanism. You must manually accept or deny this payment from your Account Overview. ' multi-currency: You do not have a balance in the currency sent, and you do not have your Payment Receiving Preferences set to automatically convert and accept this payment. You must manually accept or deny this payment. ' verify: The payment is pending because you are not yet verified. You must verify your account before you can accept this payment. ' other: The payment is pending for a reason other than those listed above. For more information, contact PayPal customer service. pendingReason = resArray("PAYMENTINFO_0_PENDINGREASON") 'The reason for a reversal if TransactionType is reversal: ' none: No reason code ' chargeback: A reversal has occurred on this transaction due to a chargeback by your customer. ' guarantee: A reversal has occurred on this transaction due to your customer triggering a money-back guarantee. ' buyer-complaint: A reversal has occurred on this transaction due to a complaint about the transaction from your customer. ' refund: A reversal has occurred on this transaction because you have given the customer a refund. ' other: A reversal has occurred on this transaction due to a reason not listed above. reasonCode = resArray("PAYMENTINFO_0_REASONCODE") End If End If %>

<% if PaymentOption = "PayPal" then ' ================================== ' PayPal Express Checkout Module ' ================================== On Error Resume Next '------------------------------------ ' The currencyCodeType and paymentType ' are set to the selections made on the Integration Assistant '------------------------------------ currencyCodeType = "GBP" paymentType = "Sale" '------------------------------------ ' The returnURL is the location where buyers return to when a ' payment has been succesfully authorized. ' ' This is set to the value entered on the Integration Assistant '------------------------------------ returnURL = "www.clogs.co.uk/OrderConfirmPage" '------------------------------------ ' The cancelURL is the location buyers are sent to when they click the ' return to XXXX site where XXX is the merhcant store name ' during payment review on PayPal ' ' This is set to the value entered on the Integration Assistant '------------------------------------ cancelURL = "www.clogs.co.uk/Indexpage" '------------------------------------ ' The paymentAmount is the total value of ' the shopping cart, that was set ' earlier in a session variable ' by the shopping cart page '------------------------------------ paymentAmount = Session("Payment_Amount") '------------------------------------ ' When you integrate this code ' set the variables below with ' shipping address details ' entered by the user on the ' Shipping page. '------------------------------------ shipToName = "<>" shipToStreet = "<>" shipToStreet2 = "<>" 'Leave it blank if there is no value shipToCity = "<>" shipToState = "<>" shipToCountryCode = "<>" ' Please refer to the PayPal country codes in the API documentation shipToZip = "<>" phoneNum = "<>" '------------------------------------ ' Calls the SetExpressCheckout API call ' ' The CallMarkExpressCheckout function is defined in PayPalFunctions.asp ' included at the top of this file. '------------------------------------------------- Set resArray = CallMarkExpressCheckout (paymentAmount, currencyCodeType, paymentType, returnURL, cancelURL, shipToName, shipToStreet, shipToCity, shipToState, shipToCountryCode, shipToZip, shipToStreet2, phoneNum ) ack = UCase(resArray("ACK")) If ack="SUCCESS" Then ' Redirect to paypal.com SESSION("token") = resArray("TOKEN") ReDirectURL( resArray("TOKEN") ) Else 'Display a user friendly Error on the page using any of the following error information returned by PayPal ErrorCode = URLDecode( resArray("L_ERRORCODE0")) ErrorShortMsg = URLDecode( resArray("L_SHORTMESSAGE0")) ErrorLongMsg = URLDecode( resArray("L_LONGMESSAGE0")) ErrorSeverityCode = URLDecode( resArray("L_SEVERITYCODE0")) End If Else If (((PaymentOption = "Visa") Or (PaymentOption = "MasterCard") Or (PaymentOption = "Amex") or (PaymentOption = "Discover")) and ( PaymentProcessorSelected = "PayPal Direct Payment")) '------------------------------------ ' The paymentAmount is the total value of ' the shopping cart, that was set ' earlier in a session variable ' by the shopping cart page '------------------------------------ paymentAmount = Session("Payment_Amount") '------------------------------------ ' The paymentType that was selected earlier '------------------------------------ paymentType = "Sale" ' Set these values based on what was selected by the user on the Billing page Html form creditCardType = "<>" ' Set this to one of the acceptable values (Visa/MasterCard/Amex/Discover) match it to what was selected on your Billing page creditCardNumber = "<>" ' Set this to the string entered as the credit card number on the Billing page expDate = "<>" ' Set this to the credit card expiry date entered on the Billing page cvv2 = "<>" ' Set this to the CVV2 string entered on the Billing page firstName = "<>" ' Set this to the customer's first name that was entered on the Billing page lastName = "<>" ' Set this to the customer's last name that was entered on the Billing page street = "<>" ' Set this to the customer's street address that was entered on the Billing page city = "<>" ' Set this to the customer's city that was entered on the Billing page state = "<>" ' Set this to the customer's state that was entered on the Billing page zip = "<>" ' Set this to the zip code of the customer's address that was entered on the Billing page countryCode = "<>" ' Set this to the PayPal code for the Country of the customer's address that was entered on the Billing page currencyCode = "<>" ' Set this to the PayPal code for the Currency used by the customer '------------------------------------------------ ' Calls the DoDirectPayment API call ' ' The DirectPayment function is defined in PayPalFunctions.asp included at the top of this file. '------------------------------------------------- Set resArray = DirectPayment (paymentType, paymentAmount, creditCardType, creditCardNumber, expDate, cvv2, firstName, lastName, street, city, state, zip, countryCode, currencyCode ) ack = UCase(resArray("ACK")) If ack <> "SUCCESS" Then 'Display a user friendly Error on the page using any of the following error information returned by PayPal ErrorCode = URLDecode( resArray("L_ERRORCODE0")) ErrorShortMsg = URLDecode( resArray("L_SHORTMESSAGE0")) ErrorLongMsg = URLDecode( resArray("L_LONGMESSAGE0")) ErrorSeverityCode = URLDecode( resArray("L_SEVERITYCODE0")) ' DirectPayment related error information ErrorAVSCode = URLDecode( resArray("AVSCODE")) ErrorCVV2Match = URLDecode( resArray("CVV2MATCH")) ErrorTransactionId = URLDecode( resArray("TRANSACTIONID")) End If End If %>

Beautiful real leather link belts can be made in most colours

and to any size!

Why not have a matching belt and clogs