<%@LANGUAGE="VBSCRIPT"%>
<%
Dim N_Lista
N_Lista = request.cookies("Lista")
%>
<%
ogg="no" 'scrivere smart fra le virgolette per usare l'oggetto AspSmartMail, altrimenti no
%>
Grazie per aver Prenotato utilizzando la nostra Lista ON-LINE.
Verrà contattato quanto prima per la conferma della prenotazione.
Attendere prego.....
<%
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
while i >= 0
quale=Session("Prodotti"&i)
quanti=Session("Quantita"&i)
if quale <> "" then
Set codpro = Server.CreateObject("ADODB.Recordset")
codpro.ActiveConnection = MM_ecommerce_STRING
codpro.Source = "SELECT * FROM Prodotti WHERE ID="&quale
codpro.CursorType = 0
codpro.CursorLocation = 2
codpro.LockType = 1
codpro.Open()
codpro_numRows = 0
if quanti >1 then
quanti = 1
end if
'*************************************
'************************************
' 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
if quanti >1 then
quanti = 1
end if
'*************************************
'************************************
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 94 R 08344 39210 000008827626"&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, iConf
if ogg<>"smart" then
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
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
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("")
%>