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.
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:
<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à:</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%"">€ " & prezzo & "</td></tr>" & vbcr
HTML = HTML & "<tr><td width=""50%"">Costo complessivo:</td><td width=""50%"">€ " & (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%"">€ " & formatnumber(var_tot, 2) & "</td></tr>" & vbcr
HTML = HTML & "<tr><td width=""50%"">Costi modalità mPagamento:</td><td width=""50%"">€ " & addizionaletipopagamento & " - " & tipopagamento & "</td></tr>"
HTML = HTML & "<tr><td width=""50%"">Spese di imballo, spedizione ed incasso:</td><td width=""50%"">€ " & formatnumber(spesetot, 2) & "</td></tr>"
HTML = HTML & "<tr><td width=""50%"">IVA:</td><td width=""50%"">€ " & 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"">€ " & 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&value=0&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">< <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"> (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à:</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">
<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à:</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 è 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ù 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&label=DgFTCO7k-wgQwpuN7gM&guid=ON&script=0"/>
</div>
</noscript>
</body>
</html>
