storia
shop
personaggi
link
contatti
home page
Attività
esposizioni
Congressi
Servizi
-
GLOBO divulgazione scientifica

AREA
Science Park, Padriciano 99
34012 Trieste
Tel:
040.3755565
040.3755567
Fax:
040.398987
..

Home » Shop » Carrello acquisti » Ordine

Shop

<% 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") SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento") ID = session("ID") ID=ID+1 session("ID") = ID IDOrdine = Session.SessionID & "." & cstr(ID) Session("IDOrdine") = IDOrdine if SchedaClienteMetodoPagamento="bonificoincontocorrentebancario" then SpeseDiSpedizione = 5 ElseIf SchedaClienteMetodoPagamento = "spedizioneincontrassegno" Then SpeseDiSpedizione = 10 End if %>

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

Conferma dell'ordine

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

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

Inserimento dei dati per la spedizione

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