Ciao ragazzi,
vi vorrei chiedere se sapreste risolvermi questo problema:
io ho un "carrello della spesa" per l'e-commerce, dovrei creare con questo il contenuto di un'e-mail di conferma.. come devo impostare lo script per l'invbio e-mail? Scorrendo il carrello con un ciclo, come faccio ad impostare il corpo dell'e-mail?
Spero che sappiate aiutarmi, grazie

Scusa, quello che mi hai suggerito va bene, ma mi ritrovo con un altro problema: non mi visualizza il contenuto del carrello, anzi, mi mostra che il carrello è vuoto... io prendo i dati di quest'ultimo da una pagina di conferma, dalla quale invio il modulo, contenente i dati del carrello più altri, con un POST.. poi non mi mostra più niente.. la cosa strana è che fuori dal ciclo c'è un altro dato, che è il totale complessivo dell'ordine, e quello lo visualizza correttamente... come mai non visualizza gli articoli? è come se fossero "scomparsi" da una pagina all'altra...
Ti allego anche il codice della pagina di invio e-mail:


<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From= request("Email")
CorpoMessaggio="Sono stati inviati i seguenti dati:" &Vbcrlf &Vbcrlf &_
"Dati cliente: " &Vbcrlf &Vbcrlf &_
"Indirizzo E-Mail: " &request("Email") &Vbcrlf &_
"Carta di credito: " &request("Carta") &Vbcrlf &_
"Numero: " &request("NumCarta") &Vbcrlf &Vbcrlf &_
"Ordine: " &Vbcrlf &Vbcrlf

For i=0 to ubound (CCcart,2)
if CCcart(CC_PRODUCTID,i) <> "" then
CorpoMesssaggio = CorpoMessaggio &CCcart(CC_Name,i) &" " &"Quantità: " &CCcart(CC_Quantity,i) &" " &"Prezzo complessivo: " &" " &FormatCurrency(CCcart_LineTotal, -1, -2, -2, -2) &Vbcrlf
end if
next


CorpoMessaggio = CorpoMessaggio &Vbcrlf &_
FormatCurrency(CCcart_SubTotal, -1, -2, -2, -2)

objMail.Body=CorpoMessaggio
objMail.To="dest@prova.it"
objMail.Cc= request("Email")
objMail.Subject="Prova invio e-mail"
objMail.Send
set objMail = nothing
response.write "Invio e-mail effettuato con successo"
%>



prendo i dati del carrello da un altro file, nel quale c'è questo codice:



<%
CONST CC_ProductID = 0
CONST CC_Quantity = 1
CONST CC_Name = 2
CONST CC_Price = 3
CONST CC_UniqueKey = 4
if Request.Cookies("CharonCart") = "" then
dim CCcart(5,50)
else
CCcart=CookieToCart("CharonCart")
end if

CCcart_SubTotal=0
CCcart_numItems=0
CCcart_Shipping=0
CCcart_Discount=0
CCcart_SalesTax=0
isFound=false
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) <> "" then
isFound=true
CCcart_SubTotal=CCcart_SubTotal + (CCcart(CC_Quantity,i)*CCcart(CC_Price,i))
CCcart_numItems=CCcart_numItems + 1
end if
next
function CCcart_LineTotal
CCcart_LineTotal=CCcart(CC_Quantity,i)*CCcart(CC_Price,i)
end function
function CCcart_GrandTotal
CCcart_GrandTotal=CCcart_SubTotal + CCcart_Shipping + CCcart_SalesTax - CCcart_Discount
end function

function CartToCookie(thearray,cookiename)
on error resume next
mystring=""
for j=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,j) <> "" then
for i=0 to 5
mystring=mystring & CCcart(i,j) & "^"
next
mystring=left(mystring,len(mystring)-1)
mystring=mystring & "|"
end if
next
mystring=left(mystring,len(mystring)-1)
Response.Cookies(cookiename)=mystring
end function

function CookieToCart(cookiename)
dim myarray(5,50)
mystring=Request.Cookies(cookiename)
productarray=split(mystring,"|")
for j=0 to ubound(productarray)
itemarray=split(productarray(j),"^")
for i=0 to 5
if itemarray(i) <> "" then
myarray(i,j)=itemarray(i)
else
myarray(i,j)=null
end if
next
next
CookieToCart=myarray
end function

%>

Quale può essere il problema?
Grazie, ciao