Modificare il file: \Ordine\send.asp

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" --> <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> <%@LANGUAGE="VBSCRIPT"%> <% Dim N_Lista N_Lista = request.cookies("Lista") %> <% ogg="no" 'scrivere smart fra le virgolette per usare l'oggetto AspSmartMail, altrimenti no %> <style type="text/css"> <!-- .Stile1 { font-family: verdana; font-size: x-small; font-weight: bold; } --> </style> <% '################################################## ' Visualizza il messaggio di avvenuto acquisto '################################################## %> <script languge="Javascript" type="text/javascript"> <!-- alert("Grazie per aver prenotato utilizzando la nostra LISTA ON-LINE." + '\n' + '\n' + "La procedura d'acquisto è stata eseguita in modo esatto." + '\n' + "L'articolo verrà rimosso dalla lista successivamente." + '\n' + "Grazie"); // --> </script> <!--#include file="Connections/ecommerce.asp" --> <% 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) %> <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" --> <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> <% 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 %> <!-- #include file="aspSmartmailOgg.asp"--> <% 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 %> <!-- #include file="aspSmartmailOggCliente.asp"--> <% end if end if %> <% '**************************************************** '**************************************************** ' INSERIRE LA PULIZIA DEL CARRELLO '**************************************************** '**************************************************** %> <!--#include file="svuCarrello.asp" --> <% 'response.write("<script language='javascript'>function svu() {document.location.href='../Carrello/svuCarrello.asp?fcampo&fcosa';}</script>") response.write("<script language='javascript'>function vai() {document.location.href='../default.asp?az=carrList';}function aziona() { setTimeout(vai,4000);}</script><body onload=javascript:aziona()></body>") %>

[Íàçàä]