Per completare l'acquisto indicare: nome, cognome, l'indirizzo, telefono, e-mail, selezionare la modalità di pagamento.
Vi preghiamo nel compilare l'ordine di non inserire apostrofi
( ' ) ma lasciare uno spazio.
Potrebbe verificarsi l'esigenza di contattarvi per conferma dell'ordine: vi preghiamo quindi di includere tra i dati anche il telefonico o l'e-mail.
|
<%
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(".") & "\_private\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")=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
%>
<%
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%>
<%=INFO_EMPTYFIELDS%> <%End If %> <% 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 %> <% end if else%> La sessione è scaduta. Torna all'Home Page<%end if%> |
- Scegli la modalità di Pagamento più adeguata alle tue esigenze:
Contrassegno (alla consegna), Bonifico,
Carta di credito.
Ai sensi della legge 675/96 si comunica che i dati inviati verranno utilizzati ad esclusivo uso interno.
Il consumatore può esercitare il diritto di recesso (D.Lgs n.185 del 22/05/ 1999).
torna a:
Avalon Shopping
Avalon - il Mondo delle fate e Medioevo -
Avalon - il Mondo delle fate e Medioevo -
Avalon /Libreria Editoriale Sibilla - Via Sant Ugo, 6 R - 16135 Genova Tel. 010.27.23.934 - cell. 347.76.24.107
P.IVA 01503840991 CCIAA. 414855 .
Aut. vendita preziosi tramite Internet Estremi Lic.:Cat. 14/E - nr. 2/2005