l'errore è questo

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'mail'

/admin/nla_invia.asp, line 19


il codice

codice:
oggetto = request.form("oggetto")
msg = request.form("msg")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/mdb-database/pb.mdb")
 
sql = "SELECT * FROM nla WHERE email "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
email=""
do while NOT (rs.EOF) 
             email=(rs("email") + " ;")
             rs.MoveNext()
loop      

   		mail = CreateObject("CDONTS.Newmail")
   
       	mail.To = ""
		mail.bcc = email
       	mail.From = "newsletter@piccolobill.com"
       	mail.Subject = oggetto
       	mail.Body = msg
       
       	mail.Send

Response.Write("Newsletter inviata con successo.")

rs.Close
set rs = Nothing
conn.close
set conn = nothing
("oggetto")