Shop

Controlla che tutti i tuoi dati personali da te inseriti siano corretti, che l'ordine corrisponda e che il metodo di pagamento sia quello desiderato. Poi clicca sul bottone conferma.

I dati da te inseriti sono i seguenti:

<%if SchedaClienteFax="" then SchedaClienteFax ="---" end if %> <%if SchedaClienteTelefono="" then SchedaClienteTelefono ="---" end if %> <%if SchedaClienteEmail="" then SchedaClienteEmail ="---" end if %>

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)%>

Subtotale: €	<%=FormatNumber((Importo), 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 è:

<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%>

Bonifico bancario

<%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%>

Versamento su conto corrente postale

<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%>

Contrassegno

<%End if%>

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") '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)) if SchedaClienteMetodoPagamento="bonificoincontocorrentebancario" then SpeseDiSpedizione = 5 ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then SpeseDiSpedizione = 10 End if 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 dim numordine numordine = IDOrdine '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 %>

Compila il form sottostante con i tuoi dati.
Ai fini di una corretta transizione è importante che i dati siano esatti.

I campi contrassegnati da * sono obbligatori.

*Nome:
*Cognome:
*Indirizzo:
*Comune:
*C.A.P.:
*Provincia:
Telefono:
Fax:
E-mail:
	Scegli la modalità di pagamento:
<%if SchedaClienteMetodoPagamento="bonificoincontocorrentebancario" then Checked="CHECKED" else Checked="" end if%> >	Bonifico bancario
<%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") SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento") ID = session("ID") ID=ID+1 session("ID") = ID IDOrdine = Session.SessionID & "." & cstr(ID) Session("IDOrdine") = IDOrdine %>

1.Scelta articoli » 2.Inserimento dati » 3.Conferma dell'ordine

Ordine inoltrato - Riepilogo

<%if SchedaClienteMetodoPagamento="bonificoincontocorrentebancario" then SpeseDiSpedizione = 5 ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then SpeseDiSpedizione = 10 End if %>

Gentile <%=SchedaClienteNome%> <%=SchedaClienteCognome%>, l'ordine numero <%=numordine%> è stato inoltrato con successo.

Gli articoli 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)%>

Subtotale: €	<%=FormatNumber((Importo), 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:

<%If SchedaClienteMetodoPagamento = "bonificoincontocorrentebancario" Then%>

Bonifico bancario

Le coordinate per il pagamento sono:

Beneficiario:		GLOBO s.r.l.
Banca:		Monte dei Paschi di Siena
Agenzia:		Trieste
ABI:		01030
CAB:		02200
C/C:		495134
CIN:		J
Causale:		Ordine on-line n° <%=numordine%>

La merce giungerà a destinazione entro 7 giorni lavorativi dalla data di ricezione del pagamento.

<%ElseIf SchedaClienteMetodoPagamento = "versamentoincontocorrentepostale" Then%>

Versamento su conto corrente postale

I dati per il versamento sono:

Conto corrente numero:	000000
Intestato a:	GLOBO s.r.l.
Causale:	<%=IDOrdine%>

La merce sarà spedita alla ricezione del pagamento.

<%ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then%>

Contrassegno

<%End if%> <% if SchedaClienteEmail <>"" then %>

Riceverai una e-mail all'indirizzo <%=SchedaClienteEmail%> con il riepilogo dell'ordine effettuato.

<%else End if %>

Stampa questa pagina e conservala come ricevuta dell'ordine effettuato.

<%'invio ordine per email dim strMailServer, strRecipients, strSender, strSubject, strMessage MailOrder = "info@globo.trieste.it" 'Indirizzo mittente ordini '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 e-shop Globo n." & numordine strMessage = strMessage &":: RIEPILOGO ORDINE SHOP ON-LINE GLOBO ::

" strMessage = strMessage &"Ordine n." & numordine & "" strMessage = strMessage &"

Dati cliente

" strMessage = strMessage &"Nome: "& Session("SchedaClienteNome") & "
" strMessage = strMessage &"Cognome: "& Session("SchedaClienteCognome") & "
" strMessage = strMessage &"Indirizzo: "& Session("SchedaClienteIndirizzo") & "
" strMessage = strMessage &"C.A.P.: "& Session("SchedaClienteCodicePostale") & "
" strMessage = strMessage &"Comune: "& Session("SchedaClienteComune") & "
" strMessage = strMessage &"Provincia: "& Session("SchedaClienteProvincia") & "
" strMessage = strMessage &"Telefono: "& Session("SchedaClienteTelefono") & "
" strMessage = strMessage &"Fax: "& Session("SchedaClienteFax") & "
" strMessage = strMessage &"e-mail: "& Session("SchedaClienteEmail") & "


" strMessage = strMessage &"

---

" strMessage = strMessage &"

Dettaglio ordine:

" 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) & " euro
" strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "
" strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & " euro
" next strMessage = strMessage & "

---

" strMessage = strMessage & "
" strMessage = strMessage & "Sub Totale : " & FormatNumber(Importo, 2, -1, 0, -1) & " euro
" strMessage = strMessage & "Spese di Spedizione: " & FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1) & " euro
" strMessage = strMessage & "Totale Ordine : " & FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1) & " euro
" strMessage = strMessage & "

---

" strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & "" DIM iMsg, Flds, iConf Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "smtp.aruba.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = strRecipients .From = strSender .Sender = MailOrder .Subject = strSubject .HTMLBody = strMessage .Send End With %> <% end if else%>

La sessione è scaduta. Torna al catalogo

<%end if%>