Dim arrQt2, arrIdProd2, arrPrezzo2
arrQt2 = split(Request.Form("quantita"),",")
arrIdProd2 = split(Request.Form("IDProd"),",")
arrPrezzo2 = split(Request.Form("prezzoUnit"),",")

Dim sqlConferma

For k = lbound(arrQt2) To ubound(arrQt2)

Dim sqlProdotto, rsProdotto
sqlProdotto = "SELECT * FROM tbprodotti WHERE IDProdotto ='" & arrIdProd2(k) &"'"

Set rsProdotto= objConn.Execute(sqlProdotto)

'descAcquisti = CStr(descAcquisti + " Art:"+ arrIdProd2(k) + "-Qt:"+ arrQt2(k) + "; ")
sqlConferma = "INSERT INTO tbacquisti (IDCliente, Articolo, Quantita, PrezzoUnitario, Totale, DataOra) " &_
"VALUES (" & cliente & ", '" & rsProdotto("MarcaProdotto") + " " + rsProdotto("ModelloProdotto") & "', " & arrQt2(k) & ", " & Cdbl(arrPrezzo2(k)) & ", " & CDbl(arrPrezzo2(k) * arrQt2(k)) & ", NOW())"

'response.Write(sqlConferma):response.End()
objConn.Execute(sqlConferma)

Next




'***********************************
'INVIO MAIL

Dim sqlMail, rsMail
sqlMail = "SELECT * FROM tbclienti WHERE IDCliente ='" & cliente &"'"

Set rsMail = objConn.Execute(sqlMail)

If Not rsMail.EOF Then

Dim mail
Set mail = Server.CreateObject("CDO.Message")

mail.From = rsMail("Email")
mail.To = "xxx@tin.it"

mail.Subject = "Ordine Cliente - Data : " & Now()

mail.TextBody = "ID Cliente : " & rsMail("IDCliente") & vbCrlf & vbCrlf &_
"Nome : " & rsMail("NomeCliente") & vbCrlf &_
"Cognome : " & rsMail("CognomeCliente") & vbCrlf &_
"Azienda : " & rsMail("Azienda") & vbCrlf &_
"Partita IVA : " & rsMail("PartitaIVA") & vbCrlf &_
"Indirizzo : " & rsMail("Indirizzo") & vbCrlf &_
"Citta : " & rsMail("Citta") & vbCrlf &_
"Provincia : " & rsMail("Provincia") & vbCrlf &_
"Cap : " & rsMail("Cap") & vbCrlf &_
"Nazione : " & rsMail("Nazione") & vbCrlf &_
"Telefono : " & rsMail("Telefono") & vbCrlf &_
"Fax : " & rsMail("Fax") & vbCrlf & vbCrlf &_
"Materiale Ordinato : "

'INSERIRE MATERIALE ORDINATO
mail.Fields("urn:schemas:httpmail:importance").Val ue = 2
mail.Fields("urn:schemas:mailheader:X-Priority").Value = 2
mail.Fields.Update()
mail.Send()
Set mail = Nothing

End If

rsMail.close
Set rsMail = Nothing

rsProdotto.close
Set rsProdotto = Nothing
************************************************** ***
Vorrei inserire un ciclo For che recuperi i valori da un db e me li inserisca nel corpo della mail, come posso fare?