|
<%
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
%>
<%
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
%>
<%'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%>
<%end if%>
|
|
|
|