<%

  Dim SQLnews4, RSnews4, emailcliente4,cliente4,idsession4,fotopiccola,articolo
  Conn.execute ("SET NAMES utf8")
  set RSnews4 = Server.CreateObject("ADODB.Recordset")
  SQLnews4 = " SELECT DISTINCT IDSessione FROM carrello WHERE DataAggiunta = (CURDATE() - interval 2 day) AND carrello.carrello_email <> '0' AND carrello.carrello_lingua = 'it' "
  
  Set RSnews4 = Conn.Execute(SQLnews4)
  If Not RSnews4.EOF Then
  
  RSnews4.MoveFirst
  Do While Not RSnews4.EOF
  
    set RSnews5 = Server.CreateObject("ADODB.Recordset")
    SQLnews5 = " SELECT carrello.*, prodotti.PFoto, prodotti.Prodotto FROM carrello INNER JOIN prodotti ON carrello.IDProdotto = prodotti.ID WHERE carrello.IDSessione = '"& RSnews4("IDSessione")&"'"
    Set RSnews5 = Conn.Execute(SQLnews5)

      If Not RSnews5.EOF Then
      RSnews5.MoveFirst
      
      Do While Not RSnews5.EOF
      emailcliente4 = RSnews5("carrello_email")
      cliente4 =  RSnews5("carrello_cognome")
      idsession4 =  RSnews5("IDSessione")
      fotopiccola =  RSnews5("PFoto")
      articolo =  RSnews5("prodotto")

%>

<!--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" -->

<%

      DIM corpoMessaggio, numeroCampi, invioA, invioDa, mc3

      invioA =  emailcliente4
      mc3 = "mail@mail.it"


      invioDa =  "mail@mail.it"

        '*rilevo i campi del form
        
      FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
         IF NOT Request.Form(numeroCampi) = "" THEN
          corpoMessaggio = corpoMessaggio & "<br>" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
         END IF
      NEXT

        '* creo gli oggetti cdosys sul server e li gestisco
        
      DIM iMsg, Flds, iConf,UserID2,Cognome2,Nome2,Mail2,PuntiSconto3

      Set iMsg = CreateObject("CDO.Message")
      Set iConf = CreateObject("CDO.Configuration")
      Set Flds = iConf.Fields

      Flds(cdoSendUsingMethod) = cdoSendUsingPort
      Flds(cdoSMTPServer) = "smtp.mail.it" 
      Flds(cdoSMTPServerPort) = 25
      Flds(cdoSMTPAuthenticate) = cdoBasic
      Flds(cdoSendUserName) = "mail@mail.it"
      Flds(cdoSendPassword) = "password"
      Flds.Update


      With iMsg

         Set .Configuration = iConf
         .To = invioA
         .bcc = mc3
         .From = invioDa
         .Sender = invioDa
         .bodypart.charset = "UTF-8"
         .Subject = "" & cliente4 & ", il tuo carrello ti sta aspettando!"
        .HTMLBody = .HTMLBody & "<style type=""text/css""></style>" & vbCRLF & ""

        .HTMLBody = .HTMLBody & "<font face=Arial size=3><a href=""https://......""><b>"&articolo&"</b></a>:" & vbCRLF & "" 
        
        .HTMLBody = .HTMLBody & "</table>" & vbCRLF & "<br><br>"

         .Send
      End With

%>

<%
  RSnews5.MoveNext
  Loop
  Else
  END IF
%>
<%
  RSnews4.MoveNext
  Loop
  Response.write "- Email inviata <br><br>"
  Else
  Response.write "- Email non inviata<br><br>"
  END IF
%>

.HTMLBody = .HTMLBody & "<font face=Arial size=3><a href=""https://......""><b>"&articolo&"</b></a>:" & vbCRLF & ""