Invio E-mail Al Cliente

[capitanrossi]

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:

<% 
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:

 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

[Corinna]

Prova un po' così e vedi se ti dà errori

<% 
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'>"?&"</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
%>

[capitanrossi]

Corinna ho seguito il tuo suggerimento...
stavolta proprio non capisco...
è impazzito l'ASP?!?!?!

Ti riposrto l'email che mi è giunta dopo la modifica del codice:

Di seguito ti elenchiamo i dati personali da te inseriti:

Nome:
Cognome:
Indirizzo:
Città:
Provincia:
Cap:
face='Arial' size='2'>N.C. 333333

CIN:

Inviare la distinta a 1/2 fax al numero 333333

Vi auguriamo buon lavoro

Ma perchè?
Ho provato anche a invertire la disposizione delle frasi...

di sicuro è una fesseria...
ma sto impazzendo!

[Corinna]

La mail d'accordo, ma la pagina non ti dà errori?

[capitanrossi]

Sì l'errore è in:

BODY=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Cap: </font><font color='black' face='Arial'  size='2'>"?&"</font>
"

ma l'ho corretto.

Il mio problema è nell'E-MAIL.

[capitanrossi]

Con la correzione del codice ecco il risultato dell'E-Mail, nuovamente diversa..

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          3           105€ 


Di seguito ti elenchiamo i dati personali da te inseriti: 

Nome: 
Cognome: 
Indirizzo: 
(spese di spedizione non incluse)

Giotto Informatica Snc

Banca Sella

ABI: 333333

CCAB: 333333

N.C. 333333

CIN: 

Inviare la distinta a 1/2 fax al numero 0789731067 

Vi auguriamo buon lavoro

AIUTOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

[nekke]

Sono io che non vedo dove tiri fuori i campi nome cognome ecc o
è giusto?

[capitanrossi]

Ho aggiunto questo:

nome=request.form("nome")
cognome=request.form("cognome")
indirizzo=request.form("indirizzo")
comune=request.form("comune")
provincia=request.form("provincia")
cap=request.form("cap")
telefono=request.form("telefono")
fax=request.form("fax")
email=request.form("email")

set db_connection=server.createobject("ADODB.connection")
db_connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\db.mdb")
dim objrecordset
set objrecordset=server.createobject("ADODB.recordset")
objrecordset.open "clienti",db_connection,adOpenKeyset,adLockPessimistic,adCmdTable
objrecordset.addnew

objrecordset.fields("nome")=nome
objrecordset.fields("cognome")=cognome
objrecordset.fields("indirizzo")=indirizzo
objrecordset.fields("comune")=comune
objrecordset.fields("provincia")=provincia
objrecordset.fields("cap")=cap
objrecordset.fields("telefono")=telefono
objrecordset.fields("email")=email

Però ora mi da questo errore:

ADODB.Recordset error '800a0bcd' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/ecommerce/pannello_controllo/admin/invio_bonifico.asp, line 42

la linea 42 del codice è:

rs.movefirst
do while not rs.eof

Si moltiplica il problema!?!?!!

[capitanrossi]

QUASI RISOLTO!

Questo è il codice:

<%
sql="select * from acquisti where id_session = '"&session.SessionID&"' "
set objdbconnection=server.createobject("ADODB.connect ion")
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

nome=request.form("nome")
cognome=request.form("cognome")
indirizzo=request.form("indirizzo")
comune=request.form("comune")
provincia=request.form("provincia")
cap=request.form("cap")
telefono=request.form("telefono")
fax=request.form("fax")
email=request.form("email")


set db_connection=server.createobject("ADODB.connectio n")
db_connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\db.mdb")
dim objrecordset
set objrecordset=server.createobject("ADODB.recordset" )
objrecordset.open "clienti",db_connection,adOpenKeyset,adLockPessimi stic,adCmdTable
objrecordset.addnew

objrecordset.fields("nome")=nome
objrecordset.fields("cognome")=cognome
objrecordset.fields("indirizzo")=indirizzo
objrecordset.fields("comune")=comune
objrecordset.fields("provincia")=provincia
objrecordset.fields("cap")=cap
objrecordset.fields("telefono")=telefono
objrecordset.fields("fax")=fax
objrecordset.fields("email")=email

objrecordset.update
objrecordset.close
set objrecordset=nothing

' CDONTS Email
Set Mail = Server.CreateObject("CDONTS.NewMail")


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'>"&comune&"</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'>CCAB: 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 333333 </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
%>

Questo è come si presenta l'email quando arriva al cliente che ha effettuato l'ordine:

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

PRODOTTO CODICE QUANTITA PREZZO
FELPA1 001 1 35€


Di seguito ti elenchiamo i dati personali da te inseriti:

Nome: Francesco
Cognome: Rossi
Indirizzo: < da te acquistati pe un costo iva compresa di: 35 Eur
(spese di spedizione non incluse)

Ditta

Banca Sella

ABI: 333333

CCAB: 333333

N.C. 333333

CIN:

Inviare la distinta a 1/2 fax al numero 333333

Vi auguriamo buon lavoro.

Come potete notare ha scritto i soli primi 2 campi, ossia nome e cognome, eppure ora il codice dovrebbe essere tutto ok,

RAGAZZI VI PREGO DATEMI UNA MANO

[Corinna]

<%
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

nome=request.form("nome")
cognome=request.form("cognome")
indirizzo=request.form("indirizzo")
comune=request.form("comune")
provincia=request.form("provincia")
cap=request.form("cap")
telefono=request.form("telefono")
fax=request.form("fax")
email=request.form("email")

'ma sei sicuro che questi campi ti arrivino tutti pieni?

'set db_connection=server.createobject("ADODB.connection")
'db_connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\db.mdb") 'non aprire un'altra volta una connessione allo stesso database, non ha senso :E

dim objrecordset
set objrecordset=server.createobject("ADODB.recordset")
objrecordset.open "clienti" ,db_connection,adOpenKeyset,adLockPessim
istic,adCmdTable
objrecordset.addnew

objrecordset.fields("nome")=nome
objrecordset.fields("cognome")=cognome
objrecordset.fields("indirizzo")=indirizzo
objrecordset.fields("comune")=comune
objrecordset.fields("provincia")=provincia
objrecordset.fields("cap")=cap
objrecordset.fields("telefono")=telefono
objrecordset.fields("fax")=fax
objrecordset.fields("email")=email

objrecordset.update
objrecordset.close
set objrecordset=nothing

' CDONTS Email
Set Mail = Server.CreateObject("CDONTS.NewMail")
'cosa crei a fare un oggetto cdonts se poi usi l'oggetto persits?


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'>"&comune&"</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'>CCAB: 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 333333 </font>

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

response.write BODY

'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
%>

Prova a mettere online questa e dimmi cosa ti dice.