<font color="red"><%=INFO_EMPTYFIELDS%></font>
<%End If
%>
<FORM ACTION="ordine.asp" & METHOD="POST">
<TABLE CELLPADDING=1 CELLSPACING=4 BORDER=0>
<TR>
<TD VALIGN="TOP">
<TABLE CELLPADDING=2 CELLSPACING=0 BORDER=0>
<TR>
<TD align="right">Nome</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteNome" VALUE="<%=SchedaClienteNome%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">Cognome</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteCognome" VALUE="<%=SchedaClienteCognome%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">Indirizzo</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteIndirizzo" VALUE="<%=SchedaClienteIndirizzo%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">Comune</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteComune" VALUE="<%=SchedaClienteComune%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">C.A.P.</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteCodicePostale" VALUE="<%=SchedaClienteCodicePostale%>" SIZE=5 MAXLENGTH=5 style="font-size: 8 pt">
Provincia <INPUT TYPE="TEXT" NAME="SchedaClienteProvincia" VALUE="<%=SchedaClienteProvincia%>" SIZE=2 MAXLENGTH=2 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">Telefono</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteTelefono" VALUE="<%=SchedaClienteTelefono%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">Fax</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteFax" VALUE="<%=SchedaClienteFax%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right">E-mail</TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteEmail" VALUE="<%=SchedaClienteEmail%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR>
</TABLE>
</TD><TD VALIGN="TOP">
<TABLE CELLPADDING=3 CELLSPACING=0 BORDER=0>
<TR>
<TD WIDTH=20 VALIGN="TOP">
<%if SchedaClienteMetodoPagamento="bonificoincontocorre ntebancario" then
Checked="CHECKED"
else
Checked=""
end if%>
<INPUT TYPE="RADIO" NAME="SchedaClienteMetodoPagamento" VALUE="bonificoincontocorrentebancario" <%=Checked%>>
</TD>
<TD VALIGN="TOP">
Bonificobancario
</TD>
</TR>
<TR>
<TD WIDTH=20 VALIGN="TOP">
<%if SchedaClienteMetodoPagamento="versamentoincontocor rentepostale" then
Checked="CHECKED"
else
Checked=""
end if%>
<INPUT TYPE="RADIO" NAME="SchedaClienteMetodoPagamento" VALUE="versamentoincontocorrentepostale" <%=Checked%>>
</TD>
<TD VALIGN="TOP">
Versamentopostale
</TD>
</TR>
<TR>
<TD WIDTH=20 VALIGN="TOP">
<%if SchedaClienteMetodoPagamento="spedizioneincontrass egno" then
Checked="CHECKED"
else
Checked=""
end if%>
<INPUT TYPE="RADIO" NAME="SchedaClienteMetodoPagamento" VALUE="spedizioneincontrassegno" <%=Checked%>>
</TD>
<TD VALIGN="TOP">
Contrassegno
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="RIGHT">
<INPUT TYPE="image" SRC="icons/order.gif" NAME="acquista" border=0>
</TD>
</TR>
</TABLE>
</FORM><%
elseif AcquistoOK and len(Request.form("conferma.x"))>0 then
QuantiArticoliInScontrino = Session("QuantiArticoliInScontrino")
ScontrinoInScontrino = Session("ScontrinoInScontrino")
ScontrinoIDArticolo = Session("ScontrinoIDArticolo")
ScontrinoCodiceArticolo = Session("ScontrinoCodiceArticolo")
ScontrinoDenominazioneArticolo = Session("ScontrinoDenominazioneArticolo")
ScontrinoQuantitativoArticolo = Session("ScontrinoQuantitativoArticolo")
ScontrinoConfezioneArticolo = Session("ScontrinoConfezioneArticolo")
ScontrinoPrezzoArticolo = Session("ScontrinoPrezzoArticolo")
SpeseDiSpedizione = Session("SpeseDiSpedizione")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
ID = session("ID")
ID=ID+1
session("ID") = ID
IDOrdine = Session.SessionID & "." & cstr(ID)
Session("IDOrdine") = IDOrdine
%>
<FORM ACTION="ordine.asp" & METHOD="POST">
<div align="center">
<TABLE border=0 cellspacing=0 cellpadding=3>
<TR><TD align="right">
<FONT size=+2>Riepilogo ordine</FONT>
<HR>
</TD></TR>
<TR><TD ALIGN=LEFT>
Gentile <%=SchedaClienteNome%><%=SchedaClienteCognome%>,
l'ordine numero </U><%=IDOrdine%></U> è stato inoltrato con successo.
</TD></TR>
<TR><TD>Gli articoli da lei acquistati sono i seguenti:</TD></TR>
<TR><TD align="left">
<TABLE border=0 cellspacing=0 cellpadding=3>
<TR>
<TH><font size=-1>Codice</font></TH>
<TH><font size=-1>Descrizione</font></TH>
<TH><font size=-1>Importo €</font></TH>
<TH><font size=-1>Q.tà</font></TH>
<TH><font size=-1>Totale €</font></TH>
</TR>
<TR>
<TD colspan=5><HR size=1 width=100%></TD>
</TR>
<%Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoA rticolo(i))%>
<TR>
<TD><font size=-1><%=ScontrinoCodiceArticolo(i)%></font></TD>
<TD><font size=-1><%=ScontrinoDenominazioneArticolo(i)%></font></TD>
<TD align=right><font size=-1><%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%></font></TD>
<TD align=right><font size=-1><%=ScontrinoQuantitativoArticolo(i)%></font></TD>
<TD align=right><font size=-1><%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%></font></TD>
</TR>
<%next%>
<TR>
<TD colspan=5><HR size=1 width=100%></TD>
</TR>
<TR>
<TD colspan=4 align=right>Spese di spedizione €</TD>
<TD align=right><%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%></TD>
</TR>
<TR>
<TD colspan=4 align=right>Totale €</TD>
<TD align=right><%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%></TD>
</TR>
</TABLE>
</TD></TR>
<TR><TD></TD></TR>
<TR><TD align=left>
Hai scelto di pagare tramite:
</TD></TR>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%><TR><TD align=left>
Bonificobancario
Le coordinate di pagamento sono:
<table border="0" cellspacing="0">
<TR><TD>Beneficiario:</TD><TD>Tizio
</TD></TR>
<TR><TD>Banca:</TD><TD>Banca delle Marche
</TD></TR>
<TR><TD>Agenzia:</TD><TD>Jesi
</TD></TR>
<TR><TD>ABI:</TD><TD>60055
</TD></TR>
<TR><TD>CAB:</TD><TD>03710
</TD></TR>
<TR><TD>C/C:</TD><TD>765
</TD></TR>
<TR><TD>Causale:</TD><TD><%=IDOrdine%></TD></TR>
</table>
</TD></TR>
<TR><TD></TD></TR>
<TR><TD align=left>
La merce sarà spedita alla ricezione del pagamento.
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%><TR><TD align=left>
Versamento su conto corrente postale
I dati del versamento sono:
<table border="0" cellspacing="0">
<TR><TD>Conto corrente numero:</TD><TD>6665
</TD></TR>
<TR><TD>Intestato a:</TD><TD>Tizio
</TD></TR>
<TR><TD>Causale:</TD><TD><%=IDOrdine%></TD></TR>
</table>
</TD></TR>
<TR><TD></TD></TR>
<TR><TD align=left>
La merce sarà spedita alla ricezione del pagamento.
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%><TR><TD align=left>
Contrassegno
</TD></TR>
<%End if%><TR><TD align=left>
<HR>
Stampa questa pagina e conservala come ricevuta dell'ordine effettuato.</font>
</TD></TR>
</TABLE>
</div>
</FORM>
<%'invio ordine per email
dim strMailServer, strRecipients, strSender, strSubject, strMessage
'strMailServer = MailServer
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder 'QUI INSERISCE L INDIRIZZO DEL CLIENTE E IL TUO CHE DEVI METTERE NELLE VARIABILI
strSender = MailOrder 'QUI INSERISCE IL TUO COME MITTENTE
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>TUO NOME
"
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & "
"
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & "
"
for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "<u>Articolo numero: " & i & "</u>
"
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & "
"
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & "
"
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & "
"
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "
"
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & "
"
next
strMessage = strMessage & "
"
strMessage = strMessage & "SubTotale : " & Importo & "
"
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & "
"
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & "
"
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & "</font>"
Set objMail = Server.CreateObject("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
objMail.From = strSender
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
objMail.Body = strMessage
objMail.Importance = 1
on error resume next '## Ignore Errors
objMail.send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & ""
End if
%>
<%
end if
else%>
<H4>La sessione è scaduta. Torna all'Home Page</H4>
<%end if%>
</TD></TR>
<TR><TD align=left>
</TD></TR></table>
</td>
<td width="150" height="100%" valign="top">
</td>
</tr>
</table>
</body>
</html>
----------------------------------------------------
il form per l'invio a banca sella è quest'altro
--------------------------------------
<form action="https://ecomm.sella.it/pagam.asp">
<input type="hidden" name="a" value=<%=CodEs%>>
<input type="hidden" name="b" value=<%=(iTOTALE*T_ID)%>>
<input type="hidden" name="c" value=<%=OTP%>>
<input type="hidden" name="d" value=<%=RifAcq%>>
<input type="submit" value="Conferma pagamento">
</form>
--------------------------------
ciao
Rispondi quotando