While Not(rs.EOF)
Set objMail = Server.CreateObject("CDONTS.NewMail")

'MODIFY the following email address will appear as the from address for the email.
objMail.From = "newsletter@yoursite.com"
objMail.To = rs("Email")
objMail.Body = Request.Form("txtEmail")

objMail.Send

rs.MoveNext()
Wend

il server non supporta cdonts, per passare a cdosys? Cosa devo modificare nel codice?