<%@LANGUAGE="VBSCRIPT"%> <% Dim N_Lista N_Lista = request.cookies("Lista") %> <% ogg="no" 'scrivere smart fra le virgolette per usare l'oggetto AspSmartMail, altrimenti no %> <% '################################################## ' Visualizza il messaggio di avvenuto acquisto '################################################## %> <% response.Cookies("DaMaSOFTLista")("Nome")=Request.Form("Nome") response.Cookies("DaMaSOFTLista")("Cognome")=Request.Form("Cognome") response.Cookies("DaMaSOFTLista")("Telefono1")=Request.Form("Telefono1") response.Cookies("DaMaSOFTLista")("Telefono2")=Request.Form("Telefono2") response.Cookies("DaMaSOFTLista")("Email")=Request.Form("Email") response.Cookies("DaMaSOFTLista")("Messaggio")=Request.Form("Messaggio") response.Cookies("DaMaSOFTLista")("Lista")=request.cookies("Lista") Response.Cookies("DaMaSOFTFreeForum1").Expires = DateAdd("d", 30, Date) %> <% i=Session("Contatore") bod="----------------------------------------"&vbCrLf&vbCrLf&"Elenco prodotti ordinati: "&vbCrLf&vbCrLf Dim codpro Dim codpro_numRows Dim iConf while i >= 0 quale=Session("Prodotti"&i) quanti=Session("Quantita"&i) if quale <> "" then Set codpro = Server.CreateObject("ADODB.Recordset") 'Set Flds = iConf.Fields codpro.ActiveConnection = MM_ecommerce_STRING codpro.Source = "SELECT * FROM Prodotti WHERE ID="&quale codpro.CursorType = 0 codpro.CursorLocation = 2 codpro.LockType = 1 codpro.Open() 'Flds(cdoSendUsingMethod) = cdoSendUsingPort 'Flds(cdoSMTPServer) = "smtp.martinucci-regali.com" 'Flds(cdoSMTPServerPort) = 25 'Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 'Flds.Update codpro_numRows = 0 '************************************* '************************************ ' INSERIRE DESCRIZIONE bod=bod&"- ("&quanti&") - "&(codpro.Fields.Item("Cod").Value)&" - "&(codpro.Fields.Item("Descrizione").Value)&" - ("&(codpro.Fields.Item("Prezzo").Value)&" - Euro)"&vbCrLf prodConf=prodConf&quanti&" - "&(codpro.Fields.Item("Nome").Value)&" - "&(codpro.Fields.Item("Prezzo").Value)&" Euro Cad."&vbCrLf codpro.Close() Set codpro = Nothing end if i=i-1 wend x=Session("Contatore") Dim codpro2 Dim codpro2_numRows while x >= 0 quale=Session("Prodotti"&x) quanti=Session("Quantita"&x) if quale <> "" then Set codpro2 = Server.CreateObject("ADODB.Recordset") codpro2.ActiveConnection = MM_ecommerce_STRING codpro2.Source = "SELECT * FROM Prodotti WHERE ID="&quale codpro2.CursorType = 0 codpro2.CursorLocation = 2 codpro2.LockType = 1 codpro2.Open() codpro2_numRows = 0 '************************************* '************************************ bod2=bod2&"- ("&quanti&") - "&(codpro2.Fields.Item("Cod").Value)&" - "&(codpro2.Fields.Item("Descrizione").Value)&" - ("&(codpro2.Fields.Item("Prezzo").Value)&" - Euro)"&vbCrLf prodConf2=prodConf2&quanti&" - "&(codpro2.Fields.Item("Nome").Value)&" - "&(codpro2.Fields.Item("Prezzo").Value)&" Euro Cad."&vbCrLf codpro2.Close() Set codpro2 = Nothing end if x=x-1 wend 'bod2="Messaggio:"&vbCrLf&request.form("Messaggio")&vbCrLf&"Metodo di pagamento: "&request.Form("MetodoPag")&vbCrLf&" IBAN: IT 94 R 08344 39210 000008827626"&vbCrLf&"EU IBAN: IT94 R083 4439 2100 0000 8827 626"&vbCrLf&vbCrLf&prodConf&vbCrLf&vbCrLf&"Totale= "&Request.Form("TotaleConIva") 'bod2="Messaggio:"&vbCrLf&request.form("Messaggio")&vbCrLf&"Metodo di pagamento: "&request.Form("MetodoPag")&vbCrLf&"Se hai scelto come metodo di pagamento"&vbCrLf&"il Bonifico Bancario utilizza queste coordinate:"&vbCrLf&"=================================================="&vbCrLf&" IBAN: IT 94 R 08344 39210 000008827626"&vbCrLf&"=================================================="&vbCrLf&vbCrLf&prodConf&vbCrLf&vbCrLf&"Totale= "&Request.Form("TotaleConIva") 'bod1=""&vbCrLf&"Messaggio:"&vbCrLf&request.form("Messaggio")&vbCrLf&""&vbCrLf&"Metodo di pagamento: "&request.Form("MetodoPag")&""&vbCrLf&"(Se hai scelto come metodo di pagamento"&vbCrLf&"il Bonifico Bancario utilizza queste coordinate)"&vbCrLf&"==================================="&vbCrLf&" IBAN: IT 94 R 08344 39210 000008827626"&vbCrLf&"==================================="&vbCrLf&vbCrLf bod1=""&vbCrLf&"Messaggio:"&vbCrLf&request.form("Messaggio")&vbCrLf&""&vbCrLf&"Metodo di pagamento: "&request.Form("MetodoPag")&""&vbCrLf&"(Se hai scelto come metodo di pagamento"&vbCrLf&"il Bonifico Bancario utilizza queste coordinate)"&vbCrLf&"==================================="&vbCrLf&" IBAN: IT 91 Y 08327 39060 000000703559"&vbCrLf&vbCrLf&"###################################"&vbCrLf&"UNA VOLTA EFFETTUATO IL PAGAMENTO,"&vbCrLf&"NON E' NECESSARIO INVIARE COPIA DELLA"&vbCrLf&"RICEVUTA DEL BONIFICO BANCARIO"&vbCrLf&"###################################"&vbCrLf&vbCrLf&"==================================="&vbCrLf&vbCrLf DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, pre '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** 'invioA = "damasoft@yahoo.it"'proprio indirizzo di posta invioA = "martinucci@martinucci-regali.com"'proprio indirizzo di posta '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** invioDa = "martinucci@martinucci-regali.com"'proprio indirizzo di posta (facoltativo) FOR numeroCampi = 1 TO (Request.Form.Count() - 1) IF NOT Request.Form(numeroCampi) = "" THEN corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & ":" &vbCrLf& Trim(Request.Form(numeroCampi)) & vbCrLf END IF NEXT DIM iMsg, Flds if ogg<>"smart" then Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "smtp.martinucci-regali.com" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioA .From = invioA .Sender = invioDa ' ********************************************** .Subject = "Prenotazione Lista Nascita: " & N_Lista '*********************************************** .TextBody ="Lista: "&N_Lista &vbCrLf& "******** DATI ORDINE ******** " & vbCrLf & " " & corpoMessaggio & "" & bod &"" .Send End With else %> <% end if '============================================ ' E' stata richiesta la conferma dell'invio '============================================ if request.Form("Conferma") = "Si" then DIM corpoMessaggio2, numeroCampi2, invioA2, invioDa2, nomeDominio2, indirizzoIp2, modulo2, browserSistemaOperativo2, pre2 invioA2 = Request.Form("Email") invioDa2 = invioDa FOR numeroCampi2 = 1 TO (Request.Form.Count() - 1) IF NOT Request.Form(numeroCampi2) = "" THEN corpoMessaggio2 = corpoMessaggio2 & vbCrLf & Request.Form.Key(numeroCampi2) & ":" &vbCrLf& Trim(Request.Form(numeroCampi2)) & vbCrLf END IF NEXT if ogg<>"smart" then DIM iMsg2, Flds2, iConf2 Set iMsg2 = CreateObject("CDO.Message") Set iConf2 = CreateObject("CDO.Configuration") Set Flds2 = iConf2.Fields Flds2(cdoSendUsingMethod) = cdoSendUsingPort Flds2(cdoSMTPServer) = "smtp.martinucci-regali.com" Flds2(cdoSMTPServerPort) = 25 Flds2(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds2.Update With iMsg2 Set .Configuration = iConf2 .To = invioA2 .From = invioDa .Sender = invioDa2 .Subject = "Ordine Lista di nascita: "& N_Lista .TextBody = "Lista: "&N_Lista & vbCrLf & vbCrLf & "Gentile "&request.form("Nome")&" "&Request.Form("Cognome")&"," & vbCrLf & "grazie per aver effettuato l'ordine presso di noi, di seguito i dettagli dell'ordinazione: " & vbCrLf &"" & bod1 &""& bod2 &""& vbCrLf &"Totale= "&Request.Form("TotaleConIva") .Send End With else %> <% end if end if %> <% '**************************************************** '**************************************************** ' INSERIRE LA PULIZIA DEL CARRELLO '**************************************************** '**************************************************** %> <% 'response.write("") response.write("") %>