[Risolto] Passare Variabile importo carrello a Paypal

redmilion

Nuovo Utente
16 Feb 2005
29
0
0
Ciao, non essendo un esperto ho dei problemi nell'integrare il pagamento con Paypal su un sito di e-commerce passando l'importo totale (<%=TOT_Paypal%>) al form fornito.

HTML:
<form action="https://www.paypal.com/it/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="[email protected]">
<input type="hidden" name="item_name" value="Ordine su Easyexpo.it">
<input type="hidden" name="currency_code" value="EUR">
<input type="hidden" name="amount" value="<%=TOT_Paypal%>">
<input type="image" src="http://www.paypal.com/it_IT/i/btn/x-click-but01.gif" name="submit" alt="Paga subito con PayPal - è veloce, gratuito e sicuro!">
</form>

Il primo problema è convertire la variabile da passare a Paypal da numero con decimali separati dalla "," (es. 103,25) a numero con decimali separeti dal ".".
Il secondo problema è far funzionare la variabile, e quindi il modulo Paypal, in quella porzione di pagina, cosa che a me non riesce.

Qui sotto trovate tutto il codice della mia pagina. Pagina che praticamente fa il totale dell'ordine, mostra i dati di fatturazione e spedizione e dopo la conferma mostra l'esito e manda un'e-mail di conferma

Potete aiutarmi? Grazie. :(

HTML:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- #include file="inc/variabili.asp" -->
<link rel="icon" type="image/png" href="http://www.easyexpo.it/images/favicon.png">
<title>Fai il tuo ordine online su Easyexpo.it</title>

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>


<%
if len(session("id_utente")) = 0 then
	response.redirect "http://www.easyexpo.it/regutente.asp"
	response.end
end if

dim tipopagamento, modifiche
tipopagamento = request("tipo_di_pagamento") 
modifiche = request("mod")
'response.write tipopagamento
'response.end
dim addizionaletipopagamento

'response.write tipopagamento 
    set cn = Server.CreateObject("Adodb.Connection")
    cn.Open strConnect
    set rs = Server.CreateObject("Adodb.Recordset")
'	response.Write session("id_utente") 
	'response.end
	'----------------------------------------------------------------------------------------------------------------------------
sub SendMail(subject)
	Dim objMail, Flds, iConf
	
	Set objMail = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	'Set objMail = Server.CreateObject("CDONTS.NewMail")
	Set Flds = iConf.Fields
	
	
	With Flds 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX.easyexpo.it" 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")= "[email protected]"
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="XXXXX"

		.Update 
	End With 
	
	dim inviaa, HTML
	inviaa = Request.form("RqChrEmail")
	
	'rs.close
	set rs = nothing
	
	'objMail.AttachURL Server.MapPath("images\logo_easyexpostore.jpg"), "logo_easyexpostore.jpg"
	Set objMail.Configuration = iConf
	
	'Testo html del corpo della mail
	HTML = "<html>"
	HTML = HTML & "<head>" & vbcr
	HTML = HTML & "<title>Conferma del tuo ordine su Easyexpo.it</title>" & vbcr
	HTML = HTML & "</head>" & vbcr
	HTML = HTML & "<body bgcolor=""#FFFFFF"">" & vbcr
	HTML = HTML & "<p><font face=""Verdana""><strong>" & vbcr
	HTML = HTML & "<img src=""http://www.easyexpo.it/images/logo_easyexpo.jpg""><br>" & vbcr
	HTML = HTML & "<a href=""http://www.easyexpo.it"">" & vbcr
	HTML = HTML & "Stampa digitale ed offset, grande formato e sistemi per la comunicazione visiva</a>" & vbcr
	HTML = HTML & "</strong></font></p>" & vbcr
	HTML = HTML & "<table width=""100%"" border=0>" & vbcr
	HTML = HTML & "<tr><td width=""100%"" colspan=""2""><p><strong>Conferma d'ordine</strong><br>" & vbcr
	HTML = HTML & "Grazie per aver utilizzato i nostri servizi.</p>" & vbcr
	HTML = HTML & "<p>Si prega di non rispondere a questa e-mail automatica.<br>" & vbcr
	HTML = HTML & "Per qualsiasi comunicazione relativa al presente ordine ti preghiamo di inviare una e-mail a <a href=""mailto:[email protected]"">[email protected]</a> o, in caso di comunicazioni urgenti, contattarci in orario d'ufficio al Tel. 3472.961.414." & vbcr
	HTML = HTML & "Ti ricordiamo che le tempistiche presunte non vengono in alcun caso garantite nè verranno rimborsate consegne posticipate per qualsiasi causa tecnica, amministrativa o logistica. Per maggiori informazioni puoi consultare le <a href=""http://www.easyexpo.it/consizionigenerali.asp"">condizioni generali di vendita</a>.</p><p><b>Invio dei file di stampa</b><br>Se il tuo ordine lo prevede, <a href=""http://www.wetransfer.com"">puoi inviarci i tuoi file di stampa tramite wetransfer.com</a> o con le <a href=""http://www.easyexpo.it/upload_file.asp"">altre modalità di invio file</a> previste. Per la preparazione dei tuoi file di stampa ti raccomandiamo di utilizzare le <a href=""http://www.easyexpo.it/preparazione_file.asp"">indicazioni tecniche suggerite</a>.<br><br></td></tr>" & vbcr
	HTML = HTML & "<tr><td width=""100%"" colspan=""2"" bgcolor=""#F0F0EA""><strong>Dettaglio del tuo ordine del " & date() & " - Ore " & time() & "</strong></td></tr>" & vbcr
	
	'Visualizzo tutti i prodotti del carrello
	'Creo la connessione al db
	set cn = Server.CreateObject("Adodb.Connection")
	cn.Open strConnect
	
	'Seleziono tutti prodotti presenti nel carrello del cliente che ha l'id corrente
	strSQL = "select idprodotto, iduser, quantita, id_tipo_prodotto from t_Carrello where check_out = false and iduser = " & session("id_utente")
	set rs = cn.execute(strSQL)
	on error resume next
	err.Clear
	
	var_tot = 0
	
	'Testo
	'HTML = HTML & "<table width=""100%"" border=0>" & vbcr
	'HTML = HTML & "<tr><td width=""100%"" colspan=""2"" bgcolor=""#F0F0EA""><strong>Dettaglio del tuo ordine</strong></td></tr>" & vbcr
			
	'Elenco dei prodotti
	while not rs.eof
	idprodotto = rs("idprodotto")
	qnt = rs("quantita")
	id_tipo_prodotto = rs("id_tipo_prodotto")
	select case id_tipo_prodotto

	case "1"
	strSQL = "select nomeprod, prezzoScontato, spese_1, spese_2, codice from t_Prodotti where idprodotto = " & idprodotto 

	'response.write strsql
	set rs2 = cn.execute(strSQL)
	nome = rs2("nomeprod")
	prezzo = rs2("prezzoScontato")
	iva= ((rs2("prezzoScontato")* 1.22) - rs2("prezzoScontato"))* qnt
	spesespedizione = rs2("spese_1") + (rs2("spese_2") * (qnt-1))
	iva_tot = iva_tot + iva
	var_tot = var_tot + (prezzo * qnt)
	spesetot = spesetot + spesespedizione
	codice= rs2("codice")
	
	rs2.close
	set rs2 = nothing

	case "2"
	strSQL = "SELECT t_print.price,t_print.codice, t_print.spese_1, t_print.spese_2, t_print_cat.print_cat_desc, t_print_size.print_size_desc, t_print_weight.print_weight_desc, t_print_quantity.print_quantity_desc FROM T_carrello, t_print_weight INNER JOIN (t_print_size INNER JOIN (t_print_quantity INNER JOIN (t_print_cat INNER JOIN t_print ON t_print_cat.id_print_cat = t_print.id_print_cat) ON t_print_quantity.id_print_quantity = t_print.id_print_quantity) ON t_print_size.id_print_size = t_print.id_print_size) ON t_print_weight.id_print_weight = t_print.id_print_weight where t_print.id_print = " & idprodotto 
	
	'response.write strsql
	set rs2 = cn.execute(strSQL)
	nome = rs2("print_cat_desc") & "/" & rs2("print_size_desc")& "/" & rs2("print_weight_desc")& "/" & rs2("print_quantity_desc")&"pz."
	prezzo = rs2("price")
	iva= ((rs2("price")* 1.22) - rs2("price"))* qnt
	spesespedizione = rs2("spese_1") + (rs2("spese_2") * (qnt-1))
	iva_tot = iva_tot + iva
	var_tot = var_tot + (prezzo * qnt)
	spesetot = spesetot + spesespedizione
	codice= rs2("codice")
	rs2.close
	set rs2 = nothing
	
	end select

	'set rs2 = cn.execute(strSQL)
	HTML = HTML & "<tr><td width=""50%"">Codice:</td><td width=""50%"">" & codice & "</td></tr>"  & vbcr
	HTML = HTML & "<tr><td width=""50%"">Art.:</td><td width=""50%""><strong>" & nome & "</strong></td></tr>"  & vbcr
	HTML = HTML & "<tr><td width=""50%"">Quantit&agrave;:</td><td width=""50%"">" & qnt & "</td></tr>" & vbcr
		
	if not 0 = rs("sconto") and not 0 = rs("prezzo") then
	iva = ((rs2("prezzoScontato") * 1.22) - rs2("prezzoScontato")) * qnt
	var_tot = var_tot + (rs2("prezzoScontato") * qnt)
	
	HTML = HTML & "<tr><td width=""50%"">Costo unitario:</td><td width=""50%"">&euro; " & prezzo & "</td></tr>" & vbcr
	HTML = HTML & "<tr><td width=""50%"">Costo complessivo:</td><td width=""50%"">&euro; " & (prezzo * qnt) & "</td></tr>" & vbcr
	HTML = HTML & "<tr><td width=""100%"" colspan=""2"" height=""1px"" bgcolor=""#F0F0EA""></td></tr>" & vbcr
	
	end if

	'spesespedizione = rs2("spese_1") + (rs2("spese_2") * (qnt-1))
	'iva_tot = iva_tot + iva
	'spesetot = spesetot + spesespedizione
	'rs2.close
	'set rs2 = nothing
	
	rs.movenext
	'response.write var_tot & "<br>"
	'response.write spesetot & "<br>"
	wend

	'response.end
	select case tipopagamento
	
	case "Contrassegno"
	addizionaletipopagamento = 12

	case "Bonifico"
	addizionaletipopagamento = 0

	case "Paypal"
	tipopagamento = "PayPal + 4%"
	ap = ((var_tot+iva_tot+spesetot)*4)/100
	addizionaletipopagamento = formatnumber(ap,2)
	TOT_Paypal = var_tot + iva_tot + addizionaletipopagamento + spesetot

	end select
	
	HTML = HTML & "</table><br />" & vbcr
	HTML = HTML & "<table width=""100%"">" & vbcr

	HTML = HTML & "<tr><td width=""50%"">Totale (iva esclusa):</td><td width=""50%"">&euro; " & formatnumber(var_tot, 2) & "</td></tr>" & vbcr
	HTML = HTML & "<tr><td width=""50%"">Costi modalit&agrave; mPagamento:</td><td width=""50%"">&euro; " & addizionaletipopagamento & " - " & tipopagamento & "</td></tr>"
	HTML = HTML & "<tr><td width=""50%"">Spese di imballo, spedizione ed incasso:</td><td width=""50%"">&euro; " & formatnumber(spesetot, 2) & "</td></tr>"
	HTML = HTML & "<tr><td width=""50%"">IVA:</td><td width=""50%"">&euro; " & formatnumber(iva_tot, 2) & "</td></tr>"
	HTML = HTML & "<tr><td width=""100%"" colspan=""2"" height=""1px"" bgcolor=""#F0F0EA""></td></tr>" & vbcr
	
	HTML = HTML & "<tr><td width=""50%""><strong><font color=""red"">TOTALE ORDINE (iva inclusa):</font></strong></td><td width=""50%""><strong><font color=""red"">&euro; " & formatnumber(var_tot+iva_tot+addizionaletipopagamento+ spesetot, 2) & "</font></strong><br><br></td></tr><tr><td width=""100%"" colspan=""2""><b>Metodi di pagamento</b><br>Se hai scelto il pagamento tramite:<br>- <b>Bonifico bancario anticipato</b> effettua il bonifico alle nostre coordinate bancarie indicando come causale SALDO ORDINE ""TUO NOME"" (es. SALDO ORDINE ""BLU IMPIANTI SRL"") e come beneficiario NEXT01 Sas Iban: <b>IT02Z0572863880733570731012</b>.<br>La spedizione del materiale avverrà nel momento in cui l'accredito sarà andato a buon fine.<br>- <b>Carta di credito</b>, riceverai la richiesta di pagamento tramite e-mail dal nostro account Paypal ([email protected]) e dovrai solamente seguire le semplici istruzioni presenti nell'e-mail e sul sito <a href=""http://www.paypal.it"">www.paypal.it</a>.<br>- <b>Contrassegno</b> dovrai pagare al corriere l'importo richiesto in contanti o assegno bancario intestato a Next01 Sas.</td></tr>"	
	HTML = HTML & "</table><br />"
	
HTML = HTML & "<div height=""1px"" width=""100%"" style=""background-color:#000000""></div>"
	
	'Connessione al DB per prelevare i dati del cliente
	set rs = Server.CreateObject("Adodb.Recordset")
	set cn = Server.CreateObject("Adodb.Connection")
	cn.Open strConnect
	strSQL = "SELECT * FROM T_Users WHERE IDUser = " & session("id_utente")
	rs.Open strSQL, cn
	
	Dim nome, cognome, indirizzo, citta, cap, provincia, nazione, partitaiva, codicefiscale, telefono, cellulare, username, Email
	
	inviaa = rs("email")
	'Dati per la spedizione
	nome_sped = Request.Form("nome")
	cognome_sped = Request.Form("cognome")
	indirizzo_sped = Request.Form("indirizzo")
	citta_sped = Request.Form("citta")
	cap_sped = Request.Form("cap")
	provincia_sped = Request.Form("provincia")
	nazione_sped = Request.Form("nazione")
	
	'Dati per la fatturazione
	nome_fatt = rs("nome")
	cognome_fatt = rs("cognome")
	indirizzo_fatt = rs("indirizzo")
	citta_fatt = rs("citta")
	cap_fatt = rs("cap")
	provincia_fatt = rs("provincia")
	nazione_fatt = rs("nazione")
	
	'Dati "fissi" del cliente
	partitaiva = rs("partitaiva")
	codicefiscale = rs("codicefiscale")
	telefono = rs("telefono")
	cellulare = rs("cellulare")
	username = rs("username")
	Email = rs("Email")
	
	'Tabella destinazione
	HTML = HTML & "<table width=""100%"" border=""0"" bgcolor=""#F0F0EA"">"

	HTML = HTML & "<tr><td colspan=""2"" width=""100%""><strong>Dati spedizione:</strong></td></tr>"

	HTML = HTML & "<tr><td width=""100%"" colspan=""2"" height=""1px"" bgcolor=""black""></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Destinatario:</td><td width=""50%""><strong>" & nome_sped & "</strong> (Rif. " & cognome_sped & ")</td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Indirizzo:</td><td width=""50%""><strong>" & indirizzo_sped & ", " & cap_sped & " " & citta_sped & " (" & provincia_sped & ") - " & nazione_sped & "</strong></td></tr>"

	HTML = HTML & "</table><br><br>"
	
	
	'Tabella dati fatturazione
	HTML = HTML & "<table width=""100%"" border=""0"" bgcolor=""#F0F0EA"">"

	HTML = HTML & "<tr><td colspan=""2"" width=""100%""><strong>Dati fatturazione:</strong></td></tr>"

	HTML = HTML & "<tr><td width=""100%"" colspan=""2"" height=""1px"" bgcolor=""black""></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Intestazione:</td><td width=""50%""><strong>" & nome_fatt & "</strong> (Rif. " & cognome_fatt & ")</td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Indirizzo:</td><td width=""50%""><strong>" & indirizzo_fatt & ", " & cap_fatt & " " & citta_fatt & " (" & provincia_fatt & ") - " & nazione_fatt & "</strong></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Partita IVA:</td><td width=""50%""><strong>" & partitaiva & "</strong></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Codice Fiscale:</td><td width=""50%""><strong>" & codicefiscale & "</strong></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Telefono:</td><td width=""50%""><strong>" & telefono & "</strong></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">Cellulare:</td><td width=""50%""><strong>" & cellulare & "</strong></td></tr>"

	HTML = HTML & "<tr><td width=""50%"">E-mail:</td><td width=""50%""><strong>" & Email & "</strong></td></tr>"

	HTML = HTML & "</table>"


HTML = HTML & "<p>Easyexpo.it è un marchio della Next01 Sas - Via Taboga 251, 33013 Gemona del Friuli (UD) - Tel. 3472 961 414</p>"
	
HTML = HTML & "</body>"
HTML = HTML & "</html>"

	objMail.From = "[email protected]"
	objMail.To = inviaa
	objMail.Bcc = "[email protected]"
	objMail.Subject = subject
	objMail.HTMLBody = HTML
	objMail.Send
	
end sub
%>

<link href="stile_easyexpo.css" rel="stylesheet" type="text/css">

<script language="javascript" type="text/javascript">
	
	function onMod() {
		document.getElementById("ripristina").style.visibility = "visible";
		document.getElementById("permanent").style.visibility = "visible";
	}
	
	function hideIt(){
		document.getElementById("ripristina").style.visibility = "hidden";
		document.getElementById("permanent").style.visibility = "hidden";
	}
</script>

<!-- Script per monitorare campagna Facebook / Inizio -->
<script type="text/javascript">
var fb_param = {};
fb_param.pixel_id = '6010999626335';
fb_param.value = '0.00';
fb_param.currency = 'USD';
(function(){
  var fpw = document.createElement('script');
  fpw.async = true;
  fpw.src = '//connect.facebook.net/en_US/fp.js';
  var ref = document.getElementsByTagName('script')[0];
  ref.parentNode.insertBefore(fpw, ref);
})();
</script>
<noscript><img height="1" width="1" alt="" style="display:none" src="https://www.facebook.com/offsite_event.php?id=6010999626335&amp;value=0&amp;currency=USD" /></noscript>
<!-- Script per monitorare campagna Facebook / Fine -->

</head>

<body onLoad="javascript:hideIt();">
<!-- INIZIO TABELLA GENERALE -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">

<!-- INCLUSIONE DELL'INTESTAZIONE (HEADER) -->
<!--#include file="inc_head.html"-->

<!-- INIZIO TABELLA CONTENUTO -->
<table width="960" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>

<!-- INIZIO COLONNA SX - MENU -->
<td width="200" valign="top" class="text">

<!-- INCLUSIONE DEL MENU CATEGORIE -->
<!-- #include file="inc_categorie.asp" --></td>

<!-- INIZIO COLONNA DX - PRODOTTI -->
<td width="760" rowspan="2" valign="top" class="text">

<!-- tabella NOVITA' / inizio -->
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="text_nero12">
<tr><td class="downline"><&nbsp;<a href="javascript:history.back()" title="Torna alla pagina precedente">Indietro</a></td></tr>
<tr>
<td width="100%">

<%
		select case Request("azione")
        case "1"
%>
<span class="titoli_menu">Dettaglio del tuo ordine</span><span class="passaggi">&nbsp;(Passaggio 2/2 per completare l'ordine)</span><br><br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
  <form method="post" action="ordine.asp?azione=2">
	<input type="hidden" name="Tipo_di_Pagamento" value="<%=tipopagamento%>">
    <tr bgcolor="#DA0E13">
      <td width="250" height="20" align="left" bgcolor="#000000" class="text_bianco">Prodotto</td>
      <td width="50" height="20" align="center" bgcolor="#000000" class="text_bianco">Quantita'</td>
      <td width="80" height="20" align="right" bgcolor="#000000" class="text_bianco">Prezzo</td>
      <td width="80" height="20" align="right" bgcolor="#000000" class="text_bianco">IVA</td>
      <td width="120" height="20" align="right" bgcolor="#000000" class="text_bianco">S. Sped. + Imballo</td>
    </tr>
<%
'Inizializzo le variabili per il prezzo totale
var_tot = 0
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect    
'Visualizzo tutti i prodotti del carrello
strSQL = "select idprodotto, iduser, quantita, id_tipo_prodotto from t_Carrello where check_out = false and iduser = " & session("id_utente")

set rs = cn.execute(strSQL)
        
'Il carrello e' vuoto ?
if rs.eof then
%>
    <tr>
      <td colspan="5" align="center" class="carsx"><span class="titoli_menu">Non ci sono prodotti nel tuo ordine <br>
          <a href="default.asp" class="titoli_arancio16">Torna ai prodotti</a></span> </td>
    </tr>
<%
end if
'Fine
        
'Elenco dei prodotti
while not rs.eof
'Prelevo tutti i dati dal carrello
idprodotto = rs("idprodotto")
id_tipo_prodotto = rs("id_tipo_prodotto")
qnt = rs("quantita")

'Richiamo le informazioni relative al prodotto 
'e aggiorno il valore del prezzo totale

select case id_tipo_prodotto

case "1"
strSQL = "select nomeprod, prezzoScontato, spese_1, spese_2 from t_Prodotti where idprodotto = " & idprodotto 

'response.write strsql
set rs2 = cn.execute(strSQL)
nome = rs2("nomeprod")
prezzo = rs2("prezzoScontato")
iva= ((rs2("prezzoScontato")* 1.22) - rs2("prezzoScontato"))* qnt
spesespedizione = rs2("spese_1") + (rs2("spese_2") * (qnt-1))
iva_tot = iva_tot + iva
var_tot = var_tot + (prezzo * qnt)
spesetot = spesetot + spesespedizione
rs2.close
set rs2 = nothing

'Connessione database Stampa
case "2"

strSQL = "SELECT t_print.price, t_print.spese_1, t_print.spese_2, t_print_cat.print_cat_desc, t_print_size.print_size_desc, t_print_weight.print_weight_desc, t_print_quantity.print_quantity_desc FROM T_carrello, t_print_weight INNER JOIN (t_print_size INNER JOIN (t_print_quantity INNER JOIN (t_print_cat INNER JOIN t_print ON t_print_cat.id_print_cat = t_print.id_print_cat) ON t_print_quantity.id_print_quantity = t_print.id_print_quantity) ON t_print_size.id_print_size = t_print.id_print_size) ON t_print_weight.id_print_weight = t_print.id_print_weight where t_print.id_print = " & idprodotto 

'response.write strsql
set rs2 = cn.execute(strSQL)
nome = rs2("print_cat_desc") & "/" & rs2("print_size_desc")& "/" & rs2("print_weight_desc")& "/" & rs2("print_quantity_desc")&"pz."
prezzo = rs2("price")
iva= ((rs2("price")* 1.22) - rs2("price"))* qnt
spesespedizione = rs2("spese_1") + (rs2("spese_2") * (qnt-1))
iva_tot = iva_tot + iva
var_tot = var_tot + (prezzo * qnt)
spesetot = spesetot + spesespedizione
rs2.close
set rs2 = nothing
end select
'Fine

'Visualizzo i prodotti nella tabella
%>
    <tr >
      <td width="250" class="text_nero14" align="left"><%=nome%></td>
      <td width="50" align="center"><input name="pc_<%=idprodotto%>" type="text" disabled class="text_nero14" value="<%=qnt%>" size="2" maxlength="2"></td>
      <td width="80" class="text_nero14" align="right">€ <%=formatnumber(prezzo * qnt, 2)%></td>
      <td width="80" class="text_nero14" align="right">€ <%=formatnumber(iva, 2)%></td>
      <td width="120" class="text_nero14" align="right">€ <%=formatnumber(spesespedizione, 2)%></td>
    </tr>
<tr><td class="downline" colspan="5"></td></tr>

<%
'Fine
rs.movenext
wend
rs.close
set rs = nothing
'Fine
%>

    <tr>
      <td height="20" colspan="2" bgcolor="#F0F0EA" class="text_nero14">Parziali</td>
      <td height="20" align="right" bgcolor="#F0F0EA" class="text_nero14">€ <%=formatnumber(var_tot, 2)%> </td>
      <td height="20" align="right" bgcolor="#F0F0EA" class="text_nero14">€ <%=formatnumber(iva_tot, 2)%> </td>
      <td height="20" align="right" bgcolor="#F0F0EA" class="text_nero14">€ <%=formatnumber(spesetot, 2)%> </td>
    </tr>
<%
select case tipopagamento

case "Contrassegno"
addizionaletipopagamento = 12

case "Bonifico"
addizionaletipopagamento = 0

case "Paypal"
tipopagamento = "PayPal + 4%"
ap = ((var_tot+iva_tot+spesetot)*4)/100
addizionaletipopagamento = formatnumber(ap,2)
TOT_Paypal = var_tot + iva_tot + addizionaletipopagamento + spesetot

end select		
%>
<tr>
<td height="20" colspan="2" bgcolor="#F0F0EA" class="text_nero14" >Pagamento tramite <%=tipopagamento%></td>
<td height="20" colspan="3" align="center" bgcolor="#F0F0EA" class="text_nero14">€ <%=addizionaletipopagamento%></td>
</tr>
<tr>
<td height="20" colspan="2" bgcolor="#FFFF00" class="totali">Totale Ordine</td>
<td height="20" colspan="3" align="center" bgcolor="#FFFF00" class="totali">€ <%=formatnumber(var_tot+iva_tot+addizionaletipopagamento+ spesetot, 2)%></td>
</tr>
<tr><td class="downline" colspan="5"></td></tr>
<tr>
<td height="50" colspan="5" valign="bottom" class="downline"><b class="titoli_menu">Destinazione della merce</b></td>
</tr>

<tr>
	<td bgcolor="#F0F0EA" colspan="5" class="downline">ATTENZIONE: puoi modificare i dati di destinazione della merce (se fossero diversi da quelli di fatturazione) nel modulo qui sotto oppure utilizzarlo per modificare i tuoi dati di registrazione (se avessi commeso un errore o li avessi nel frattempo cambiati) rendendoli definitivi cliccando sul bottone a comparsa.</td>
</tr>
<tr>
<td colspan="5">

<%
	if modifiche = 1 then
%>

<span style="background-color:#FFFF00; color:#FF0000;">I nuovi dati sono stati salvati con successo.</span>

<%
	end if
%>
    
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<!-- Connessione al DB per prelavare i dati del cliente -->
<%
	set rs = Server.CreateObject("Adodb.Recordset")
	set cn = Server.CreateObject("Adodb.Connection")
	cn.Open strConnect
	strSQL = "SELECT * FROM T_Users WHERE IDUser = " & session("id_utente")
	rs.Open strSQL, cn
%>

<tr>
	<td width="40%" height="20" class="text_nero14">Destinatario:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="nome" name="nome" value="<%=Rs("nome")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Persona di riferimento:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="cognome" name="cognome" value="<%=Rs("cognome")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Indirizzo:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="indirizzo" name="indirizzo" value="<%=Rs("Indirizzo")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">CAP:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="cap" name="cap" value="<%=Rs("CAP")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Citt&agrave;:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="citta" name="citta" value="<%=Rs("citta")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Provincia:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="provincia" name="provincia" value="<%=Rs("provincia")%>"></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Nazione:</td>
	<td width="60%" height="20" class="text_nero14"><input type="text" onKeyPress="javascript:onMod();" id="nazione" name="nazione" value="<%=Rs("nazione")%>"></td>
</tr>
<td colspan="5" align="center" valign="middle" class="downline">
<input type="submit" id="permanent" name="permanent" value="Registra la modifica">&nbsp; &nbsp;
<input type="submit" id="ripristina" name="ripristina" value="Annulla la modifica"></td>
</tr>


<tr>
<td height="50" colspan="5" valign="bottom" class="downline"><b class="titoli_menu">Dati per la fatturazione</b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Intestazione:</td>
	<td width="60%" height="20" class="text_nero14"><b><%=Rs("nome")%></b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Persona di riferimento:</td>
	<td width="60%" height="20" class="text_nero14"><%=Rs("cognome")%></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Indirizzo:</td>
	<td width="60%" height="20" class="text_nero14"><b><%=Rs("Indirizzo")%></b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">CAP:</td>
	<td width="60%" height="20" class="text_nero14"><b><%=Rs("CAP")%></b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Citt&agrave;:</td>
	<td width="60%" height="20" class="text_nero14"><b><%=Rs("citta")%></b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Provincia:</td>
	<td width="60%" height="20" class="text_nero14"><b><%=Rs("provincia")%></b></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Nazione:</td>
	<td width="60%" height="20" class="text_nero14"><%=Rs("nazione")%></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">P.Iva :</td>
	<td width="60%" height="20" class="text_nero14"><%=Rs("Partitaiva")%></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">C.F:</td>
	<td width="60%" height="20" class="text_nero14"><%=Rs("CodiceFiscale")%></td>
</tr>
<tr>
	<td width="40%" height="20" class="text_nero14">Email:</td>
	<td width="60%" height="20" class="text_nero14"><%=Rs("email")%></td>
</tr>
</table>

<% rs.close  %>

</td>
</tr>
<tr><td class="downline" colspan="5"></td></tr>
<tr>

<tr>
<td colspan="5" align="right"><input type="image" src="images/bottone_buydef.png" onMouseOver="this.src='images/bottone_buydef_over.png';" onMouseOut="this.src='images/bottone_buydef.png';" alt="Completare il tuo ordine"></td>
</tr>
</form>
</table>

<%
' Connessione al DB per la variazione dei dati tra fatturazione e spedizione
case 2
if Request.Form("permanent") = "Modifica Permanentemente" then
set rs = nothing
set cn = nothing
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect
set rs = Server.CreateObject("Adodb.Recordset")
		
strSQL = "UPDATE T_Users SET nome='" & Request("nome") & "', cognome='" & Request("cognome") & "', Indirizzo='" & Request("indirizzo") & "', Cap='" & Request("cap") & "', Citta='" & Request("citta")

strSQL = strSQL & "', Provincia='" & Request("provincia") & "', Nazione='" & Request("nazione") & "' WHERE IDUser=" & session("id_utente")
'strSQL = "SELECT * FROM T_Users WHERE IDUser = " & session("id_utente")
set rs = cn.execute(strSQL)
Response.Redirect "http://www.easyexpo.it/ordine.asp?mod=1&azione=1"
elseif Request.Form("ripristina") = "Annulla Modifiche" then
Response.Redirect "http://www.easyexpo.it/ordine.asp?azione=1"
end if
%>

<table align="center" width="100%" border="0">



<tr>
<td align="center" height="500"><span class="titoli_menu">L'ordine &egrave; stato eseguito correttamente.<br>Grazie per il tuo acquisto!</span>
<p>Presto riceverai un'email di conferma con i dettagli del tuo ordine.</p>
<p>Se il tuo ordine lo prevede, ricordati di <a href="upload_file.asp">inviarci i tuoi file grafici al pi&ugrave; presto</a>.</p>
<p><strong>Se hai scelto il pagamento tramite BONIFICO BANCARIO ANTICIPATO:</strong><br>
effettua il bonifico alle nostre coordinate bancarie indicando come causale<br>
SALDO ORDINE "TUO NOME" (es. SALDO ORDINE "BLU IMPIANTI SRL")<br>
e come beneficiario NEXT01 Sas 
<br>
<br>
Banca Popolare di Vicenza (Agenzia di Gemona del Friuli-UD)<br>
ABI: 05728 <br>
CAB: 63880<br>
C/C: 733570731012 <br>
IBAN: IT02Z0572863880733570731012</p>
<p>La spedizione del materiale avverrà nel momento in cui l'accredito sarà andato a buon fine.</p>
<p><strong>Se hai scelto il pagamento tramite CARTA DI CREDITO:</strong><br>
  riceverai la  richiesta di pagamento tramite e-mail dal nostro account Paypal ([email protected])<br>
  e dovrai solamente seguire le semplici istruzioni presenti nell'e-mail e sul sito www.paypal.it.</p>

<form action="https://www.paypal.com/it/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="[email protected]">
<input type="hidden" name="item_name" value="Ordine su Easyexpo.it">
<input type="hidden" name="currency_code" value="EUR">
<input type="hidden" name="amount" value="<%=TOT_Paypal%>">
<input type="image" src="http://www.paypal.com/it_IT/i/btn/x-click-but01.gif" name="submit" alt="Paga subito con PayPal - è veloce, gratuito e sicuro!">
</form>

  </td>
</tr>
</table><%
var_tot = 0
spesetot = 0
iva_tot = 0
 sendmail("Easyexpo.it - Ordine Online")
 set rs = Server.CreateObject("Adodb.Recordset")
 set cn = Server.CreateObject("Adodb.Connection")
 cn.Open strConnect
 strSQL = "update t_carrello set check_out = true WHERE IDUser = " & session("id_utente")
 rs.Open strSQL, cn
%>

<%
 end select
%></td>
</tr>
</table>
<!-- tabella NOVITA' / fine -->


</td>
<!-- FINE COLONNA DX - PRODOTTI -->

</tr>
</table>
<!-- FINE TABELLA CONTENUTO -->

<!-- INCLUSIONE DEL PIEDE (FOOTER) -->
<!--#include file="inc_foot.html"-->

</td>
</tr>
</table>
<!-- FINE TABELLA GENERALE -->

<!-- Google Code for Acquisti Easyexpo Conversion Page -->
<script type="text/javascript">
/* <![CDATA[ */
var google_conversion_id = 1036209602;
var google_conversion_language = "it";
var google_conversion_format = "2";
var google_conversion_color = "ffffff";
var google_conversion_label = "DgFTCO7k-wgQwpuN7gM";
var google_conversion_value = 10;
var google_remarketing_only = false;
/* ]]> */
</script>
<script type="text/javascript" src="//www.googleadservices.com/pagead/conversion.js">
</script>
<noscript>
<div style="display:inline;">
<img height="1" width="1" style="border-style:none;" alt="" src="//www.googleadservices.com/pagead/conversion/1036209602/?value=10&amp;label=DgFTCO7k-wgQwpuN7gM&amp;guid=ON&amp;script=0"/>
</div>
</noscript>

</body>

</html>
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
552
13
18
Italy
www.riciclarte.info
...per la modifica del decimale ho provato così e funziona:

Codice:
<%

' TOT_Paypal = "10,10"
TOT_Paypal = Replace(TOT_Paypal, ",", ".", 1)

%>
<form action="https://www.paypal.com/it/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="[email protected]">
<input type="hidden" name="item_name" value="Ordine su Easyexpo.it">
<input type="hidden" name="currency_code" value="EUR">
<input type="hidden" name="amount" value="<%=TOT_Paypal%>">
<input type="image" src="http://www.paypal.com/it_IT/i/btn/x-click-but01.gif" name="submit" alt="Paga subito con PayPal - è veloce, gratuito e sicuro!">
</form>

ora il problema è capire perchè la variabile "TOT_Paypal" non ha acquisito nessun valore...
 
Ultima modifica:

redmilion

Nuovo Utente
16 Feb 2005
29
0
0
Valore variabile

Ciao, grazie per la dritta sulla modifica del separatore dei decimali... ora la parte + difficile è proprio passare la variabile a Paypal :crying:
Se riesci a capirci qualcosa ti ringrazio.
Ciao
 

redmilion

Nuovo Utente
16 Feb 2005
29
0
0
Ipotesi

io, da ignorante faccio un'ipotesi... e se il dato del totale (<%=TOT_Paypal%>) non venisse visualizzato poichè viene dopo il submit button (Completa ordine) che, una volta cliccato, azzera le informazioni?
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
552
13
18
Italy
www.riciclarte.info
...mi è impossibile testare la pagina per capire dove la variabile non viene passata.

Codice:
<%
select case tipopagamento

case "Contrassegno"
addizionaletipopagamento = 12

case "Bonifico"
addizionaletipopagamento = 0

case "Paypal"
tipopagamento = "PayPal + 4%"
ap = ((var_tot+iva_tot+spesetot)*4)/100
addizionaletipopagamento = formatnumber(ap,2)
TOT_Paypal = var_tot + iva_tot + addizionaletipopagamento + spesetot

end select		
%>

...ho notato che viene creata in questo frammento di codice, aggiungi appena dopo:
Codice:
<%=TOT_Paypal%>
per vedere a schermo se la variabile ha o meno un valore (esempio: 10,05 euro).
 

redmilion

Nuovo Utente
16 Feb 2005
29
0
0
Visualizzazione variabile

Ciao e grazie per l'aiuto!
Come avevo ipotizzato il problema sta dopo la conferma dell'ordine, infatti il valore della variabile <%=TOT_Paypal%> viene sempre visualizzato se posizionato prima di questo pezzo di codice...

HTML:
</table>

<%
	' Connessione al DB per la variazione dei dati tra fatturazione e spedizione
	case 2
	if Request.Form("permanent") = "Modifica permanente" then
	set rs = nothing
	set cn = nothing
	set cn = Server.CreateObject("Adodb.Connection")
	cn.Open strConnect
	set rs = Server.CreateObject("Adodb.Recordset")
		
	strSQL = "UPDATE T_Users SET nome='" & Request("nome") & "', cognome='" & Request("cognome") & "', Indirizzo='" & Request("indirizzo") & "', Cap='" & Request("cap") & "', Citta='" & Request("citta")

	strSQL = strSQL & "', Provincia='" & Request("provincia") & "', Nazione='" & Request("nazione") & "' WHERE IDUser=" & session("id_utente")
	'strSQL = "SELECT * FROM T_Users WHERE IDUser = " & session("id_utente")
	set rs = cn.execute(strSQL)
	Response.Redirect "http://www.easyexpo.it/ordine.asp?mod=1&azione=1"
	elseif Request.Form("ripristina") = "Annulla modifica" then
	Response.Redirect "http://www.easyexpo.it/ordine.asp?azione=1"
	end if
%>

se invece viene posizionato dopo non si visualizza più nessun valore sulla videata che viene restituita dopo aver cliccato su "Completa l'ordine!"
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
552
13
18
Italy
www.riciclarte.info
prova una cosa del genere:

Codice:
<%
select case tipopagamento

case "Contrassegno"
addizionaletipopagamento = 12

case "Bonifico"
addizionaletipopagamento = 0

case "Paypal"
tipopagamento = "PayPal + 4%"
ap = ((var_tot+iva_tot+spesetot)*4)/100
addizionaletipopagamento = formatnumber(ap,2)
TOT_Paypal = var_tot + iva_tot + addizionaletipopagamento + spesetot

end select		
%>
[COLOR="#FF0000"]<input type="hidden" name="TOT_Paypal" value="<%=TOT_Paypal%>" />[/COLOR]

Codice:
<%
[COLOR="#FF0000"]
TOT_Paypal = Trim(Mid(Request.Form("TOT_Paypal"), 1, 9))
TOT_Paypal = Replace(TOT_Paypal, ",", ".", 1)
[/COLOR]
%>
<form action="https://www.paypal.com/it/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="[email protected]">
<input type="hidden" name="item_name" value="Ordine su Easyexpo.it">
<input type="hidden" name="currency_code" value="EUR">
<input type="hidden" name="amount" value="[COLOR="#FF0000"]<%=TOT_Paypal%>[/COLOR]">
<input type="image" src="http://www.paypal.com/it_IT/i/btn/x-click-but01.gif" name="submit" alt="Paga subito con PayPal - è veloce, gratuito e sicuro!">
</form>

i campi in rosso sono le modifiche aggiunte... fammi sapere!
 
Ultima modifica:

redmilion

Nuovo Utente
16 Feb 2005
29
0
0
Risolto!!!

Ciao Paolo,
perfetto!!!! Ce l'abbiamo fatta!!!
Ora la variabile viene passata a Paypal e quindi funziona!!!
C'era solo un problema che quando i decimali erano 3 non funzionava ma l'ho risolto.
Grazie mille.:mavieni:
 
Discussioni simili
Autore Titolo Forum Risposte Data
A [RISOLTO]Passare stringa con GET Javascript 4
L (risolto) MySQL 0
B getElementById su piu id(Risolto) Javascript 6
L Esercitarsi con Js [RISOLTO] Javascript 4
C [RISOLTO]Inserimento variabile php in input html PHP 20
L risolto visualizzazione e ordinamento dati PHP 1
moustache [RISOLTO] SQL PHP IIS PHP 8
Sergio Unia Ricezione email con destinatari multipli [Risolto] PHP 2
L update tabelle in php mysql [risolto] PHP 6
M Semplice visualizzatore di immagini [risolto con plugin wp] PHP 7
L [RISOLTO] Stampa a video risultato count in html PHP 13
L [RISOLTO] Eliminare una discussione creata PHP 3
tomorc [HTML] Problema con scroll bar (risolto) HTML e CSS 0
A [PHP] Problema query insert [RISOLTO] PHP 14
B [PHP] recuperare IP dei server in load balancing [RISOLTO] PHP 3
K [RISOLTO] Problema Griglia Php+Mysql PHP 13
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
elpirata [RISOLTO][Javascript] Datapicker e autocompletamento campo input Javascript 2
elpirata [RISOLTO][Mysql] Problema insert valori apostrofati MySQL 1
elpirata [RISOLTO][Mysql] Contare le occorrenze in un campo tipo varchar MySQL 2
G [MS Access] Gestione biglietti [RISOLTO] MS Access 2
G [MS Access] Casella combinata & Query [RISOLTO] MS Access 4
G [MS Access] Query mese corrente con conteggio [RISOLTO] MS Access 2
M [RISOLTO]Windows media player non mi funziona più su win 10 pro 64 bit Windows e Software 2
C [RISOLTO][PHP] Errore di sintassi PHP 8
IT9-Gpp [RISOLTO] Leggere variabile restituita da success Ajax 3
Kolop [RISOLTO][PHP] Problema Pagination PHP 2
C [RISOLTO][PHP] Funzione ONclick PHP 14
C [RISOLTO][PHP] Conteggio righe di una tabella PHP 4
N [PHP] Utilizzo variabili di sessione [Risolto] PHP 13
Tommy03 [RISOLTO][PHP] Webserver o devserver? PHP 2
Sergio Unia Recupero dati da una vecchia versione MySql [Risolto] MySQL 4
spider81man [PHP] Problemi cancellazione dato su DB [RISOLTO] PHP 1
A [RISOLTO]Inserimento Immagini da pc a MySql PHP 15
A [PHP] RISOLTO Invio Mail con Tabella PHP 2
felino Risolto - [Wordpress][WooCommerce] PayPal Checkout e campi di fatturazione WordPress 2
elpirata [PHP][RISOLTO] Sommare gli importi estratti da un ciclo while PHP 3
elpirata [PHP][RISOLTO] Effettuare la somma dei tempi di lavorazione PHP 3
elpirata [PHP] [RISOLTO]Sovrascrivere testo in una tabella PHP 2
A [RISOLTO]Recuperare dati inviati con json tramite php PHP 4
C [RISOLTO][PHP] Passaggio variabili senza refresh di pagina PHP 7
elpirata [PHP][RISOLTO] Errore di tipo Notice: Undefined index - Come risolvere quando si hanno tante var PHP 10
S Problema in PHP per invio file XML - RISOLTO- PHP 8
A [Javascript] [RISOLTO] Doppio "submit", in uno stesso "Form" , che puntino ad "action" diversi Javascript 1
marino51 [Risolto]videochat di messenger ha smesso di funzionare sul telefonino Smartphone e tablet 1
A [Javascript] [HTML] RISOLTO...Allungare un box all'apertura della pagina No Mouse over Javascript 9
ken_korn [Javascript][Risolto] browser.tab.Tabs.favIconUrl non funziona Javascript 5
A [RISOLTO] HighChart e PHP PHP 4
A [RISOLTO] PHP Selezionare tutti i file con stessa estensione PHP 2
A [RISOLTO] Table elaborata da codice PHP con dati da DB non visualizzata in IFRAME PHP 15

Discussioni simili