Prova a usare questo codice ho spostato la chiusura del recordset che usi per leggere i dati del cliente.


codice:
<% 
data=date() 
nominativo=Request.Form("nominativo") 
contrassegno=Request.Form("contrassegno") 
bonifico=Request.Form("bonifico") 
sicurezza=Request.Form("sicurezza") 
totale=Request.Form("totale") 
Set Conn=Server.CreateObject("ADODB.Connection") 

strConn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/balotti.mdb") 

Conn.Open (strConn) 
strSql = "SELECT * FROM accut where nome='"&nominativo&"'" 
Set rs = Server.CreateObject("ADODB.Recordset") 

rs.Open strSql, conn ,3,3 

email=rs("email") 

message = "<body bgcolor=#f5f1d1><div style=" & chr(35) & "font-family:Arial, Helvetica, sans serif; font-size:10px; text-align:justify" & chr(35) & "> "&data&" 
I dati del modulo d'ordine sono:
" 
message = message & "" 
message = message & "
" 
message = message & "Richiedente: " & rs("nome")& "
" 
message = message & "Indirizzo: " & rs("indirizzo") & "
" 
message = message & "Comune:" & rs("comune") & "
" 
message = message & "Provincia:" & rs("provincia")& "
" 
message = message & "Stato:" & rs("stato") & "
" 
message = message & "Zip:" & rs("zip") & "
" 
message = message & "Telefono 1:" & rs("telefono1") & "
" 
message = message & "Telefono 2:" & rs("telefono2") & "
" 
message = message & "Email:" & rs("email") & "
" 
message = message & "PIVA:" & rs("piva") & "
" 
message = message & "Codice Fiscale:" & rs("cf") & "
" 
message = message & "
" 
message = message & "Prodotti ordinati:
" 

rs.close
set rs = nothing


strSqla = "SELECT * FROM temporanea where nome='"&nominativo&"' order by descrizione ASC" 
Set rsa = Server.CreateObject("ADODB.Recordset") 

rsa.Open strSqla, conn ,3,3 
'Qui componi il resto
do while not rsa.eof 


message = message & "Descrizione:" & rsa("descrizione") & " " 
message = message & "Quantità:" & rsa("quantita") & " " 
message = message & "Prezzo unitario:" & rsa("prezzo") & " " 
message = message & "
" 

rsa.MoveNext 
loop 

rsa.close
set rsa = nothing


message = message & "
" 
message = message & "Modalità di pagamento:
" 
message = message & "Contrassegno:" & contrassegno& " 
" 
message = message & "Bonifico bancario:" & bonifico& "
" 
message = message & "Coordinate bancarie: Banca: XXX Filiale di XXXXX ABI:XXX CAB:XXX CONTO:0000000 CIN: X INTESTATARIO: XXXX" 
message = message & "
" 
message = message & "Condizioni di vendita:" & sicurezza & "
" 
message = message & "
" 
message = message & "Spesa totale:" & totale& "
" 





Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail") 

miaMail.From = "info@fbalotti.it" 
'Qui invii la mail usando la variabile di prima
miaMail.To = email 
miaMail.cc = "info@fbaotti.it" 



miaMail.Subject = "ORDINE D'ACQUISTO" 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 

miaMail.Body = message 
miaMail.Importance = 2 
miaMail.Send 

Set miaMail = Nothing 


Dim SQLW 
SQLW="delete from temporanea WHERE nome='"&nominativo&"'" 
Conn.Execute(SQLW) 

Conn.close 
set Conn=nothing 

%>