I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
giuliost
giuliost
l'1 ottobre 2004 alle 12:05
3 messaggi dal 20 agosto 2004
Salve,

sto utilizzando un codice trovato in rete per la gestione di ordini tramite carrello, con metodi di pagamento vaglia postale e contrassegno.

Io vorrei che se scelgo la modalità di pagamento vaglia postale le spese di spedizione siano zero, mentre in contrassegno come è ora, cioè 3 euro.

chi mi può aiutare?

-------------------
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Lcx - Private Shop</title>
<link rel="stylesheet" href="indexx.css">
</head>

<body text="#000000" link="#000000" vlink="#000000" alink="#000000">

<div align="center">
<center>

<table border="0" style="border-collapse: collapse" width="600" id="AutoNumber1" height="308" cellspacing="8" cellpadding="0">
<tr>
<td width="150" height="100%" valign="top">
&nbsp;</td>
<td width="450" height="300" align="center">
<table border=0 cellpadding=0 cellspacing=0><tr><td>
<%
if len(Session("aperta")) > 0 then
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "../../mdb-database/webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
SpeseDiSpedizione=0
Data = now
if Session("AcquistoOK")="" then
AcquistoOK=false
else
AcquistoOK=Session("AcquistoOK")
end if
if not AcquistoOK then
if len(Request.form("acquista.x"))>0 then
IDCliente = Request.form("IDCliente")
SchedaClienteNome = Request.form("SchedaClienteNome")
SchedaClienteCognome = Request.form("SchedaClienteCognome")
SchedaClienteIndirizzo = Request.form("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Request.form("SchedaClienteCodicePostale")
SchedaClienteComune = Request.form("SchedaClienteComune")
SchedaClienteProvincia = Request.form("SchedaClienteProvincia")
SchedaClienteTelefono = Request.form("SchedaClienteTelefono")
SchedaClienteFax = Request.form("SchedaClienteFax")
SchedaClienteEmail = Request.form("SchedaClienteEmail")
SchedaClienteMetodoPagamento= Request.form("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS=""
if SchedaClienteMetodoPagamento="" then INFO_EMPTYFIELDS="Seleziona una modalit&agrave; di pagamento"
if SchedaClienteEmail="" then INFO_EMPTYFIELDS="Inserisci E-mail valida"
if SchedaClienteTelefono="" then INFO_EMPTYFIELDS="Inserisci il numero di telefono"
if SchedaClienteProvincia="" then INFO_EMPTYFIELDS="Inserisci la provincia"
if SchedaClienteCodicePostale="" then INFO_EMPTYFIELDS="Inserisci il C.A.P."
if SchedaClienteComune="" then INFO_EMPTYFIELDS="Inserisci il comune"
if SchedaClienteIndirizzo="" then INFO_EMPTYFIELDS="Inserisci l'indirizzo"
if SchedaClienteCognome="" then INFO_EMPTYFIELDS="Inserisci il cognome"
if SchedaClienteNome="" then INFO_EMPTYFIELDS="Inserisci il nome"
Session("IDCliente") = IDCliente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo")=SchedaClienteIndirizzo
Session("SchedaClienteCodicePostale")=SchedaClienteCodicePostale
Session("SchedaClienteComune")=SchedaClienteComune
Session("SchedaClienteProvincia")=SchedaClienteProvincia
Session("SchedaClienteTelefono")=SchedaClienteTelefono
Session("SchedaClienteFax")=SchedaClienteFax
Session("SchedaClienteEmail")=SchedaClienteEmail
Session("SchedaClienteMetodoPagamento")=SchedaClienteMetodoPagamento
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
if INFO_EMPTYFIELDS = "" 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 width="600" style="border-collapse: collapse" bordercolor="#111111" height="589">
<TR><TD align="right" height="30">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="50%" bgcolor="#EAA64A" style="border-bottom-style: solid; border-bottom-width: 1"><img border="0" src="images/intest.jpg"></td>
<td width="50%" bgcolor="#EAA64A" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="right"><img border="0" src="images/private_shop.jpg"></td>
</tr>
</table>
</center>
</div>
</TD></TR>
<TR><TD align="right" class="txt1" height="29">
<B>Conferma ordine</B>
<HR color="#000000" size="1">
</TD></TR>
<TR><TD ALIGN=LEFT height="12">
I dati da te inseriti sono i seguenti:
</TD></TR>
<TR><TD ALIGN="left" height="126">
<TABLE border=0 cellspacing=0 cellpadding=1>
<TR>
<TD><B>Nome:</B></TD>
<TD><%=SchedaClienteNome%></TD>
</TR>
<TR>
<TD><B>Cognome:</B></TD>
<TD><%=SchedaClienteCognome%></TD>
</TR>
<TR>
<TD><B>Indirizzo:</B></TD>
<TD><%=SchedaClienteIndirizzo%></TD>
</TR>
<TR>
<TD><B>C.A.P.:</B></TD>
<TD><%=SchedaClienteCodicePostale%></TD>
</TR>
<TR>
<TD><B>Comune:</B></TD>
<TD><%=SchedaClienteComune%></TD>
</TR>
<TR>
<TD><B>Provincia:</B></TD>
<TD><%=SchedaClienteProvincia%></TD>
</TR>
<TR>
<TD><B>Telefono:</B></TD>
<TD><%=SchedaClienteTelefono%></TD>
</TR>
<TR>
<TD><B>Fax:</B></TD>
<TD><%=SchedaClienteFax%></TD>
</TR>
<TR>
<TD><B>E-mail:</B></TD>
<TD><%=SchedaClienteEmail%></TD>
</TR>
</TABLE>
</TD></TR>
<TR><TD height="12"></TD></TR>
<TR><TD height="12">Hai scelto di acquistare:</TD></TR>
<TR><TD align="left" height="128">
<TABLE border=0 cellspacing=0 cellpadding=3 width="600" style="border-collapse: collapse" bordercolor="#111111" height="124">
<TR>
<TH height="16"><font size=-1>Codice</font></TH>
<TH height="16"><font size=-1>Descrizione</font></TH>
<TH height="16"><font size=-1>Importo</font></TH>
<TH height="16"><font size=-1>Q.t&agrave;</font></TH>
<TH height="16"><font size=-1>Totale</font></TH>
</TR>
<TR>
<TD colspan=5 height="15"><HR size=1 color="#000000"></TD>
</TR>
<%Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoArticolo(i))%>
<TR>
<TD height="25"><font size=-1><%=ScontrinoCodiceArticolo(i)%></font></TD>
<TD height="25"><font size=-1><%=ScontrinoDenominazioneArticolo(i)%></font></TD>
<TD align="center" height="25"><font size=-1><%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%></font></TD>
<TD align="center" height="25"><font size=-1><%=ScontrinoQuantitativoArticolo(i)%></font></TD>
<TD align="center" height="25"><font size=-1><%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%></font></TD>
</TR>
<%next%>
<TR>
<TD colspan=5 height="15"><HR size=1 color="#000000"></TD>
</TR>
<TR>
<TD colspan=4 align=right height="9"><B>Spese di spedizione &euro;</B></TD>
<TD align=right height="9"><%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%></TD>
</TR>
<TR>
<TD colspan=4 align=right height="12"><B>Totale &euro;</B></TD>
<TD align=right height="12"><%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%></TD>
</TR>
</TABLE>
</TD></TR>
<TR><TD height="12"></TD></TR>
<TR><TD height="12">
La modalità di pagamento selezionata è:
</TD></TR>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%><TR>
<TD align=left height="12">
<B>Bonifico&nbsp;bancario</B>
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "vagliapostale" Then%><TR>
<TD align=left height="12">
<b>Vaglia postale</b></TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%><TR>
<TD align=left height="12">
<B>Contrassegno</B>
</TD></TR>
<%End if%><TR><TD height="15"><HR color="#000000" size="1"></TD></TR>
<TR><TD align=left height="20">
<b>Confermi l'invio dell'ordine?</b> &nbsp;&nbsp;&nbsp;<INPUT TYPE="image" SRC="icons/confirm.gif" NAME="conferma" border=0 align=center>
</TD></TR>
<TR><TD align=left height="12">
</TD></TR>
<TR>
<TD align=left bgcolor="#EAA64A" style="border-top-style: solid; border-top-width: 1" height="37">
&nbsp;</TD></TR>
</TABLE>
</div>
</FORM>
<%
end if

elseif len(Request.form("conferma.x"))>0 then
IDCliente = Session("IDCliente")
SchedaClienteNome = Session("SchedaClienteNome")
SchedaClienteCognome = Session("SchedaClienteCognome")
SchedaClienteIndirizzo = Session("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Session("SchedaClienteCodicePostale")
SchedaClienteComune = Session("SchedaClienteComune")
SchedaClienteProvincia = Session("SchedaClienteProvincia")
SchedaClienteTelefono = Session("SchedaClienteTelefono")
SchedaClienteFax = Session("SchedaClienteFax")
SchedaClienteEmail = Session("SchedaClienteEmail")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS = Session("INFO_EMPTYFIELDS")
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")
'calcola l'id
ID = session("ID")
ID=ID+1
session("ID") = ID
IDCliente = Session.SessionID & "." & cstr(ID)

'inserimento
sql=""
sql = sql + "INSERT INTO clienti "
sql = sql + "(id,nome, cognome, indirizzo, cap, città, provincia, telefono, fax, email) VALUES "
sql = sql + "('" & IDCliente & "', "
sql = sql + "'" & SchedaClienteNome & "', "
sql = sql + "'" & SchedaClienteCognome & "', "
sql = sql + "'" & SchedaClienteIndirizzo & "', "
sql = sql + "'" & SchedaClienteCodicePostale & "', "
sql = sql + "'" & SchedaClienteComune & "', "
sql = sql + "'" & SchedaClienteProvincia & "', "
sql = sql + "'" & SchedaClienteTelefono & "', "
sql = sql + "'" & SchedaClienteFax & "', "
sql = sql + "'" & SchedaClienteEmail & "') "
DatabaseWebstore.execute sql
IDOrdine = Session("IDOrdine")
Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoArticolo(i))
next
sql=""
sql = sql + "INSERT INTO ordini "
sql = sql + "(id, idcliente, data, importo, spesedispedizione, mododipagamento) VALUES "
sql = sql + "('" & IDOrdine & "', "
sql = sql + "'" & IDCliente & "', "
sql = sql + "'" & Data & "', "
sql = sql + "" & replace(cstr(Importo), ",", ".") & ", "
sql = sql + "" & replace(cstr(SpeseDiSpedizione), ",", ".") & ", "
sql = sql + "'" & SchedaClienteMetodoPagamento & "')"
DatabaseWebstore.execute sql
ID = session("ID")
'scrive i dati di scontrino
for i = 1 to QuantiArticoliInScontrino
ID=ID+1
IDVoceDiScontrino = Session.SessionID & "." & cstr(ID)
session("ID") = ID
'
sql=""
sql = sql + "INSERT INTO scontrini "
sql = sql + "(id, idordine, CodiceArticolo, DenominazioneArticolo, PrezzoArticolo, QuantitativoArticolo) VALUES "
sql = sql + "('" & IDVoceDiScontrino & "', "
sql = sql + "'" & IDOrdine & "', "
sql = sql + "'" & ScontrinoCodiceArticolo(i) & "', "
sql = sql + "'" & ScontrinoDenominazioneArticolo(i) & "', "
sql = sql + "" & replace(cstr(ScontrinoPrezzoArticolo(i)), ",", ".") & ", "
sql = sql + "" & ScontrinoQuantitativoArticolo(i) & ")"
DatabaseWebstore.execute sql
next

'termine acquisto
AcquistoOK=true
Session("AcquistoOK")=AcquistoOK
Session("aperta")=""
DatabaseWebstore.close
set DatabaseWebstore = nothing
else
IDCliente = Session("IDCliente")
SchedaClienteNome = Session("SchedaClienteNome")
SchedaClienteCognome = Session("SchedaClienteCognome")
SchedaClienteIndirizzo = Session("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Session("SchedaClienteCodicePostale")
SchedaClienteComune = Session("SchedaClienteComune")
SchedaClienteProvincia = Session("SchedaClienteProvincia")
SchedaClienteTelefono = Session("SchedaClienteTelefono")
SchedaClienteFax = Session("SchedaClienteFax")
SchedaClienteEmail = Session("SchedaClienteEmail")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS = Session("INFO_EMPTYFIELDS")
end if
end if
if not AcquistoOK and (len(Request.form("acquista.x"))=0 or INFO_EMPTYFIELDS <> "") then
If INFO_EMPTYFIELDS<>"" Then%>
<font color="black"><%=INFO_EMPTYFIELDS%></font><BR>
<%End If
%>
<FORM ACTION="ordine.asp" & METHOD="POST">
<div align="center">
<center>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 style="border-collapse: collapse" bordercolor="#111111" width="591" height="366">
<TR>
<TD VALIGN="TOP" width="400" height="27">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" id="AutoNumber4" bgcolor="#FFFFFF" height="32">
<tr>
<td width="50%" bgcolor="#EAA64A" style="border-bottom-style: solid; border-bottom-width: 1" height="32"><img border="0" src="images/intest.jpg"></td>
<td width="50%" bgcolor="#EAA64A" style="border-bottom-style: solid; border-bottom-width: 1" height="32">&nbsp;</td>
</tr>
</table>
</center>
</div>
</TD>
<TD VALIGN="middle" bgcolor="#EAA64A" width="191" style="border-bottom-style: solid; border-bottom-width: 1" height="27">
<p align="right"><img border="0" src="images/private_shop.jpg"></TD>
</TR>
<TR>
<TD VALIGN="TOP" width="400" height="216">
<div align="center">
<center>
<TABLE CELLPADDING=2 CELLSPACING=0 BORDER=0 width="400" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD align="right">&nbsp;</TD>
<TD>&nbsp;</TD>
</TR>
<TR>
<TD align="right" colspan="2">
<p align="center">I campi contrassegnati da * sono obbligatori</TD>
</TR>
<TR>
<TD align="right" colspan="2">&nbsp;</TD>
</TR>
<TR>
<TD align="right"><font color="#000000"><b>Nome*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteNome" VALUE="<%=SchedaClienteNome%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>Cognome*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteCognome" VALUE="<%=SchedaClienteCognome%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>Indirizzo*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteIndirizzo" VALUE="<%=SchedaClienteIndirizzo%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>Comune*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteComune" VALUE="<%=SchedaClienteComune%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>C.A.P.*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteCodicePostale" VALUE="<%=SchedaClienteCodicePostale%>" SIZE=5 MAXLENGTH=5 style="font-size: 8 pt">
&nbsp;&nbsp;<b>Provincia* </b> <INPUT TYPE="TEXT" NAME="SchedaClienteProvincia" VALUE="<%=SchedaClienteProvincia%>" SIZE=2 MAXLENGTH=2 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>Telefono*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteTelefono" VALUE="<%=SchedaClienteTelefono%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>Fax</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteFax" VALUE="<%=SchedaClienteFax%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR><TR>
<TD align="right"><font color="#000000"><b>E-mail*</b></font></TD>
<TD><INPUT TYPE="TEXT" NAME="SchedaClienteEmail" VALUE="<%=SchedaClienteEmail%>" SIZE=35 MAXLENGTH=35 style="font-size: 8 pt"></TD>
</TR>
</TABLE>
</center>
</div>
</TD><TD VALIGN="TOP" width="191" height="216">
<div align="center">
<center>
<TABLE CELLPADDING=3 CELLSPACING=0 BORDER=0 width="164" style="border-collapse: collapse" bordercolor="#111111" height="88">
<TR>
<TD WIDTH=20 VALIGN="TOP" height="24">
&nbsp;</TD>
<TD VALIGN="TOP" width="132" height="24">
&nbsp;</TD>
</TR>
<TR>
<TD WIDTH=20 VALIGN="TOP" height="24">
&nbsp;</TD>
<TD VALIGN="TOP" width="132" height="24">
Scegliere un opzione</TD>
</TR>
<TR>
<TD WIDTH=20 VALIGN="TOP" height="20">
<%if SchedaClienteMetodoPagamento="vagliapostale" then
Checked="CHECKED"
else
Checked=""
end if%>
<INPUT TYPE="RADIO" NAME="SchedaClienteMetodoPagamento" VALUE="vagliapostale" <%=Checked%>>
</TD>
<TD VALIGN="middle" width="132" height="20">
<b>Vaglia </b>
<font color="#000000">
<B>&nbsp;postale</B> </font>
</TD>
</TR>
<TR>
<TD WIDTH=20 VALIGN="TOP" height="24">
<%if SchedaClienteMetodoPagamento="spedizioneincontrassegno" then
Checked="CHECKED"
else
Checked=""
end if%>
<INPUT TYPE="RADIO" NAME="SchedaClienteMetodoPagamento" VALUE="spedizioneincontrassegno" <%=Checked%>>
</TD>
<TD VALIGN="middle" width="132" height="24">
<font color="#000000">
<B>Contrassegno</B><BR>
</font>
</TD>
</TR>
</TABLE>
</center>
</div>
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="RIGHT" width="591" height="40">
<INPUT TYPE="image" SRC="icons/order.gif" NAME="acquista" border=0>
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="RIGHT" width="591" height="39" bgcolor="#EAA64A" style="border-top-style: solid; border-top-width: 1">
&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="RIGHT" width="591" bgcolor="#FFFFFF" height="32">
&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="RIGHT" width="591" height="12">
</TD>
</TR>
</TABLE>
</center>
</div>
</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 width="600" style="border-collapse: collapse" bordercolor="#111111" height="663">
<TR><TD align="right" height="29">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" bgcolor="#FFFFFF">
<tr>
<td width="50%" bgcolor="#EAA64A"><img border="0" src="images/intest.jpg"></td>
<td width="50%" bgcolor="#EAA64A">
<img border="0" src="images/private_shop.jpg" align="right"></td>
</tr>
</table>
</center>
</div>
</TD></TR>
<TR><TD align="right" height="15">
<HR color="#000000" size="1">
</TD></TR>
<TR><TD ALIGN=LEFT height="24">
Gentile <%=SchedaClienteNome%>&nbsp;<%=SchedaClienteCognome%>,<BR>
l'ordine numero <B></U><%=IDOrdine%></U></B> &egrave; stato inoltrato con successo.
</TD></TR>
<TR><TD height="12">Gli articoli da lei acquistati sono i seguenti:</TD></TR>
<TR><TD align="left" height="109">
<TABLE border=0 cellspacing=0 cellpadding=3 width="591" style="border-collapse: collapse" bordercolor="#111111" height="105">
<TR>
<TH width="61" height="18"></TH>
<TH width="225" height="18"></TH>
<TH width="101" height="18"></TH>
<TH width="47" height="18"></TH>
<TH width="127" height="18"></TH>
</TR>
<TR>
<TH width="61" height="18" style="border-top-style: solid; border-top-width: 1"><font size=-1>Codice</font></TH>
<TH width="225" height="18" style="border-top-style: solid; border-top-width: 1"><font size=-1>Descrizione</font></TH>
<TH width="101" height="18" style="border-top-style: solid; border-top-width: 1"><font size=-1>Importo &euro;</font></TH>
<TH width="47" height="18" style="border-top-style: solid; border-top-width: 1"><font size=-1>Q.t&agrave;</font></TH>
<TH width="127" height="18" style="border-top-style: solid; border-top-width: 1"><font size=-1>Totale &euro;</font></TH>
</TR>
<%Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoArticolo(i))%>
<TR>
<TD width="61" height="1"><font size=-1><%=ScontrinoCodiceArticolo(i)%></font></TD>
<TD width="225" height="1"><font size=-1><%=ScontrinoDenominazioneArticolo(i)%></font></TD>
<TD align="center" width="101" height="1"><font size=-1><%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%></font></TD>
<TD align="center" width="47" height="1"><font size=-1><%=ScontrinoQuantitativoArticolo(i)%></font></TD>
<TD align="center" width="127" height="1"><font size=-1><%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%></font></TD>
</TR>
<%next%>
<TR>
<TD colspan=5 width="585" height="15" style="border-top-style: solid; border-top-width: 1"><HR size=1 color="#FFFFFF"></TD>
</TR>
<TR>
<TD colspan=4 align=right width="452" height="12"><B>Spese di spedizione &euro;</B></TD>
<TD align=right width="127" height="12"><%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%></TD>
</TR>
<TR>
<TD colspan=4 align=right width="452" height="12"><B>Totale &euro;</B></TD>
<TD align=right width="127" height="12"><%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%></TD>
</TR>
</TABLE>
</TD></TR>
<TR><TD height="12"></TD></TR>
<TR><TD align=left height="12">
Hai scelto di pagare tramite:
</TD></TR>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%><TR>
<TD align=left height="134">
<B>Bonifico&nbsp;bancario</B><BR><BR>
Le coordinate di pagamento sono:<BR>
<table border="0" cellspacing="0">
<TR><TD><B>Beneficiario:</B></TD><TD>Tizio
</TD></TR>
<TR><TD><B>Banca:</B></TD><TD>Banca delle Marche
</TD></TR>
<TR><TD><B>Agenzia:</B></TD><TD>Jesi
</TD></TR>
<TR><TD><B>ABI:</B></TD><TD>60055
</TD></TR>
<TR><TD><B>CAB:</B></TD><TD>03710
</TD></TR>
<TR><TD><B>C/C:</B></TD><TD>765
</TD></TR>
<TR><TD><B>Causale:</B></TD><TD><%=IDOrdine%></TD></TR>
</table>
</TD></TR>
<TR><TD height="12"></TD></TR>
<TR><TD align=left height="12">
La merce sarà spedita alla ricezione del pagamento.
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "vagliapostale" Then%><TR>
<TD align=left height="78">
<b>Vaglia postale</b><BR><BR>
I dati del vaglia postale sono:<BR>
<table border="0" cellspacing="0">
<TR><TD><b>Intestato a:</b></TD><TD>Luigi Colbax
</TD></TR>
<TR><TD><b>Via:</b></TD><TD>Gogna, 185</TD></TR>
<TR><TD><b>Cap:</b></TD><TD>36100</TD></TR>
<TR><TD><b>Città:</b></TD><TD>Vicenza</TD></TR>
<TR><TD><B>Causale:</B></TD><TD><%=IDOrdine%></TD></TR>
</table>
</TD></TR>
<TR><TD height="12"></TD></TR>
<TR><TD align=left height="12">
La merce sarà spedita alla ricezione della ricevuta di pagamento al Fax
0444.325326
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%><TR>
<TD align=left height="12">
<B>Contrassegno</B>
</TD></TR>
<%End if%><TR><TD align=left height="27">
<HR color="#000000" size="1">
Stampa questa pagina e conservala come ricevuta dell'ordine effettuato.</font><BR>
</TD></TR>
<TR><TD align=left height="12">
</TD></TR>
<TR><TD align=left height="12">
<p align="center"><b><a href="elenco_linee.asp">Torna al catalogo</a></b></TD></TR>
<TR>
<TD align=left bgcolor="#EAA64A" height="37" style="border-top-style: solid; border-top-width: 1">
&nbsp;</TD></TR>
</TABLE>
</div>
</FORM>
<%'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "info@et-cetera.it" 'Indirizzo mittente ordini
MailServer = "smtp.aruba.it" 'Indirizzo Mail Server ad esempio

'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'><b>www.luigicolbax.com - Private Shop</b><br><br>"
strMessage = strMessage & "<I>" & Session("SchedaClienteLibreria") & "</I><br><br>"
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & "<br><br>"

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "<b><u>Articolo numero: " & i & "</u></b><br>"
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & "<br>"
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & "<br>"
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & "<br>"
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "<br>"
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & "<br>"
next

strMessage = strMessage & "<br>"
strMessage = strMessage & "SubTotale : " & Importo & "<br>"
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & "<br>"
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & "<br>"
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 & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>




<%
end if
else%>
<H4><a href="elenco_linee.asp">La sessione è scaduta. Torna all'Home Page</a></H4>
<%end if%>
</TD></TR>
<TR><TD align=left>
</TD></TR></table>
</td>
<td width="150" height="100%" valign="top">
<p>&nbsp;</td>
</tr>
</table>

</center>
</div>

</body>

</html>
RispondiQuoting
Giacomino599
Giacomino599
il 6 ottobre 2004 alle 12:11
114 messaggi dal 10 aprile 2003
if SchedaClienteMetodoPagamento="spedizioneincontrassegno" then

session("spesespedizione")=3

esleif SchedaClienteMetodoPagamento="spedizioneincontrassegno"
then

session("spesespedizione")=0
end if

più o meno controlla la sintassi e
fallo prima di salvare
Modificato da Giacomino599 il 06 ottobre 2004 12.12 -
Modificato da Giacomino599 il 06 ottobre 2004 12.42 -
"Essere SAGGI aiuta, nella vita.
Ma io sono fatto a modo mio
non c'è un c***o da fare."
Vasco
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.