<% 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")=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 %>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%> <%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%> <%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%> <%End if%>
Conferma ordine
I dati da te inseriti sono i seguenti:
Nome: <%=SchedaClienteNome%>
Cognome: <%=SchedaClienteCognome%>
Indirizzo: <%=SchedaClienteIndirizzo%>
C.A.P.: <%=SchedaClienteCodicePostale%>
Comune: <%=SchedaClienteComune%>
Provincia: <%=SchedaClienteProvincia%>
Telefono: <%=SchedaClienteTelefono%>
Fax: <%=SchedaClienteFax%>
E-mail: <%=SchedaClienteEmail%>
 
Hai scelto di acquistare:
<%Importo=0 for i = 1 to QuantiArticoliInScontrino Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoArticolo(i))%> <%next%>
Codice Descrizione Importo Q.tà Totale

<%=ScontrinoCodiceArticolo(i)%> <%=ScontrinoDenominazioneArticolo(i)%> <%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%> <%=ScontrinoQuantitativoArticolo(i)%> <%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%>

Spese di spedizione € <%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%>
Totale € <%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%>
 
La modalità di pagamento selezionata è:
Bonifico bancario
Versamento su conto corrente postale
Contrassegno

Confermi l'invio dell'ordine?    
<% 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 %>
Nome
Cognome
Indirizzo
Comune
C.A.P.   Provincia
Telefono
Fax
E-mail
<%if SchedaClienteMetodoPagamento="bonificoincontocorrentebancario" then Checked="CHECKED" else Checked="" end if%> > Bonifico bancario
<%if SchedaClienteMetodoPagamento="versamentoincontocorrentepostale" then Checked="CHECKED" else Checked="" end if%> > Versamento postale
<%if SchedaClienteMetodoPagamento="spedizioneincontrassegno" then Checked="CHECKED" else Checked="" end if%> > Contrassegno
<% 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 %>
<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%> <%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%> <%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%> <%End if%>
Riepilogo ordine
Gentile <%=SchedaClienteNome%> <%=SchedaClienteCognome%>,
l'ordine numero <%=IDOrdine%> è stato inoltrato con successo.
Gli articoli da lei acquistati sono i seguenti:
<%Importo=0 for i = 1 to QuantiArticoliInScontrino Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoArticolo(i))%> <%next%>
Codice Descrizione Importo € Q.tà Totale €

<%=ScontrinoCodiceArticolo(i)%> <%=ScontrinoDenominazioneArticolo(i)%> <%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%> <%=ScontrinoQuantitativoArticolo(i)%> <%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%>

Spese di spedizione € <%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%>
Totale € <%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%>
 
Hai scelto di pagare tramite:
Bonifico bancario

Le coordinate di pagamento sono:
Beneficiario:Tizio
Banca:Banca delle Marche
Agenzia:Jesi
ABI:60055
CAB:03710
C/C:765
Causale:<%=IDOrdine%>
 
La merce sarà spedita alla ricezione del pagamento.
Versamento su conto corrente postale

I dati del versamento sono:
Conto corrente numero:6665
Intestato a:Tizio
Causale:<%=IDOrdine%>
 
La merce sarà spedita alla ricezione del pagamento.
Contrassegno

Stampa questa pagina e conservala come ricevuta dell'ordine effettuato.
<%'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 = "TUO NOME

" strMessage = strMessage & "" & Session("SchedaClienteLibreria") & "

" strMessage = strMessage & "Ordine n." & IDOrdine & "." strMessage = strMessage & Session("SchedaClienteAgente") & "

" for i = 1 to QuantiArticoliInScontrino strMessage = strMessage & "Articolo numero: " & i & "
" 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 & "
" 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%>

    La sessione è scaduta. Torna all'Home Page

    <%end if%>