Ciao ragazzi,
ho realizzato uno script per l'invio del riepilogo dell'ordine al cliente e ho fatto in modo che gli arrivi, nell'e-mail, anche il metodo di pagamento (in questo caso BONIFICO BANCARIO).

Ecco il codice:

codice:
<% 
sql="select * from acquisti where id_session = '"&session.SessionID&"' "
set objdbconnection=server.createobject("ADODB.connection")
objdbconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\db.mdb")
set rs=objdbconnection.execute(sql)

body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Hai effettuato un ordine dal sito www.dominio.it 
Di seguito ti elenchiamo i prodotti da te acquistati: </font>

"
body=body&"<table style='font-family:arial; font-size:11px'>"
body=body&"<tr align=center bgcolor=fec206 width=500>"
body=body&"<td>PRODOTTO</td>"
body=body&"<td>CODICE</td>"
body=body&"<td>QUANTITA</td>"
body=body&"<td>PREZZO</td>"
body=body&"</tr>"

rs.movefirst
do while not rs.eof

tot=rs("prezzo")*rs("quantita")

body=body&"<tr align=center>"
body=body&"<td>"&rs("nome")&"</td>"
body=body&"<td>"&rs("codice")&"</td>"
body=body&"<td>"&rs("quantita")&"</td>"
body=body&"<td>"&replace(tot,".",",")&"€</td>"
body=body&"</tr>"

totale=totale+tot
rs.movenext
loop 
rs.close
objdbconnection.close

body=body&"</table>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Di seguito ti elenchiamo i dati personali da te inseriti: </font>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Nome: </font><font color='black' face='Arial'  size='2'>"&nome&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Cognome: </font><font color='black' face='Arial'  size='2'>"&cognome&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Indirizzo: </font><font color='black' face='Arial'  size='2'>"&indirizzo&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Città: </font><font color='black' face='Arial'  size='2'>"&citta&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Provincia: </font><font color='black' face='Arial'  size='2'>"&provincia&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Cap: </font><font color='black' face='Arial'  size='2'>"&cap&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Telefono: </font><font color='black' face='Arial'  size='2'>"&telefono&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Email: </font><font color='black' face='Arial'  size='2'>"&email&"</font>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Riceverete una telefonata da un ns operatore per conferma ordine.
"
body=BODY&"<font color='black'  face='Arial' size='2'>Questi sono i prodotti da te acquistati pe un costo iva compresa di: <font color=red>"&totale+spese_spedizione&" Eur</font>
(spese di spedizione non incluse)</font>

"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>Ditta
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>Banca Sella
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>ABI: 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>CAB: 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>N.C. 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>CIN: 
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>Inviare la distinta a 1/2 fax al numero 3333333 </font>

"
body=body&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Vi auguriamo buon lavoro</font>"

If Request("invia") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")


Mail.Host = "mail.dominio.it"
Mail.From = "info@dominio.it"
Mail.FromName = "DOMINIO.it"
Mail.AddAddress Request("email")

Mail.Subject = "Nuovo acquisto da www.dominio.it"
Mail.Body = Body
Mail.IsHTML = True 
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Il problema è:

l'EMail contiene queti dati, che non sono tutti, ma solo una parte:

codice:
 Hai effettuato un ordine dal sito www.dominio.it 
Di seguito ti elenchiamo i prodotti da te acquistati: 

PRODOTTO      CODICE      QUANTITA      PREZZO 
FELPA 1        001          1            35€ 
FELPA 2        001          1            35€


Di seguito ti elenchiamo i dati personali da te inseriti: 

Nome: 
Cognome: 

Ditta

Banca Sella

ABI: 333333

CAB: 333333

N.C. 333333

CIN: 

Inviare la distinta a 1/2 fax al numero 333333

Vi auguriamo buon lavoro
Che fine hanno fatto i dati tipo: nome, cognome, indirizzo, email..ecc.???
Perchè non li scrive, dove sto sbagliando?

Grazie a chiunque voglia aiutarmi.

ilcapitanrossi