' ################################### VARIABILI PAYPAL -> SOLO SE DEVE PAGARE CON PAYPAL if E_paypal AND not Ha_pagato then nopp_ido = "" nopp_totaleie = "" tag_form = "
"&chr(13) ' ############### VARIABILE DI RITORNO pp_rif_ordine=""&chr(13) ' ############### CARRELLO DETTAGLIATO _CART pp_tipo_cart = "" & ""&chr(13) ' ############### INFO VENDITORE pp_azienda = ""&chr(13) ' ############### VALUTA pp_moneta = ""&chr(13) ' ############### PAGINE DI FINE PROCEDURA -> CONFERMA o ABBANDONO pp_return = ""&chr(13) pp_cancel_return = ""&chr(13) ' SETTO SPESE TRASPORTO ED IMBALLAGGIO A 0 pp_trasporto = ""&chr(13) pp_imballaggio = ""&chr(13) ' ######################### CARRELLO DETTAGLIATO -> ITEM_X pp_descrizione = "" pp_iva = "" pp_importo = "" pp_item_number = "" x_num=1 While not carrello.EOF x_descrizione= left(("CODICE: " & (carrello.Fields.Item("CodiceProdotto").Value) & " Q.TA: " & (carrello.Fields.Item("QuantitaCarrello").Value) & " DESCRIZIONE: ORDINE NR " & carrello__ido ),127) x_importo=replace( cstr( formatnumber(cdbl(carrello.Fields.Item("Importo").Value)*1.2,2,-2,-2,-2) ),",",".") 'x_importo="0.5" ' #################### ITEM_NUMBER_X -> VARIABILE DI RITORNO x TRACCIARE IL PAGAMENTO pp_item_number = pp_item_number + "" ' #################### DESCRIZIONE DELL'OGGETTO NEL CARRELLO -> ITEM_NAME_X pp_descrizione = pp_descrizione & "" ' #################### VALORE DELL'OGGETTO NEL CARRELLO IVA INCLUSA -> AMOUNT_X pp_importo = pp_importo & "" carrello.MoveNext() x_num = x_num + 1 Wend carrello.MoveFirst() End if ' ################################### FINE VARIABILI PAYPAL