Sub manda_posta(nome,password,email)

Dim objMail, messaggio

messaggio = "Grazie " & nome & " " & cognome & " per esserti registrato"
messaggio = messaggio & VBcrlf & "login = " & nome
messaggio = messaggio & VBcrlf & "password = " & password

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "AlexWebSite"
objMail.To = email
objMail.Subject = "Registrazione ad AlexWebSite"
objMail.Body = messaggio

objMail.importance = 0
objMail.Send

Set objMail = Nothing
end sub

NON FUNGE PERCHE' MI DICE CHE NON TROVA L'OGGETTO CDONTS DOVREBBE ESSERE NELLE COSTANTI ADO MA COSA SONO è VERO CHE è UN FILE E SE SI DOVE LO TROVO??

---

Modificato da ciscos il 16 aprile 2003 19.40 -