modifica carrelo asp

**emilianom** · 18-02-2005, 20:39

ciao ragazzi, devo interfacciare un e-commerce con banca sella però, ho dei problemini

"problemoni" nel modificare la pagina dell'ordine in quanto nn riesco ad ipostarlo in modo ke quando è selezionato il metodo di pagamento con cc mi restituisca il form con l'invio a banca sella.
cioè: qundo è selezionato contrassegno il form deve fare l'invio normale, invece quando è selezionato cc deve inviare a banca sella.
se c'è qualcuno in grado di darmi una mano lo ringranzio in anticipo e se abita balle mie parti gli pago pure una bevuta

il codice originale della pagina asp è il seguente:

----------------------------------------------
<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>Ordine</title>
<link rel="stylesheet" href="indexx.css">
</head>

<body>

<table border="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="308" cellspacing="8" cellpadding="0">
<tr>
<td width="150" height="100%" valign="top">
</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à di pagamento"
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")=SchedaClienteInd irizzo
Session("SchedaClienteCodicePostale")=SchedaClient eCodicePostale
Session("SchedaClienteComune")=SchedaClienteComune
Session("SchedaClienteProvincia")=SchedaClientePro vincia
Session("SchedaClienteTelefono")=SchedaClienteTele fono
Session("SchedaClienteFax")=SchedaClienteFax
Session("SchedaClienteEmail")=SchedaClienteEmail
Session("SchedaClienteMetodoPagamento")=SchedaClie nteMetodoPagamento
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>
<TR><TD align="right">
<FONT size=+2>Conferma ordine</FONT>
<HR>
</TD></TR>
<TR><TD ALIGN=LEFT>
I dati da te inseriti sono i seguenti:
</TD></TR>
<TR><TD ALIGN="left">
<TABLE border=0 cellspacing=0 cellpadding=1>
<TR>
<TD>Nome:</TD>
<TD><%=SchedaClienteNome%></TD>
</TR>
<TR>
<TD>Cognome:</TD>
<TD><%=SchedaClienteCognome%></TD>
</TR>
<TR>
<TD>Indirizzo:</TD>
<TD><%=SchedaClienteIndirizzo%></TD>
</TR>
<TR>
<TD>C.A.P.:</TD>
<TD><%=SchedaClienteCodicePostale%></TD>
</TR>
<TR>
<TD>Comune:</TD>
<TD><%=SchedaClienteComune%></TD>
</TR>
<TR>
<TD>Provincia:</TD>
<TD><%=SchedaClienteProvincia%></TD>
</TR>
<TR>
<TD>Telefono:</TD>
<TD><%=SchedaClienteTelefono%></TD>
</TR>
<TR>
<TD>Fax:</TD>
<TD><%=SchedaClienteFax%></TD>
</TR>
<TR>
<TD>E-mail:</TD>
<TD><%=SchedaClienteEmail%></TD>
</TR>
</TABLE>
</TD></TR>
<TR><TD></TD></TR>
<TR><TD>Hai scelto di acquistare:</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>
La modalità di pagamento selezionata è:
</TD></TR>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%><TR><TD align=left>
Bonificobancario
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%><TR><TD align=left>
Versamento su conto corrente postale
</TD></TR>
<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%><TR><TD align=left>
Contrassegno
</TD></TR>
<%End if%><TR><TD><HR></TD></TR>
<TR><TD align=left>
Confermi l'invio dell'ordine? <INPUT TYPE="image" SRC="icons/confirm.gif" NAME="conferma" border=0 align=center>
</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)*ScontrinoPrezzoA rticolo(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%>

**emilianom** · 18-02-2005, 20:40

<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

**emilianom** · 18-02-2005, 22:09

mi sembra di essere una particella di sodio

**zetaweb** · 18-02-2005, 22:15

controllare tutto il tuo super codice è un'impresa che spaventa molti, me per primo

Se però ho capito il tuo problema, tu vuoi impostare per esempio un elenco a discesa che ti consenta di stabilire se il pagamento sarà tramite carta di credito o contrassegno o altro.

Se ilproblema è questo allora ti basta passare una variabile dall'elenco a discesa e cambiare il form a seconda della variabile.
Es:

<form>
<select name="mod_pagamento">
<option value="1">contr</option>
<option value="2">carta</option>
</select>

e poi fai una condizione di questo tipo

if mod_pagamento = Cint(1) then
mostri il form appropritato
else
mostri l'altro form
end if

Spero di aver afferato il problema

**emilianom** · 18-02-2005, 22:24

si, grande!! è quello ke intendevo spiegare, solo ke ..dove lo devo posizionare tutto ciò? potresti farmi vedere tu?

**emilianom** · 18-02-2005, 22:41

adesso praticamente ho creato due form uguali di nome 1 e 2 il primo è quello norma e il secondo è buello con l'indirizzo di banca sella a qusto punto come dovrebbe essere la sintassi considerando ke io nn ho un muìenu a discedsa ma dei check?
una mano t prego ...sto uscendo pazzo

**emilianom** · 18-02-2005, 23:05

ho provato con questo ma nn va dove sarà l'errore?

if SchedaClienteMetodoPagamento="spedizionecc" then
mostra: formname=2
else
mostra:showformname=1

**zetaweb** · 18-02-2005, 23:26

Ti sconsiglio di usare il checkbox, altrimenti rischi che l'utente possa selezionare tutte e due le opzioni. MEtti un radiobutton, la struttra logica è la stessa, l'importante è recuperare il nome e quindi il valore associato.

Invece che fare

mostra:form2

scrivi tutto il codice dei due form così sei sicuro di non fare errori.

**zetaweb** · 18-02-2005, 23:27

NON usare il checkbox....

**emilianom** · 18-02-2005, 23:33

si infatti mi sono sbagliato in quanto ci sono i radiobotton ma purtroppo nn ho copito bene come devo fare "sono molto inesperto".
cosa intendi quando cici: scrivi tutto il codice dei due form così sei sicuro di non fare errori
mi serve un esempio pratico

Discussione: modifica carrelo asp

Strumenti discussione

Ricerca discussione

Visualizza

modifica carrelo asp

qusto è il resto

Permessi di invio