innanzitutto, grazie per la risposta!

ho provato a modificare il codice appoggiandomi al link che mi hai dato:



codice:
Sub manda_posta(nome,password,email)


Dim objMail, objConfig 

' Crea l'oggetto email 
Set objMail = Server.createObject("CDO.Message") 

' Dimensiona l'oggetto configurazione 
Set objConfig = Server.createObject ("CDO.Configuration") 

' Imposta le configurazioni 
With objConfig 

' Server SMTP di uscita 
' ATTENZIONE! Usare il proprio indirizzo di server email! 
' E' FONDAMENTALE per l'invio della email 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

' Porta SMTP 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

' Porta CDO 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

' Timeout 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
.Fields.update 

End With 

' Assegna le configurazioni 
Set objMail.Configuration = objConfig 

' Assegna all'oggetto le proprietà necessarie 
objMail.From = "info@sito.com" ' Mittente 
objMail.To = Request.Form("email") ' Destinatario 
objMail.Subject = "Ecco la tua password, " & nome & "" ' Oggetto 
objMail.TextBody = "La tua password è " & password & "" ' Messaggio 

' Invia l'email 
objMail.Send() 

Set objMail = Nothing 

end sub

Ma ricevo questo errore:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/area_riservata/metti_aggiungi_cliente.asp, line 53


puoi aiutarmi?